NetApp
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/NetApp/Filer/TimeoutCache.pm view on Meta::CPAN
if ( $args{lifetime} <= 0 ) {
croak("Invalid argument: lifetime must be a positive integer\n");
}
my %self = (
lifetime => $args{lifetime},
cache => {},
);
return bless \%self => $class;
}
sub STORE {
my $self = shift;
my ($key, $value) = @_;
$self->{cache}->{$key} = {
expiration => $self->{lifetime} + time,
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.370 second using v1.00-cache-2.02-grep-82fe00e-cpan-f5108d614456 )