ExpireFile.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
package Memoize::ExpireFile;
=head1 NAME
Memoize::ExpireFile - test for Memoize expiration semantics
=head1 DESCRIPTION
See L<Memoize::Expire>.
=cut
$VERSION = 1.01;
use Carp;
sub TIEHASH {
}
sub STORE {
# print "Expiry manager STORE handler\n";
}
sub FETCH {
$self->{C}{"C$key"};
}
sub EXISTS {
# print "Expiry manager EXISTS handler\n";
# if ($self->{ARGS}{CHECK_DATE} && $old_date gt $cur_date) {
# return $self->{ARGS}{CHECK_DATE}->($key, $old_date, $cur_date);
# }
# print $res ? "... still good\n" : "... expired\n";
$res;
}
1;