File Coverage

blib/lib/Number/Phone/JP/Table/Freedial.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             package Number::Phone::JP::Table::Freedial;
2              
3 9     9   89 use strict;
  9         19  
  9         249  
4 9     9   44 use warnings;
  9         21  
  9         533  
5              
6             our $VERSION = '0.20190507';
7              
8             # Table last modified: 2019-05-07
9             our %TEL_TABLE = (
10             # Pref => q,
11             120 => '(?:(?:9(?:[1-35-9]\d|4[014-9]|0[0157])|[0-8]\d{2})\d{3})',
12             800 => '(?:(?:8(?:3[0-8]|0[05-9]|[12]\d|88)|6(?:4[1-9]|[5-9]\d|0[0-3])|9(?:[3-9]\d|2[4-9]|00|19)|3(?:3[3-9]|[4-9]\d|00)|5(?:5[5-9]|[6-9]\d|00)|1(?:2[03]|[07]0|11)|(?:0[08]|40)0|2(?:00|22)|7(?:00|77))\d{4})',
13             );
14              
15             1;
16             __END__