1 package Memoize::Storable;
5 Memoize::Storable - store Memoized data in Storable database
18 require Carp if $Verbose;
21 my $truehash = (-e $filename) ? Storable::retrieve($filename) : {};
23 print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
26 {FILENAME => $filename,
30 bless $self => $package;
34 require Carp if $Verbose;
36 print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose;
37 $self->{H}{$_[0]} = $_[1];
41 require Carp if $Verbose;
43 print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose;
48 require Carp if $Verbose;
50 print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose;
51 exists $self->{H}{$_[0]};
55 require Carp if $Verbose;
57 print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose;
58 if ($self->{OPTIONS}{'nstore'}) {
59 Storable::nstore($self->{H}, $self->{FILENAME});
61 Storable::store($self->{H}, $self->{FILENAME});
66 'Fake hash from Memoize::Storable';