/usr/local/CPAN/Number-Phone-JP/Number/Phone/JP/Table/Phs.pm

• package Number::Phone::JP::Table::Phs
• __END__
• EOF

package Number::Phone::JP::Table::Phs;

use strict;
use warnings;

our $VERSION = '0.20110601';

# Table last modified: 2011-06-01
our %TEL_TABLE = (
    # Pref => q<Assoc-Pref-Regex>,
    70 => '(?:(?:5(?:0[1-9]|[1-6]\d|7[7-9]|9[34]|81)|6(?:3[0-6]|[124-69]\d|8[0-5]|75))\d{5})',
);

1;
__END__