File Coverage

blib/lib/Number/Phone/UK/DetailedLocations.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Number::Phone::UK::DetailedLocations;
2              
3             # automatically generated file, don't edit
4              
5             our $VERSION = join('', qw(1. 2006 08 23 21 02 05));
6              
7 1     1   398774 use Number::Phone::UK::DBM::Deep;
  1         2  
  1         7  
8              
9             $Number::Phone::UK::Exchanges::db = Number::Phone::UK::DBM::Deep->new(fh => *DATA);
10             if ($Number::Phone::UK::Exchanges::db->error()) {
11             die "Number::Phone::UK::DBM::Deep error: " . $Number::Phone::UK::Exchanges::db->error();
12             }
13              
14             1;
15             __DATA__