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   49 use strict;
  9         16  
  9         209  
4 9     9   36 use warnings;
  9         12  
  9         416  
5              
6             our $VERSION = '0.20190521';
7              
8             # Table last modified: 2019-05-21
9             our %TEL_TABLE = (
10             # Pref => q,
11             570 => '(?:(?:5(?:7[0-2]|50)|9(?:[19]9|43)|88[128]|[23]00|0\d{2}|666|783)\d{3})',
12             );
13              
14             1;
15             __END__