![]() |
$cache=Cache::Mmap->new($filename,{ buckets => 23, bucketsize => 4096, context => $dbh, cache_negative => 1, read => sub{ my($key,$dbh)=@_; my $r=$dbh->selectall_arrayref('select * from table1 where key=?',{},$key); return (scalar(@$r),$r->[0]); }, expiry => 86400, );
|