|
our $VERSION = 1.20250323211828;
my $formatters = [
{
'format' => '$1 $2' ,
'leading_digits' => '[2-9]' ,
'pattern' => '(\\d{3})(\\d{4})'
}
];
my $validators = {
'fixed_line' => '
(?:
4(?:
[23]\\d\\d|
4(?:
1[024679]|
[6-9]\\d
)
)|
5(?:
5(?:
3\\d|
4[0-7]
)|
6[67]\\d|
7(?:
1[04]|
2[035]|
3[58]|
48
)
)|
8\\d{3}
)\\d{3}
',
'geographic' => '
(?:
4(?:
[23]\\d\\d|
4(?:
1[024679]|
[6-9]\\d
)
)|
5(?:
5(?:
3\\d|
4[0-7]
)|
6[67]\\d|
7(?:
1[04]|
2[035]|
3[58]|
48
)
)|
8\\d{3}
)\\d{3}
',
'mobile' => '
(?:
[23679]\\d|
4[015]|
5[0-489]
)\\d{5}
',
'pager' => '' ,
'personal_number' => '' ,
'specialrate' => '' ,
'toll_free' => '' ,
'voip' => ''
};
my %areanames = ();
$areanames {en} = { "2205547" , "Jareng" ,
"2204412" , "Tanji" ,
"2204410" , "Brufut" ,
"2205735" , "Farafenni" ,
"2204489" , "Bwiam" ,
"220567" , "Sotuma" ,
"220446" , "Kotu\/Senegambia" ,
"2205666" , "Numeyel" ,
"220553" , "Soma" ,
"2205544" , "Bureng" ,
"2204482" , "Brikama\/Kanilia" ,
"220449" , "Bakau" ,
"2204480" , "Bondali" ,
"2204419" , "Kartong" ,
"2204483" , "Brikama\/Kanilia" ,
"2205710" , "Barra" ,
"2204486" , "Gunjur" ,
"2205738" , "Ngensanjal" ,
"2205725" , "Iliasa" ,
"220574" , "Kaur" ,
"220566" , "Baja\ Kunda\/Basse\/Fatoto\/Gambisara\/Garawol\/Misera\/Sambakunda\/Sudowol" ,
"220447" , "Yundum" ,
"2205676" , "Georgetown" ,
"22043" , "Bundung\/Serekunda" ,
"2205541" , "Kwenella" ,
"2204416" , "Tujereng" ,
"2205545" , "Pakaliba" ,
"2205720" , "Kerewan" ,
"2204414" , "Sanyang" ,
"2204487" , "Faraba" ,
"2205665" , "Kuntaur" ,
"2205723" , "Njabakunda" ,
"2205678" , "Brikama\-Ba" ,
"2205674" , "Bansang" ,
"2205540" , "Kaiaf" ,
"2204484" , "Brikama\/Kanilia" ,
"2204417" , "Sanyang" ,
"2205542" , "Nyorojattaba" ,
"2204488" , "Sibanor" ,
"2205543" , "Japeneh\/Soma" ,
"2205714" , "Ndugukebbe" ,
"22044195" , "Berending" ,
"2205546" , "Kudang" ,
"22042" , "Banjul" ,
"2204485" , "Kafuta" ,
"2204481" , "Brikama\/Kanilia" ,};
my $timezones = {
'' => [
'Africa/Banjul'
]
};
sub new {
my $class = shift ;
my $number = shift ;
$number =~ s/(^\+220|\D)//g;
my $self = bless ({ country_code => '220' , number => $number , formatters => $formatters , validators => $validators , timezones => $timezones , areanames => \ %areanames }, $class );
return $self ->is_valid() ? $self : undef ;
}
1;
|