[Summary view] [Print] [Text view]

   1  package Memoize::Storable;
   2  
   3  =head1 NAME
   4  
   5  Memoize::Storable - store Memoized data in Storable database
   6  
   7  =head1 DESCRIPTION
   8  
   9  See L<Memoize>.
  10  
  11  =cut
  12  
  13  use Storable ();
  14  $VERSION = 0.65;
  15  $Verbose = 0;
  16  
  17  sub TIEHASH {
  18    require Carp if $Verbose;
  19    my $package = shift;
  20    my $filename = shift;
  21    my $truehash = (-e $filename) ? Storable::retrieve($filename) : {};
  22    my %options;
  23    print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
  24    @options{@_} = ();
  25    my $self = 
  26      {FILENAME => $filename, 
  27       H => $truehash, 
  28       OPTIONS => \%options
  29      };
  30    bless $self => $package;
  31  }
  32  
  33  sub STORE {
  34    require Carp if $Verbose;
  35    my $self = shift;
  36    print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose;
  37    $self->{H}{$_[0]} = $_[1];
  38  }
  39  
  40  sub FETCH {
  41    require Carp if $Verbose;
  42    my $self = shift;
  43    print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose;
  44    $self->{H}{$_[0]};
  45  }
  46  
  47  sub EXISTS {
  48    require Carp if $Verbose;
  49    my $self = shift;
  50    print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose;
  51    exists $self->{H}{$_[0]};
  52  }
  53  
  54  sub DESTROY {
  55    require Carp if $Verbose;
  56    my $self= shift;
  57    print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose;
  58    if ($self->{OPTIONS}{'nstore'}) {
  59      Storable::nstore($self->{H}, $self->{FILENAME});
  60    } else {
  61      Storable::store($self->{H}, $self->{FILENAME});
  62    }
  63  }
  64  
  65  sub FIRSTKEY {
  66    'Fake hash from Memoize::Storable';
  67  }
  68  
  69  sub NEXTKEY {
  70    undef;
  71  }
  72  1;