#!/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% --