File Coverage

blib/lib/Number/Phone/CountryCode.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	3	4	75.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	30	31	96.7

#
# This file is part of Number-Phone-CountryCode
#
# This software is copyright (c) 2009 by Michael Schout .
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#

package Number::Phone::CountryCode;
$Number::Phone::CountryCode::VERSION = '0.03';
# ABSTRACT: DEPRECATED - Country Phone Dialing Prefixes

use strict;
use warnings;
use base qw(Class::Accessor);

__PACKAGE__->mk_ro_accessors(qw(country
                                country_code
                                idd_prefix
                                ndd_prefix));

warnings::warnif('deprecated',
    'Number::Phone::CountryCode is deprecated.  Please use Number::Phone::Country instead.');

# Codes hash
# ISO code maps to 3 element array containing:
# - Country prefix
# - IDD prefix
# - NDD prefix
my %Codes = (
    AD => ['376',   '00',  undef], # Andorra
    AE => ['971',   '00',    '0'], # United Arab Emirates
    AF => [ '93',   '00',    '0'], # Afghanistan
    AG => [  '1',  '011',    '1'], # Antigua and Barbuda
    AG => [  '1',  '011',    '1'], # Antigua and Barbuda
    AI => [  '1',  '011',    '1'], # Anguilla
    AL => ['355',   '00',    '0'], # Albania
    AM => ['374',   '00',    '8'], # Armenia
    AN => ['599',   '00',    '0'], # Netherlands Antilles
    AO => ['244',   '00',    '0'], # Angola
    AQ => ['672',  undef,  undef], # Antarctica
    AR => [ '54',   '00',    '0'], # Argentina
    AS => [  '1',  '011',    '1'], # American Samoa
    AT => [ '43',   '00',    '0'], # Austria
    AU => [ '61',   '00',  undef], # Australia
    AW => ['297',   '00',  undef], # Aruba
    AZ => ['994',   '00',    '8'], # Azerbaijan
    BA => ['387',   '00',    '0'], # Bosnia and Herzegovina
    BB => [  '1',  '011',    '1'], # Barbados
    BD => ['880',   '00',    '0'], # Bangladesh
    BE => [ '32',   '00',    '0'], # Belgium
    BF => ['226',   '00',  undef], # Burkina Faso
    BG => ['359',   '00',    '0'], # Bulgaria
    BH => ['973',   '00',  undef], # Bahrain
    BI => ['257',   '00',  undef], # Burundi
    BJ => ['229',   '00',  undef], # Benin
    BM => [  '1',  '011',    '1'], # Bermuda
    BN => ['673',   '00',    '0'], # Brunei Darussalam
    BO => ['591',   '00',    '0'], # Bolivia
    BR => [ '55',   '00',    '0'], # Brazil
    BS => [  '1',  '011',    '1'], # Bahamas
    BT => ['975',   '00',  undef], # Bhutan
    BV => [ '47',   '00',  undef], # Bouvet Island - Norway
    BW => ['267',   '00',  undef], # Botswana
    BY => ['375',  '810',    '8'], # Belarus (IDD really 8**10)
    BZ => ['501',   '00',    '0'], # Belize
    CA => [  '1',  '011',    '1'], # Canada
    CC => [ '61', '0011',    '0'], # Cocos (Keeling) Islands
    CD => ['243',   '00',  undef], # Congo (Dem. Rep. of / Zaire)
    CF => ['236',   '00',  undef], # Central African Republic
    CG => ['242',   '00',  undef], # Congo
    CH => [ '41',   '00',    '0'], # Switzerland
    CI => ['225',   '00',    '0'], # Cote D'Ivoire
    CK => ['682',   '00',   '00'], # Cook Islands
    CL => [ '56',   '00',    '0'], # Chile
    CM => ['237',   '00',  undef], # Cameroon
    CN => [ '86',   '00',    '0'], # China
    CO => [ '57',  '009',   '09'], # Colombia
    CR => ['506',   '00',  undef], # Costa Rica
    CU => [ '53',  '119',    '0'], # Cuba
    CV => ['238',    '0',  undef], # Cape Verde Islands
    CX => [ '61', '0011',    '0'], # Christmas Island
    CY => ['357',   '00',  undef], # Cyprus
    CZ => ['420',   '00',  undef], # Czech Republic
    DE => [ '49',   '00',    '0'], # Germany
    DJ => ['253',   '00',  undef], # Djibouti
    DK => [ '45',   '00',  undef], # Denmark
    DM => [  '1',  '011',      1], # Dominica
    DO => [  '1',  '011',      1], # Dominican Republic
    DZ => ['213',   '00',    '7'], # Algeria
    EC => ['593',   '00',    '0'], # Ecuador
    EE => ['372',   '00',  undef], # Estonia
    EG => [ '20',   '00',    '0'], # Egypt
    EH => ['212',   '00',    '0'], # Western Sahara
    ER => ['291',   '00',    '0'], # Eritrea
    ES => [ '34',   '00',  undef], # Spain
    ET => ['251',   '00',    '0'], # Ethiopia
    FI => ['358',   '00',    '0'], # Finland
    FJ => ['679',   '00',  undef], # Fiji
    FK => ['500',   '00',  undef], # Falkland Islands (Malvinas)
    FM => ['691',  '011',    '1'], # Micronesia, Federated States of
    FO => ['298',   '00',  undef], # Faroe Islands
    FR => [ '33',   '00',  undef], # France
    GA => ['241',   '00',  undef], # Gabonese Republic
    GB => [ '44',   '00',    '0'], # United Kingdom
    GD => [  '1',  '011',    '4'], # Grenada
    GE => ['995',  '810',    '8'], # Georgia
    GF => ['594',   '00',  undef], # French Guiana
    GH => ['233',   '00',  undef], # Ghana
    GI => ['350',   '00',  undef], # Gibraltar
    GL => ['299',   '00',  undef], # Greenland
    GM => ['220',   '00',  undef], # Gambia
    GN => ['224',   '00',    '0'], # Guinea
    GP => ['590',   '00',  undef], # Guadeloupe
    GQ => ['240',   '00',  undef], # Equatorial Guinea
    GR => [ '30',   '00',  undef], # Greece
    GS => ['995',  '810',    '8'], # South Georgia and the South Sandwich Islands (IDD really 8**10)
    GT => ['502',   '00',  undef], # Guatemala
    GU => [  '1',  '011',    '1'], # Guam
    GW => ['245',   '00',  undef], # Guinea-Bissau
    GY => ['592',  '001',    '0'], # Guyana
    HK => ['852',  '001',  undef], # Hong Kong
    HM => ['692',   '00',    '0'], # Heard Island & McDonald Islands
    HN => ['504',   '00',    '0'], # Honduras
    HR => ['385',   '00',    '0'], # Croatia
    HT => ['509',   '00',    '0'], # Haiti
    HU => [ '36',   '00',   '06'], # Hungary
    ID => [ '62',  '001',    '0'], # Indonesia
    IE => ['353',   '00',    '0'], # Ireland
    IL => ['972',   '00',    '0'], # Israel
    IN => [ '91',   '00',    '0'], # India
    IO => ['246',   '00',  undef], # British Indian Ocean Territory
    IQ => ['964',   '00',    '0'], # Iraq
    IR => [ '98',   '00',    '0'], # Iran, Islamic Republic of
    IS => ['354',   '00',    '0'], # Iceland
    IT => [ '39',   '00',  undef], # Italy
    JM => [  '1',  '011',    '1'], # Jamaica
    JO => ['962',   '00',    '0'], # Jordan
    JP => [ '81',  '001',    '0'], # Japan
    KE => ['254',  '000',    '0'], # Kenya
    KG => ['996',   '00',    '0'], # Kyrgyzstan
    KH => ['855',  '001',    '0'], # Cambodia
    KI => ['686',   '00',    '0'], # Kiribati
    KM => ['269',   '00',  undef], # Comoros
    KN => [  '1',  '011',    '1'], # Saint Kitts and Nevis
    KP => ['850',   '00',    '0'], # Korea, Democratic People's Republic of
    KR => [ '82',  '001',    '0'], # Korea (South)
    KW => ['965',   '00',    '0'], # Kuwait
    KY => [  '1',  '011',    '1'], # Cayman Islands
    KZ => [  '7',  '810',    '8'], # Kazakhstan (IDD really 8**10)
    LA => ['856',   '00',    '0'], # Laos
    LB => ['961',   '00',    '0'], # Lebanon
    LC => [  '1',  '011',    '1'], # Saint Lucia
    LI => ['423',   '00',  undef], # Liechtenstein
    LK => [ '94',   '00',    '0'], # Sri Lanka
    LR => ['231',   '00',   '22'], # Liberia
    LS => ['266',   '00',    '0'], # Lesotho
    LT => ['370',   '00',    '8'], # Lithuania
    LU => ['352',   '00',  undef], # Luxembourg
    LV => ['371',   '00',    '8'], # Latvia
    LY => ['218',   '00',    '0'], # Libyan Arab Jamahiriya
    MA => ['212',   '00',  undef], # Morocco
    MC => ['377',   '00',    '0'], # Monaco
    MD => ['373',   '00',    '0'], # Moldova, Republic of
    ME => ['382',   '99',    '0'], # Montenegro
    MG => ['261',   '00',    '0'], # Madagascar
    MH => ['692',  '011',    '1'], # Marshall Islands
    MK => ['389',   '00',    '0'], # Macedonia, the Former Yugoslav Republic of
    ML => ['223',   '00',    '0'], # Mali
    MM => [ '95',   '00',  undef], # Myanmar
    MN => ['976',  '001',    '0'], # Mongolia
    MO => ['853',   '00',    '0'], # Macao
    MP => [  '1',  '011',    '1'], # Northern Mariana Islands
    MQ => ['596',   '00',    '0'], # Martinique
    MR => ['222',   '00',    '0'], # Mauritania
    MS => [  '1',  '011',    '1'], # Montserrat
    MT => ['356',   '00',   '21'], # Malta
    MU => ['230',   '00',    '0'], # Mauritius
    MV => ['960',   '00',    '0'], # Maldives
    MW => ['265',   '00',  undef], # Malawi
    MX => [ '52',   '00',   '01'], # Mexico
    MY => [ '60',   '00',    '0'], # Malaysia
    MZ => ['258',   '00',    '0'], # Mozambique
    NA => ['264',   '00',    '0'], # Namibia
    NC => ['687',   '00',    '0'], # New Caledonia
    NE => ['227',   '00',    '0'], # Niger
    NF => ['672',   '00',  undef], # Norfolk Island
    NG => ['234',  '009',    '0'], # Nigeria
    NI => ['505',   '00',    '0'], # Nicaragua
    NL => [ '31',   '00',    '0'], # Netherlands
    NO => [ '47',   '00',  undef], # Norway
    NP => ['977',   '00',    '0'], # Nepal
    NR => ['674',   '00',    '0'], # Nauru
    NU => ['683',   '00',    '0'], # Niue
    NZ => [ '64',   '00',    '0'], # New Zealand
    OM => ['968',   '00',    '0'], # Oman
    PA => ['507',   '00',    '0'], # Panama
    PE => [ '51',   '00',    '0'], # Peru
    PF => ['689',   '00',  undef], # French Polynesia
    PG => ['675',   '05',  undef], # Papua New Guinea
    PH => [ '63',   '00',    '0'], # Philippines
    PK => [ '92',   '00',    '0'], # Pakistan
    PL => [ '48',   '00',    '0'], # Poland
    PM => ['508',   '00',    '0'], # Saint Pierre and Miquelon
    PN => ['872', undef,   undef], # Pitcairn
    PR => [  '1',  '011',    '1'], # Puerto Rico
    PS => ['970',   '00',    '0'], # Palestinian Territory, Occupied
    PT => ['351',   '00',  undef], # Portugal
    PW => ['680',  '011',  undef], # Palau
    PY => ['595',  '002',    '0'], # Paraguay
    QA => ['974',   '00',    '0'], # Qatar
    RE => ['262',   '00',    '0'], # Reunion
    RO => [ '40',   '00',    '0'], # Romania
    RS => ['381',   '99',    '0'], # Serbia
    RU => [  '7',  '810',    '8'], # Russia 8**10 NOTE: may change to 00, 0
    RW => ['250',   '00',    '0'], # Rwanda
    SA => ['966',   '00',    '0'], # Saudi Arabia
    SB => ['677',   '00',  undef], # Solomon Islands
    SC => ['248',   '00',    '0'], # Seychelles
    SD => ['249',   '00',    '0'], # Sudan
    SE => [ '46',   '00',    '0'], # Sweden
    SG => [ '65',  '001',  undef], # Singapore
    SH => ['290',   '00',  undef], # Saint Helena
    SI => ['386',   '00',    '0'], # Slovenia
    SJ => ['378',   '00',    '0'], # Svalbard and Jan Mayen
    SK => ['421',   '00',    '0'], # Slovakia
    SL => ['232',   '00',    '0'], # Sierra Leone
    SM => ['378',   '00',    '0'], # San Marino
    SN => ['221',   '00',    '0'], # Senegal
    SO => ['252',   '00',  undef], # Somalia
    SR => ['597',   '00',  undef], # Suriname
    ST => ['239',   '00',    '0'], # Sao Tome and Principe
    SV => ['503',   '00',  undef], # El Salvador
    SY => ['963',   '00',    '0'], # Syria
    SZ => ['268',   '00',  undef], # Swaziland
    TC => [  '1',  '011',    '1'], # Turks and Caicos Islands
    TD => ['235',   '15',  undef], # Chad
    TF => ['596',   '00',    '0'], # French Southern Territories
    TG => ['228',   '00',  undef], # Togo
    TH => [ '66',  '001',    '0'], # Thailand
    TJ => ['992',  '810',    '8'], # Tajikistan (IDD really 8**10)
    TK => ['690',   '00',  undef], # Tokelau
    TL => ['670',   '00',  undef], # Timor-Leste
    TM => ['993',  '810',    '8'], # Turkmenistan (IDD really 8**10)
    TN => ['216',   '00',    '0'], # Tunisia
    TO => ['676',   '00',  undef], # Tonga Islands
    TR => [ '90',   '00',    '0'], # Turkey
    TT => [  '1',  '011',    '1'], # Trinidad and Tobago
    TV => ['688',   '00',  undef], # Tuvalu
    TW => ['886',  '002',  undef], # Taiwan, Province of China
    TZ => ['255',  '000',    '0'], # Tanzania, United Republic of
    UA => ['380',  '810',    '8'], # Ukraine (IDD really 8**10)
    UG => ['256',  '000',    '0'], # Uganda
    US => [  '1',  '011',    '1'], # United States
    UY => ['598',   '00',    '0'], # Uruguay
    UZ => ['998',  '810',    '8'], # Uzbekistan (IDD really 8**10)
    VA => ['379',   '00',  undef], # Holy See (Vatican City State)
    VC => [  '1',  '011',    '1'], # Saint Vincent and the Grenadines
    VE => [ '58',   '00',    '0'], # Venezuela
    VG => [  '1',  '011',    '1'], # Virgin Islands, British
    VI => [  '1',  '011',    '1'], # Virgin Islands, U.S.
    VN => [ '84',   '00',    '0'], # Viet Nam
    VU => ['678',   '00',  undef], # Vanuatu
    WF => ['681',   '19',  undef], # Wallis and Futuna Islands
    WS => ['685',    '0',    '0'], # Samoa (Western)
    YE => ['967',   '00',    '0'], # Yemen
    YT => ['269',   '00',  undef], # Mayotte
    ZA => [ '27',   '09',    '0'], # South Africa
    ZM => ['260',   '00',    '0'], # Zambia
    ZW => ['263',  '110',    '0'], # Zimbabwe
);


sub new {
    my ($class, $country) = @_;

    $country = uc $country;

    my $data = $Codes{$country};

    # return nothing if no data for this country code.
    return unless defined $data;

    return $class->SUPER::new({
        country      => $country,
        country_code => $data->[0],
        idd_prefix   => $data->[1],
        ndd_prefix   => $data->[2]
    });
}


sub countries {
    return sort keys %Codes;
}


sub is_supported {
    my ($class, $code) = @_;

    $code = uc $code;

    return defined $Codes{$code} ? 1 : 0;
}

1;

__END__