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

package Number::Phone::JP::Table::Ipphone;

use strict;
use warnings;

our $VERSION = '0.20190521';

# Table last modified: 2019-05-21
our %TEL_TABLE = (
    # Pref => q,
    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})',
);

1;
__END__