home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / AnyDBM_File.pm < prev    next >
Text File  |  2003-11-07  |  672b  |  32 lines
  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";
  32.