|
our $VERSION = 1.20250323211814;
my $formatters = [];
my $validators = {
'fixed_line' => '6[2-467]\\d{3}' ,
'geographic' => '6[2-467]\\d{3}' ,
'mobile' => '4\\d{4}' ,
'pager' => '' ,
'personal_number' => '' ,
'specialrate' => '(
(?:
0[1-9]|
[1589]\\d
)\\d{4}
)',
'toll_free' => '' ,
'voip' => ''
};
my %areanames = ();
$areanames {en} = { "24766" , "Georgetown" ,
"24764" , "Two\ Boats" ,
"24762" , "US\ Base" ,
"24763" , "Travellers\ Hill\ \&\ Airhead" ,
"24767" , "Georgetown" ,};
my $timezones = {
'' => [
'Atlantic/St_Helena'
]
};
sub new {
my $class = shift ;
my $number = shift ;
$number =~ s/(^\+247|\D)//g;
my $self = bless ({ country_code => '247' , number => $number , formatters => $formatters , validators => $validators , timezones => $timezones , areanames => \ %areanames }, $class );
return $self ->is_valid() ? $self : undef ;
}
1;
|