[Summary view] [Print] [Text view]

   1  package Memoize::AnyDBM_File;
   2  
   3  =head1 NAME
   4  
   5  Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use
   6  
   7  =head1 DESCRIPTION
   8  
   9  See L<Memoize>.
  10  
  11  =cut
  12  
  13  use vars qw(@ISA $VERSION);
  14  $VERSION = 0.65;
  15  @ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA;
  16  
  17  my $verbose = 1;
  18  
  19  my $mod;
  20  for $mod (@ISA) {
  21  #  (my $truemod = $mod) =~ s/^Memoize:://;
  22  #  my $file = "$mod.pm";
  23  #  $file =~ s{::}{/}g;
  24    if (eval "require $mod") {
  25      print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose;
  26      @ISA = ($mod);    # if we leave @ISA alone, warnings abound
  27      return 1;
  28    }
  29  }
  30  
  31  die "No DBM package was successfully found or installed";