The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Number::Phone::JP::Table::Class1;

use strict;
use warnings;

our $VERSION = '0.20130201';

# Table last modified: 2013-02-01
our %TEL_TABLE = (
    # Pref => q<Assoc-Pref-Regex>,
    '01'    => '\d+', # KDDI
    '030'   => '\d+', # ZIP Telecom
    '031'   => '\d+', # アイ・ピー・エス
    '032'   => '\d+', # アイ・ピー・エス
    '033'   => '\d+', # NTTコミュニケーションズ
    '034'   => '\d+', # NTTコミュニケーションズ
    '035'   => '\d+', # NTTコミュニケーションズ
    '036'   => '\d+', # NTT東日本
    '037'   => '\d+', # フュージョンコミュニケーションズ
    '038'   => '\d+', # フュージョンコミュニケーションズ
    '039'   => '\d+', # NTT西日本
    '041'   => '\d+', # ソフトバンクテレコム
    '042'   => '\d+', # ソフトバンクテレコム
    '043'   => '\d+', # ソフトバンクテレコム
    '044'   => '\d+', # ソフトバンクテレコム
    '045'   => '\d+', # ソフトバンクテレコム
    '046'   => '\d+', # ソフトバンクモバイル
    '050'   => '\d+', # UCOM
    '051'   => '\d+', # KDDI
    '052'   => '\d+', # KDDI
    '053'   => '\d+', # KDDI
    '054'   => '\d+', # KDDI
    '055'   => '\d+', # KDDI
    '056'   => '\d+', # KDDI
    '057'   => '\d+', # KDDI
    '060'   => '\d+', # UCOM
    '061'   => '\d+', # ソフトバンクテレコム
    '062'   => '\d+', # ソフトバンクテレコム
    '063'   => '\d+', # ソフトバンクテレコム
    '065'   => '\d+', # ソフトバンクテレコム
    '066'   => '\d+', # ソフトバンクテレコム
    '067'   => '\d+', # りーふねっと
    '070'   => '\d+', # KDDI
    '071'   => '\d+', # ベライゾンジャパン
    '072'   => '\d+', # ベライゾンジャパン
    '073'   => '\d+', # 安子の電話
    '074'   => '\d+', # 安子の電話
    '077'   => '\d+', # KDDI
    '080'   => '\d+', # Tシステムズ・ジャパン
    '081'   => '\d+', # フュージョンコミュニケーションズ
    '082'   => '\d+', # フュージョンコミュニケーションズ
    '083'   => '\d+', # ソフトバンクテレコム
    '084'   => '\d+', # ソフトバンクテレコム
    '085'   => '\d+', # NTTメディアクロス
    '086'   => '\d+', # 九州通信ネットワーク
    '088'   => '\d+', # ソフトバンクテレコム
    '089'   => '\d+', # Tシステムズ・ジャパン
);

1;
__END__