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,