1package Memoize::AnyDBM_File; 2 3=head1 NAME 4 5Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use 6 7=head1 DESCRIPTION 8 9See L<Memoize>. 10 11=cut 12 13use 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 17my $verbose = 1; 18 19my $mod; 20for $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 31die "No DBM package was successfully found or installed"; 32