2 package Memoize::Storable;
7 require Carp if $Verbose;
10 my $truehash = (-e $filename) ? Storable::retrieve($filename) : {};
12 print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
15 {FILENAME => $filename,
19 bless $self => $package;
23 require Carp if $Verbose;
25 print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose;
26 $self->{H}{$_[0]} = $_[1];
30 require Carp if $Verbose;
32 print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose;
37 require Carp if $Verbose;
39 print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose;
40 exists $self->{H}{$_[0]};
44 require Carp if $Verbose;
46 print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose;
47 if ($self->{OPTIONS}{'nstore'}) {
48 Storable::nstore($self->{H}, $self->{FILENAME});
50 Storable::store($self->{H}, $self->{FILENAME});
55 'Fake hash from Memoize::Storable';