File Coverage

blib/lib/Memoize/AnyDBM_File.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1 1     1   57949 use strict; use warnings;
  1     1   2  
  1         24  
  1         5  
  1         2  
  1         156  
2              
3             package Memoize::AnyDBM_File;
4             our $VERSION = '1.15';
5              
6             our @ISA = qw(DB_File GDBM_File Memoize::NDBM_File SDBM_File ODBM_File) unless @ISA;
7              
8             for my $mod (@ISA) {
9             if (eval "require $mod") {
10             $mod = 'NDBM_File'
11             if $mod eq 'Memoize::NDBM_File'
12             and eval { NDBM_File->VERSION( '1.16' ) };
13             print STDERR "AnyDBM_File => Selected $mod.\n" if our $Verbose;
14             @ISA = $mod;
15             return 1;
16             }
17             }
18              
19             die "No DBM package was successfully found or installed";
20              
21             __END__