Cache::Memcached::Managedを試しにさわっててはまったことをメモしとく。 C::M::Managedはキャッシュのキーをサブルーチンの完全修飾名から自動生成してくれるらしいので、そのテストをしてた。 テストに使ったクラス package Hoge; use strict; use warnings; use base qw/Class::Accessor::Fast/; __PACKAGE__->mk_accessors(qw/memdm/); sub cache { my $self = shift; if ( my $data = $self->memdm->get ) { print $data, "\n"; } else { $self->memdm->set('data') and print "set OK\n"; } } 1; main use stri