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::GM;
use base qw(Number::Phone::StubCountry);

use strict;
use warnings;
our $VERSION = 1.20141203221723;

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

1;