blob: eb2e659c0dcd444213c4ea4207afbee1159b7796 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
package Memoize::AnyDBM_File;
use vars qw(@ISA);
@ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA;
my $verbose = 1;
my $mod;
for $mod (@ISA) {
# (my $truemod = $mod) =~ s/^Memoize:://;
if (eval "require $mod") {
print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose;
@ISA = ($mod); # if we leave @ISA alone, warnings abound
return 1;
}
}
die "No DBM package was successfully found or installed";
|
