1 package Memoize::Storable;
5 Memoize::Storable - store Memoized data in Storable database
17 require Carp if $Verbose;
20 my $truehash = (-e $filename) ? Storable::retrieve($filename) : {};
22 print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
25 {FILENAME => $filename,
29 bless $self => $package;
33 require Carp if $Verbose;
35 print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose;
36 $self->{H}{$_[0]} = $_[1];
40 require Carp if $Verbose;
42 print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose;
47 require Carp if $Verbose;
49 print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose;
50 exists $self->{H}{$_[0]};
54 require Carp if $Verbose;
56 print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose;
57 if ($self->{OPTIONS}{'nstore'}) {
58 Storable::nstore($self->{H}, $self->{FILENAME});
60 Storable::store($self->{H}, $self->{FILENAME});
65 'Fake hash from Memoize::Storable';