/usr/share/perl5/NetApp/Filer/TimeoutCache.pm is in libnetapp-perl 1.1.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | #
# $Id: $
#
package NetApp::Filer::TimeoutCache;
use strict;
use warnings;
use English;
use Carp;
use Params::Validate qw( :all );
use version; our $VERSION = version->new(qw$Revision: 334 $);
sub TIEHASH {
my $class = shift;
my (%args) = validate( @_, {
lifetime => { type => SCALAR,
regex => qr{^\d+$} },
});
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,
value => $value,
};
return $value;
}
sub FETCH {
my $self = shift;
my $key = shift;
return $self->{cache}->{$key}->{value};
}
sub DELETE {
my $self = shift;
my $key = shift;
my $value = $self->{cache}->{$key}->{value};
delete $self->{cache}->{$key};
return $value;
}
sub CLEAR {
return shift->{cache} = {};
}
sub EXISTS {
my $self = shift;
my $key = shift;
if ( not exists $self->{cache}->{$key} ) {
return 0;
}
my $data = $self->{cache}->{$key};
if ( $data->{expiration} > time ) {
return 1;
} else {
return 0;
}
}
1;
|