|
our $VERSION = 1.20250323211819;
my $formatters = [
{
'format' => '$1 $2' ,
'leading_digits' => '[2-578]' ,
'pattern' => '(\\d{2})(\\d{3})'
}
];
my $validators = {
'fixed_line' => '
(?:
2\\d|
3[13-7]|
4[1-5]
)\\d{3}
',
'geographic' => '
(?:
2\\d|
3[13-7]|
4[1-5]
)\\d{3}
',
'mobile' => '[578]\\d{4}' ,
'pager' => '' ,
'personal_number' => '' ,
'specialrate' => '' ,
'toll_free' => '' ,
'voip' => ''
};
my %areanames = ();
$areanames {en} = { "68244" , "Rakahanga" ,
"68243" , "Manihiki" ,
"68241" , "Pukapuka" ,
"68245" , "Nassau" ,
"68237" , "Palmerston" ,
"68233" , "Atiu" ,
"68242" , "Penrhyn" ,
"68234" , "Mangaia" ,
"68231" , "Aitutaki" ,
"6822" , "Rarotonga" ,
"68236" , "Mitiaro" ,
"68235" , "Mauke" ,};
my $timezones = {
'' => [
'Pacific/Rarotonga'
]
};
sub new {
my $class = shift ;
my $number = shift ;
$number =~ s/(^\+682|\D)//g;
my $self = bless ({ country_code => '682' , number => $number , formatters => $formatters , validators => $validators , timezones => $timezones , areanames => \ %areanames }, $class );
return $self ->is_valid() ? $self : undef ;
}
1;
|