これを今朝読んだのでCache::Memcached::LibMemcachedを作ったよ！
なんか用途が広そうなのでcodereposに入れました。
使い方はSYNOPSISの通り。Cache::Memcachedとほぼ一緒。まだまだ足りないメソッドがあるのでその辺はコミットしちゃってくださいw
なんか用途が広そうなのでcodereposに入れました。
使い方はSYNOPSISの通り。Cache::Memcachedとほぼ一緒。まだまだ足りないメソッドがあるのでその辺はコミットしちゃってくださいw
use Cache::Memcached::LibMemcached;
my $memd = Cache::Memcached::LibMemcached->new({
serves => [ "10.0.0.15:11211", "10.0.0.15:11212", "/var/sock/memcached" ],
compress_threshold => 10_000
});
$memd->set("my_key", "Some value");
$memd->set("object_key", { 'complex' => [ "object", 2, 4 ]});
$val = $memd->get("my_key");
$val = $memd->get("object_key");
if ($val) { print $val->{complex}->[2] }
