File Coverage

blib/lib/Number/ZipCode/JP/Table.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Number::ZipCode::JP::Table;
2              
3 2     2   14 use strict;
  2         3  
  2         66  
4 2     2   12 use warnings;
  2         4  
  2         79  
5              
6             our $VERSION = '0.20230731';
7              
8 2     2   10 no warnings 'once';
  2         4  
  2         185  
9              
10             our %ZIP_TABLE = Number::ZipCode::JP::_merge_table(
11             qw/ Number::ZipCode::JP::Table::Area Number::ZipCode::JP::Table::Company /
12             );
13              
14             sub import {
15 3     3   8 my $class = shift;
16 3         7 my $pkg = caller(0);
17 2     2   14 no strict 'refs';
  2         4  
  2         161  
18 3         223 %{"$pkg\::ZIP_TABLE"} = %ZIP_TABLE;
  3         439  
19             }
20              
21             1;
22             __END__