File Coverage

blib/lib/Number/Phone/JP/Table/M2m.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::M2m;
2              
3 10     10   53 use strict;
  10         18  
  10         255  
4 10     10   40 use warnings;
  10         15  
  10         547  
5              
6             our $VERSION = '0.20190401';
7              
8             # Table last modified: 2019-04-01
9             our %TEL_TABLE = (
10             # Pref => q,
11             20 => '(?:(?:3(?:[0-24-689]\d|3[0-5]|7[0-2])|5(?:3[0-6]|[0-2]\d)|[12]\d{2})\d{5})',
12             );
13              
14             1;
15             __END__