File Coverage

blib/lib/Number/Phone/JP/Table/Ipphone.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::Ipphone;
2              
3 9     9   61 use strict;
  9         16  
  9         277  
4 9     9   37 use warnings;
  9         17  
  9         494  
5              
6             our $VERSION = '0.20190521';
7              
8             # Table last modified: 2019-05-21
9             our %TEL_TABLE = (
10             # Pref => q,
11             50 => '(?:(?:5(?:(?:(?:(?:(?:(?:0[05]|60)|2\d)|3\d)|4\d)|8\d)\d|5(?:[0-57-9]\d|6[0-6])|7(?:7[7-9]|[89]\d))|8(?:0(?:3[0-8]|[0-2]\d)|8(?:[089]\d|10)|9(?:0\d|10)|20[0-3]|60[01])|7(?:1(?:3[0-6]|[0-2]\d)|5[0-8]\d|7(?:7\d|88)|30[0-3]|00[01])|3(?:8(?:[0-5]\d|6[0-2])|2(?:[0-4]\d|5[01])|[013-7]\d{2}|900)|2(?:0(?:3[0-6]|[0-2]\d)|20[01]|3[01]0|403|525)|1(?:8(?:[02-7]\d|1[0-2])|[0-7]\d{2})|6(?:8(?:8[0-2]|[67]\d)|6(?:2[0-2]|19)|000)|90(?:1[0-5]|0\d)|456[01])\d{4})',
12             );
13              
14             1;
15             __END__