memchach_test.pl

#!/usr/bin/perl
use strict;
use Cache::Memcached;

my $memcached = Cache::Memcached->new({
    servers => ["127.0.0.1:11211"]
});

print "Set (key, hoge) exptime:12sec\n";
$memcached->add('key', 'hoge', 12);
print $memcached->get('key'), "\n5sec sleeping...\n";
sleep 5;
print $memcached->get('key'), "\n5sec sleeping...\n";
sleep 5;
print $memcached->get('key'), "\n5sec sleeping...\n";
sleep 5;
print $memcached->get('key'), "<-- should be none value\n";