Server IP : 92.204.138.22 / Your IP : 3.144.90.205 Web Server : Apache System : Linux ns1009439.ip-92-204-138.us 4.18.0-553.8.1.el8_10.x86_64 #1 SMP Tue Jul 2 07:26:33 EDT 2024 x86_64 User : internationaljou ( 1019) PHP Version : 7.4.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/perl5/Memoize/ |
Upload File : |
package Memoize::Storable; =head1 NAME Memoize::Storable - store Memoized data in Storable database =head1 DESCRIPTION See L<Memoize>. =cut use Storable (); $VERSION = '1.03'; $Verbose = 0; sub TIEHASH { require Carp if $Verbose; my $package = shift; my $filename = shift; my $truehash = (-e $filename) ? Storable::retrieve($filename) : {}; my %options; print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose; @options{@_} = (); my $self = {FILENAME => $filename, H => $truehash, OPTIONS => \%options }; bless $self => $package; } sub STORE { require Carp if $Verbose; my $self = shift; print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose; $self->{H}{$_[0]} = $_[1]; } sub FETCH { require Carp if $Verbose; my $self = shift; print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose; $self->{H}{$_[0]}; } sub EXISTS { require Carp if $Verbose; my $self = shift; print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose; exists $self->{H}{$_[0]}; } sub DESTROY { require Carp if $Verbose; my $self= shift; print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose; if ($self->{OPTIONS}{'nstore'}) { Storable::nstore($self->{H}, $self->{FILENAME}); } else { Storable::store($self->{H}, $self->{FILENAME}); } } sub FIRSTKEY { 'Fake hash from Memoize::Storable'; } sub NEXTKEY { undef; } 1;