package Memoize
::ExpireFile
;
Memoize::ExpireFile - test for Memoize expiration semantics
my ($package, %args) = @_;
my $cache = $args{HASH
} || {};
bless {ARGS
=> \
%args, C
=> $cache} => $package;
# print "Expiry manager STORE handler\n";
my ($self, $key, $data) = @_;
my $cur_date = pack("N", (stat($key))[9]);
$cache->{"C$key"} = $data;
$cache->{"T$key"} = $cur_date;
# print "Expiry manager EXISTS handler\n";
my $cache_date = $self->{C
}{"T$key"} || $Zero;
my $file_date = pack("N", (stat($key))[9]);#
# if ($self->{ARGS}{CHECK_DATE} && $old_date gt $cur_date) {
# return $self->{ARGS}{CHECK_DATE}->($key, $old_date, $cur_date);
my $res = $cache_date ge $file_date;
# print $res ? "... still good\n" : "... expired\n";