File Coverage

blib/lib/Number/Phone/JP/Table/Mobile.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::Mobile;
2              
3 10     10   98 use strict;
  10         23  
  10         317  
4 10     10   51 use warnings;
  10         18  
  10         644  
5              
6             our $VERSION = '0.20190507';
7              
8             # Table last modified: 2019-05-07
9             our %TEL_TABLE = (
10             # Pref => q,
11             70 => '(?:(?:6(?:3[0-6]|[124-69]\d|8[0-5])|8(?:5[0-8]|[0134]\d|2[0-3])|5(?:0[1-9]|[1-6]\d|81)|3(?:[0-35-9]\d|4[01])|2(?:[0-46-9]\d|50)|[147]\d{2})\d{5})',
12             80 => '(?:[1-9]\d{7})',
13             90 => '(?:[1-9]\d{7})',
14             );
15              
16             1;
17             __END__