package Memoize
::Storable
;
Memoize::Storable - store Memoized data in Storable database
require Carp
if $Verbose;
my $truehash = (-e
$filename) ? Storable
::retrieve
($filename) : {};
print STDERR
"Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
require Carp
if $Verbose;
print STDERR
"Memoize::Storable::STORE(@_)\n" if $Verbose;
$self->{H
}{$_[0]} = $_[1];
require Carp
if $Verbose;
print STDERR
"Memoize::Storable::FETCH(@_)\n" if $Verbose;
require Carp
if $Verbose;
print STDERR
"Memoize::Storable::EXISTS(@_)\n" if $Verbose;
exists $self->{H
}{$_[0]};
require Carp
if $Verbose;
print STDERR
"Memoize::Storable::DESTROY(@_)\n" if $Verbose;
if ($self->{OPTIONS
}{'nstore'}) {
Storable
::nstore
($self->{H
}, $self->{FILENAME
});
Storable
::store
($self->{H
}, $self->{FILENAME
});
'Fake hash from Memoize::Storable';