シンケンゴールド勉強会だかでtokuhiromにおねだりして Data::Model::Driver::Memcached でやってる事と同じデータを作れるようにしてもらったので取りあえずベンチした。 use strict; use warnings; use lib 'lib'; use Benchmark ':all'; use Data::Model::Driver::Memcached; use Data::MessagePack; use Test::More tests => 1; my($yappo, $tokuhirom); $Data::MessagePack::PreferInteger = 1; cmpthese 100000 => { yappo => sub { $yappo = Data::Model::Driver::Memcached::Serializer