1 package Memoize::NDBM_File;
8 warn "Nonexistent function $AUTOLOAD invoked in Memoize::NDBM_File\n";
12 warn "Importing Memoize::NDBM_File\n" if $Verbose;
18 # This is so ridiculous...
23 for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) {
24 $fakehash{$k} = undef;
26 $keylist{$self} = \%fakehash;
30 warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose;
32 _backhash($self) unless exists $keylist{$self};
33 my $r = exists $keylist{$self}{$_[0]};
34 warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
39 warn "Memoize::NDBM_File DEFINED (@_)\n" if $Verbose;
41 _backhash($self) unless exists $keylist{$self};
42 defined $keylist{$self}{$_[0]};
46 warn "Memoize::NDBM_File DESTROY (@_)\n" if $Verbose;
48 delete $keylist{$self}; # So much for reference counting...
49 $self->SUPER::DESTROY(@_);
52 # Maybe establish the keylist at TIEHASH time instead?
55 warn "Memoize::NDBM_File STORE (@_)\n" if $VERBOSE;
57 $keylist{$self}{$_[0]} = undef;
58 $self->SUPER::STORE(@_);
61 # Inherit FETCH and TIEHASH