Kyoto Tycoon memcached plugin VS memcached のベンチを取ってみた

#!/usr/bin/env perl

use strict;
use warnings;

use Benchmark qw(:all);

use Cache::Memcached::Fast;

my $mf = Cache::Memcached::Fast->new( { servers => ['127.0.0.1:2010'] } );
my $mfm = Cache::Memcached::Fast->new( { servers => ['127.0.0.1:11211'] } );

my @keys = map { 'x' . rand } 0 .. 10000;
my $n = 100;

cmpthese(
    $n => +{
        'KT(memcached) set' => sub {
            $mf->set( $_ => rand ) for @keys;
        },  
        'Memcached (memcached) set' => sub {
            $mfm->set( $_ => rand ) for @keys;
        },  
    }   
);

cmpthese(
    $n => +{
        'KT(memcached) get' => sub {
            $mf->get($_) for @keys;
        },  
        'Memcached (memcached) get' => sub {
            $mfm->get($_) for @keys;
        },  
    }   
);
                            Rate     KT(memcached) set Memcached (memcached) set
KT(memcached) set         2.82/s                    --                      -15%
Memcached (memcached) set 3.34/s                   18%                        --
                            Rate     KT(memcached) get Memcached (memcached) get
KT(memcached) get         3.35/s                    --                      -12%
Memcached (memcached) get 3.79/s                   13%                        --