File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	25	100.0

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

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

my $formatters = [
                {
                  'format' => '$1',
                  'leading_digits' => '19',
                  'pattern' => '(\\d{5})'
                },
                {
                  'format' => '$1 $2',
                  'leading_digits' => '
            11|
            20|
            64
          ',
                  'pattern' => '(\\d{3})(\\d{3})'
                },
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '
            (?:
              1[2-8]|
              2[2-69]|
              3[2-4]|
              4[1-468]|
              5[24-689]|
              6[1-3578]|
              7[14-7]|
              8[1-79]|
              9[145]
            )19
          ',
                  'pattern' => '(\\d{2})(\\d{2})(\\d{3})'
                },
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '64',
                  'pattern' => '(\\d{3})(\\d{2})(\\d{2,3})'
                },
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '
            21|
            39|
            45|
            5[0137]|
            6[0469]|
            7[02389]|
            8(?:
              0[14]|
              8
            )
          ',
                  'pattern' => '(\\d{3})(\\d{3})(\\d{3})'
                },
                {
                  'format' => '$1 $2 $3 $4',
                  'leading_digits' => '
            1[2-8]|
            [2-7]|
            8[1-79]|
            9[145]
          ',
                  'pattern' => '(\\d{2})(\\d{3})(\\d{2})(\\d{2})'
                },
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '8',
                  'pattern' => '(\\d{3})(\\d{3})(\\d{3,4})'
                }
              ];

my $validators = {
                'fixed_line' => '
          47\\d{7}|
          (?:
            1[2-8]|
            2[2-69]|
            3[2-4]|
            4[1-468]|
            5[24-689]|
            6[1-3578]|
            7[14-7]|
            8[1-79]|
            9[145]
          )(?:
            [02-9]\\d{6}|
            1(?:
              [0-8]\\d{5}|
              9\\d{3}(?:
                \\d{2}
              )?
            )
          )
        ',
                'geographic' => '
          47\\d{7}|
          (?:
            1[2-8]|
            2[2-69]|
            3[2-4]|
            4[1-468]|
            5[24-689]|
            6[1-3578]|
            7[14-7]|
            8[1-79]|
            9[145]
          )(?:
            [02-9]\\d{6}|
            1(?:
              [0-8]\\d{5}|
              9\\d{3}(?:
                \\d{2}
              )?
            )
          )
        ',
                'mobile' => '
          21(?:
            1(?:
              [145]\\d|
              3[1-5]
            )|
            2[0-4]\\d
          )\\d{4}|
          (?:
            45|
            5[0137]|
            6[069]|
            7[2389]|
            88
          )\\d{7}
        ',
                'pager' => '64\\d{4,7}',
                'personal_number' => '',
                'specialrate' => '(801\\d{6})|(70[01346-8]\\d{6})|(804\\d{6})',
                'toll_free' => '800\\d{6,7}',
                'voip' => '39\\d{7}'
              };
my %areanames = ();
$areanames{pl} = {"4859", "Słupsk",
"4885", "Białystok",
"4854", "Włocławek",
"4833", "Bielsko\-Biała",
"4867", "Piła",
"4886", "Łomża",
"4842", "Łódź",
"4883", "Biała\ Podlaska",
"4874", "Wałbrzych",
"4871", "Wrocław",
"4829", "Ostrołęka",
"4824", "Płock",
"4887", "Suwałki",
"4822", "Warszawa",
"4882", "Chełm",};
$areanames{en} = {"4874", "Walbrzych",
"4858", "Gdańsk",
"4884", "Zamość",
"4846", "Skierniewice",
"4889", "Olsztyn",
"4863", "Konin",
"4855", "Elbląg",
"4848", "Radom",
"4832", "Katowice",
"4856", "Toruń",
"4824", "Plock",
"4814", "Tarnów",
"4881", "Lublin",
"4871", "Wroclaw",
"4829", "Ostrolęka",
"4834", "Częstochowa",
"4812", "Kraków",
"4865", "Leszno",
"4822", "Warsaw",
"4868", "Zielona\ Góra",
"4887", "Suwalki",
"4894", "Koszalin",
"4877", "Opole",
"4882", "Chelm",
"4843", "Sieradz",
"4891", "Szczecin",
"4817", "Rzeszów",
"4854", "Wloclawek",
"4833", "Bielsko\-Biala",
"4867", "Pila",
"4816", "Przemyśl",
"4841", "Kielce",
"4859", "Slupsk",
"4885", "Bialystok",
"4875", "Jelenia\ Góra",
"4876", "Legnica",
"4886", "Lomża",
"4844", "Piotrków\ Trybunalski",
"4818", "Nowy\ Sącz",
"4825", "Siedlce",
"4815", "Tarnobrzeg",
"4862", "Kalisz",
"4842", "Lódź",
"4895", "Gorzów\ Wielkopolski",
"4883", "Biala\ Podlaska",
"4813", "Krosno",
"4852", "Bydgoszcz",
"4861", "Poznań",
"4823", "Ciechanów",};

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