# automatically generated file, don't edit
# Copyright 2011 David Cantrell, derived from data from libphonenumber
# http://code.google.com/p/libphonenumber/
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
package Number::Phone::StubCountry::GH;
use base qw(Number::Phone::StubCountry);
use strict;
use warnings;
use utf8;
our $VERSION = 1.20170314173054;
my $formatters = [
{
'leading_digits' => '[235]',
'pattern' => '(\\d{2})(\\d{3})(\\d{4})'
},
{
'leading_digits' => '8',
'pattern' => '(\\d{3})(\\d{5})'
}
];
my $validators = {
'voip' => '',
'pager' => '',
'fixed_line' => '
3(?:
0[237]\\d|
[167](?:
2[0-6]|
7\\d
)|
2(?:
2[0-5]|
7\\d
)|
3(?:
2[0-3]|
7\\d
)|
4(?:
2[013-9]|
3[01]|
7\\d
)|
5(?:
2[0-7]|
7\\d
)|
8(?:
2[0-2]|
7\\d
)|
9(?:
20|
7\\d
)
)\\d{5}
',
'mobile' => '
(?:
2[034678]\\d|
5(?:
[0457]\\d|
6[01]
)
)\\d{6}
',
'specialrate' => '',
'personal_number' => '',
'geographic' => '
3(?:
0[237]\\d|
[167](?:
2[0-6]|
7\\d
)|
2(?:
2[0-5]|
7\\d
)|
3(?:
2[0-3]|
7\\d
)|
4(?:
2[013-9]|
3[01]|
7\\d
)|
5(?:
2[0-7]|
7\\d
)|
8(?:
2[0-2]|
7\\d
)|
9(?:
20|
7\\d
)
)\\d{5}
',
'toll_free' => '800\\d{5}'
};
my %areanames = (
233302 => "Accra",
233303 => "Tema",
2333035 => "Ada",
233307 => "Greater\ Accra\ Region",
2333120 => "Takoradi",
2333121 => "Axim",
2333122 => "Elubo",
2333123 => "Tarkwa",
2333124 => "Asankragwa",
2333125 => "Samreboi",
2333126 => "Enchi",
233317 => "Western\ Region",
2333220 => "Kumasi",
2333221 => "Konongo",
2333222 => "Ashanti\ Mampong",
2333223 => "Ejura",
2333224 => "Bekwai",
2333225 => "Obuasi",
233327 => "Ashanti\ Region",
2333320 => "Swedru",
2333321 => "Cape\ Coast",
2333322 => "Dunkwa",
2333323 => "Winneba",
233337 => "Central\ Region",
2333420 => "Koforidua",
2333421 => "Nsawam",
2333423 => "Mpraeso",
2333424 => "Donkorkrom",
2333425 => "Suhum",
2333426 => "Asamankese",
2333427 => "Akuapim\ Mampong",
2333428 => "Aburi",
23334292 => "Akim\ Oda",
2333430 => "Akosombo",
2333431 => "Nkawkaw",
233347 => "Eastern\ Region",
2333520 => "Sunyani",
2333521 => "Bechem",
2333522 => "Berekum",
2333523 => "Dormaa\ Ahenkro",
2333524 => "Wenchi",
2333525 => "Techiman",
2333526 => "Atebubu",
2333527 => "Yeji",
233357 => "Brong\-Ahafo\ Region",
2333620 => "Ho",
2333621 => "Amedzofe",
2333623 => "Kpandu",
2333624 => "Kete\-Krachi",
2333625 => "Denu\/Aflao",
2333626 => "Keta\/Akatsi",
2333627 => "Hohoe",
233367 => "Volta\ Region",
2333720 => "Tamale",
2333721 => "Walewale",
2333722 => "Buipe",
2333723 => "Damongo",
2333724 => "Yendi",
2333725 => "Bole",
2333726 => "Salaga",
233377 => "Northern\ Region",
2333820 => "Bolgatanga",
2333821 => "Navrongo",
2333822 => "Bawku",
233387 => "Upper\ East\ Region",
2333920 => "Wa",
233397 => "Upper\ West\ Region",
);
sub new {
my $class = shift;
my $number = shift;
$number =~ s/(^\+233|\D)//g;
my $self = bless({ number => $number, formatters => $formatters, validators => $validators, areanames => \%areanames}, $class);
return $self if ($self->is_valid());
$number =~ s/(^0)//g;
$self = bless({ number => $number, formatters => $formatters, validators => $validators, areanames => \%areanames}, $class);
return $self->is_valid() ? $self : undef;
}
1;