1 package Memoize::NDBM_File;
5 Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use
20 warn "Nonexistent function $AUTOLOAD invoked in Memoize::NDBM_File\n";
24 warn "Importing Memoize::NDBM_File\n" if $Verbose;
30 # This is so ridiculous...
35 for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) {
36 $fakehash{$k} = undef;
38 $keylist{$self} = \%fakehash;
42 warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose;
44 _backhash($self) unless exists $keylist{$self};
45 my $r = exists $keylist{$self}{$_[0]};
46 warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
51 warn "Memoize::NDBM_File DEFINED (@_)\n" if $Verbose;
53 _backhash($self) unless exists $keylist{$self};
54 defined $keylist{$self}{$_[0]};
58 warn "Memoize::NDBM_File DESTROY (@_)\n" if $Verbose;
60 delete $keylist{$self}; # So much for reference counting...
61 $self->SUPER::DESTROY(@_);
64 # Maybe establish the keylist at TIEHASH time instead?
67 warn "Memoize::NDBM_File STORE (@_)\n" if $VERBOSE;
69 $keylist{$self}{$_[0]} = undef;
70 $self->SUPER::STORE(@_);
75 # Inherit FETCH and TIEHASH