lib/Memoize/AnyDBM_File.pm

   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";