The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# 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.20161206201832;

my $formatters = [
                {
                  'leading_digits' => '[235]',
                  'pattern' => '(\\d{2})(\\d{3})(\\d{4})'
                },
                {
                  'pattern' => '(\\d{3})(\\d{5})',
                  'leading_digits' => '8'
                }
              ];

my $validators = {
                'voip' => '',
                '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}
        ',
                '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}',
                'mobile' => '
          (?:
            2[034678]\\d|
            5(?:
              [047]\\d|
              5[3-6]|
              6[01]
            )
          )\\d{6}
        ',
                'pager' => '',
                'personal_number' => '',
                'specialrate' => ''
              };
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;