File Coverage

blib/lib/Number/Phone/StubCountry/GE.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	29	30	96.6

# automatically generated file, don't edit



# Copyright 2023 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::GE;
use base qw(Number::Phone::StubCountry);

use strict;
use warnings;
use utf8;
our $VERSION = 1.20230614174403;

my $formatters = [
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '70',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{3})(\\d{3})(\\d{3})'
                },
                {
                  'format' => '$1 $2 $3 $4',
                  'leading_digits' => '32',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{2})(\\d{3})(\\d{2})(\\d{2})'
                },
                {
                  'format' => '$1 $2 $3 $4',
                  'leading_digits' => '[57]',
                  'pattern' => '(\\d{3})(\\d{2})(\\d{2})(\\d{2})'
                },
                {
                  'format' => '$1 $2 $3 $4',
                  'leading_digits' => '[348]',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{3})(\\d{2})(\\d{2})(\\d{2})'
                }
              ];

my $validators = {
                'fixed_line' => '
          (?:
            3(?:
              [256]\\d|
              4[124-9]|
              7[0-4]
            )|
            4(?:
              1\\d|
              2[2-7]|
              3[1-79]|
              4[2-8]|
              7[239]|
              9[1-7]
            )
          )\\d{6}
        ',
                'geographic' => '
          (?:
            3(?:
              [256]\\d|
              4[124-9]|
              7[0-4]
            )|
            4(?:
              1\\d|
              2[2-7]|
              3[1-79]|
              4[2-8]|
              7[239]|
              9[1-7]
            )
          )\\d{6}
        ',
                'mobile' => '
          5(?:
            (?:
              (?:
                0555|
                1(?:
                  [17]77|
                  555
                )
              )[5-9]|
              757(?:
                7[7-9]|
                8[01]
              )
            )\\d|
            22252[0-4]
          )\\d\\d|
          (?:
            5(?:
              00(?:
                0\\d|
                44|
                5[05]|
                77|
                88|
                99
              )|
              1(?:
                1(?:
                  00|
                  [124]\\d|
                  3[01]
                )|
                4\\d\\d
              )|
              (?:
                44|
                68
              )\\d\\d|
              5(?:
                [0157-9]\\d\\d|
                200
              )|
              7(?:
                [0147-9]\\d\\d|
                5(?:
                  00|
                  [57]5
                )
              )|
              8(?:
                0(?:
                  [01]\\d|
                  2[0-4]
                )|
                58[89]|
                8(?:
                  55|
                  88
                )
              )|
              9(?:
                090|
                [1-35-9]\\d\\d
              )
            )|
            790\\d\\d
          )\\d{4}|
          5(?:
            0(?:
              070|
              505
            )|
            1(?:
              0[01]0|
              1(?:
                07|
                33|
                51
              )
            )|
            2(?:
              0[02]0|
              2[25]2
            )|
            3(?:
              0[03]0|
              3[35]3
            )|
            (?:
              40[04]|
              900
            )0|
            5222
          )[0-4]\\d{3}
        ',
                'pager' => '',
                'personal_number' => '',
                'specialrate' => '',
                'toll_free' => '800\\d{6}',
                'voip' => '70[67]\\d{6}'
              };
my %areanames = ();
$areanames{en} = {"995448", "Gulripshi",
"995479", "Chiatura",
"995349", "Akhmeta",
"995426", "Kobuleti",
"995364", "Aspindza",
"995365", "Akhaltsikhe",
"995341", "Rustavi",
"995354", "Lagodekhi",
"995355", "Signagi",
"995472", "Tsageri",
"995347", "Djava",
"995342", "Akhalgori",
"995371", "Kaspi",
"995496", "Ozurgeti",
"995370", "Gori",
"995372", "Gardabani",
"995447", "Gali",
"995435", "Sachkhere",
"995442", "Sukhumi",
"995434", "Bagdati",
"995413", "Senaki",
"995348", "Tianeti",
"995492", "Zestafoni",
"995353", "Gurdjaani",
"995497", "Tkibuli",
"995491", "Terdjola",
"995446", "Tkvarcheli",
"995363", "Tsalka",
"995427", "Xelvachauri",
"995422", "Batumi",
"995415", "Zugdidi",
"995414", "Xobi",
"995433", "Kharagauli",
"995346", "Dusheti",
"995351", "Sagaredjo",
"995416", "Tsalendjikha",
"995362", "Akhalkalaki",
"995350", "Telavi",
"995367", "Bordjomi",
"995361", "Ninotsminda",
"995352", "Kvareli",
"995357", "Marneuli",
"995493", "Poti",
"995360", "Dmanisi",
"995345", "Stefanstminda\/Kazbegi",
"995344", "Tskhinvali",
"995369", "Kareli",
"995359", "TetriTskaro",
"995423", "Xulo",
"995358", "Bolnisi",
"995439", "Ambrolauri",
"995368", "Khashuri",
"995431", "Kutaisi",
"995374", "Tigvi",
"995437", "Lentekhi",
"995432", "Vani",
"995445", "Ochamchire",
"995444", "Gudauta",
"995418", "Martvili",
"995494", "lanchxuti",
"995495", "Khoni",
"995473", "Oni",
"995436", "Tskaltubo",
"995412", "Abasha",
"995443", "Gagra",
"995366", "Adigeni",
"995373", "Mtskheta",
"995417", "Chkhorotskhu",
"995356", "DedoplisTskaro",
"995411", "Samtredia",
"995410", "Mestia",
"995419", "Choxatauri",
"99532", "Tbilisi",
"995425", "Qeda",
"995424", "Shuaxevi",};

    sub new {
      my $class = shift;
      my $number = shift;
      $number =~ s/(^\+995|\D)//g;
      my $self = bless({ country_code => '995', number => $number, formatters => $formatters, validators => $validators, areanames => \%areanames}, $class);
      return $self if ($self->is_valid());
      $number =~ s/^(?:0)//;
      $self = bless({ country_code => '995', number => $number, formatters => $formatters, validators => $validators, areanames => \%areanames}, $class);
      return $self->is_valid() ? $self : undef;
    }
1;