File Coverage

blib/lib/Number/Phone/JP/Table/United.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::United;
2              
3 9     9   57 use strict;
  9         15  
  9         243  
4 9     9   48 use warnings;
  9         17  
  9         501  
5              
6             our $VERSION = '0.20190507';
7              
8             # Table last modified: 2019-05-07
9             our %TEL_TABLE = (
10             # Pref => q,
11             570 => '(?:(?:5(?:7[0-2]|5[05])|9(?:[19]9|43)|2(?:00|22)|3(?:00|33)|7(?:77|83)|88[128]|0\d{2}|111|666)\d{3})',
12             );
13              
14             1;
15             __END__