File Coverage

blib/lib/Number/Phone/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::Phone::JP::Table;
2              
3 8     8   49 use strict;
  8         14  
  8         230  
4 8     8   36 use warnings;
  8         8967  
  8         1018  
5              
6             our $VERSION = '0.20190401';
7              
8             require Number::Phone::JP::Table::Class1;
9             require Number::Phone::JP::Table::Class2;
10             require Number::Phone::JP::Table::Freedial;
11             require Number::Phone::JP::Table::Home;
12             require Number::Phone::JP::Table::Ipphone;
13             require Number::Phone::JP::Table::Mobile;
14             require Number::Phone::JP::Table::Pager;
15             require Number::Phone::JP::Table::Phs;
16             require Number::Phone::JP::Table::Q2;
17             require Number::Phone::JP::Table::United;
18             require Number::Phone::JP::Table::Fmc;
19             require Number::Phone::JP::Table::M2m;
20              
21 8     8   52 no warnings 'once';
  8         15  
  8         1014  
22              
23             our %TEL_TABLE = (
24             %Number::Phone::JP::Table::Class1::TEL_TABLE,
25             %Number::Phone::JP::Table::Class2::TEL_TABLE,
26             %Number::Phone::JP::Table::Freedial::TEL_TABLE,
27             %Number::Phone::JP::Table::Home::TEL_TABLE,
28             %Number::Phone::JP::Table::Ipphone::TEL_TABLE,
29             %Number::Phone::JP::Table::Mobile::TEL_TABLE,
30             %Number::Phone::JP::Table::Pager::TEL_TABLE,
31             %Number::Phone::JP::Table::Phs::TEL_TABLE,
32             %Number::Phone::JP::Table::Q2::TEL_TABLE,
33             %Number::Phone::JP::Table::United::TEL_TABLE,
34             %Number::Phone::JP::Table::Fmc::TEL_TABLE,
35             );
36              
37             # prefixes of both pager and m2m are duplicated with each other
38             $TEL_TABLE{'20'} = '(?:' .
39             $TEL_TABLE{'20'} .
40             '|' .
41             $Number::Phone::JP::Table::M2m::TEL_TABLE{'20'} .
42             ')';
43              
44             sub import {
45 75     75   111 my $class = shift;
46 75         149 my $pkg = caller(0);
47 8     8   47 no strict 'refs';
  8         14  
  8         596  
48 75         2556 %{"$pkg\::TEL_TABLE"} = %TEL_TABLE;
  75         5761  
49             }
50              
51             1;
52             __END__