タグ

ブックマーク / blog.nekokak.org (2)

  • Cache::Memcached::Fastの高速化

    一番簡単に高速化するには シリアライザをData::MesagePackにするとよいかもしれない。 #! /usr/bin/perl use strict; use warnings; use Cache::Memcached::Fast; use Data::MessagePack; use Benchmark qw/timethese/; my $normal = Cache::Memcached::Fast->new({ servers => ['127.0.0.1:11211'], serialize_methods => [ \&Storable::freeze, \&Storable::thaw ], }); my $msgpack = Cache::Memcached::Fast->new({ servers => ['127.0.0.1:11211'], serialize

  • Kamui::Container

    Kamuiには Object::Containerを再実装してゴニョゴニョしたKamui::Containerというモジュールがあります。 このKamui::Contaierは基Object::Containerと同じ挙動をするわけなのですが、 何点か違う箇所があります。 Object::Containerの場合 package MyContainer; use Object::Container -base; ... 1; # in your script: use MyContainer 'obj'; obj->register( mech => sub { WWW::Mechanize->new }); obj->get('mech'); obj('mech'); # shortcut to obj->get('mech')こんな感じでつかったりします。 use MyContain

  • 1