File Coverage

blib/lib/Number/Phone/StubCountry/VN.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::VN;
use base qw(Number::Phone::StubCountry);

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

my $formatters = [
                {
                  'format' => '$1 $2',
                  'intl_format' => 'NA',
                  'leading_digits' => '[17]99',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{3})(\\d{4})'
                },
                {
                  'format' => '$1 $2',
                  'leading_digits' => '80',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{2})(\\d{5})'
                },
                {
                  'format' => '$1 $2',
                  'intl_format' => 'NA',
                  'leading_digits' => '69',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{3})(\\d{4,5})'
                },
                {
                  'format' => '$1 $2',
                  'leading_digits' => '1',
                  'pattern' => '(\\d{4})(\\d{4,6})'
                },
                {
                  'format' => '$1 $2 $3 $4',
                  'leading_digits' => '[69]',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{2})(\\d{3})(\\d{2})(\\d{2})'
                },
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '[3578]',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{3})(\\d{3})(\\d{3})'
                },
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '2[48]',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{2})(\\d{4})(\\d{4})'
                },
                {
                  'format' => '$1 $2 $3',
                  'leading_digits' => '2',
                  'national_rule' => '0$1',
                  'pattern' => '(\\d{3})(\\d{4})(\\d{3})'
                }
              ];

my $validators = {
                'fixed_line' => '
          2(?:
            0[3-9]|
            1[0-689]|
            2[0-25-9]|
            [38][2-9]|
            4[2-8]|
            5[124-9]|
            6[0-39]|
            7[0-7]|
            9[0-4679]
          )\\d{7}
        ',
                'geographic' => '
          2(?:
            0[3-9]|
            1[0-689]|
            2[0-25-9]|
            [38][2-9]|
            4[2-8]|
            5[124-9]|
            6[0-39]|
            7[0-7]|
            9[0-4679]
          )\\d{7}
        ',
                'mobile' => '
          (?:
            5(?:
              2[238]|
              59
            )|
            89[6-9]|
            99[013-9]
          )\\d{6}|
          (?:
            3\\d|
            5[689]|
            7[06-9]|
            8[1-8]|
            9[0-8]
          )\\d{7}
        ',
                'pager' => '',
                'personal_number' => '',
                'specialrate' => '(1900\\d{4,6})|(
          (?:
            [17]99|
            80\\d
          )\\d{4}|
          69\\d{5,6}
        )',
                'toll_free' => '
          1800\\d{4,6}|
          12(?:
            0[13]|
            28
          )\\d{4}
        ',
                'voip' => '672\\d{6}'
              };
my %areanames = ();
$areanames{en} = {"84291", "Bac\ Lieu\ province",
"8428", "Ho\ Chi\ Minh\ City",
"84212", "Son\ La\ province",
"84260", "Kon\ Tum\ province",
"84271", "Binh\ Phuoc\ province",
"84263", "Lam\ Dong\ province",
"84219", "Ha\ Giang\ province",
"84228", "Nam\ Dinh\ province",
"84233", "Quang\ Tri\ province",
"84235", "Quang\ Nam\ province",
"84251", "Dong\ Nai\ province",
"84227", "Thai\ Binh\ province",
"84236", "Da\ Nang",
"84273", "Tien\ Giang\ province",
"84214", "Lao\ Cai\ province",
"84275", "Ben\ Tre\ province",
"84222", "Bac\ Ninh\ province",
"84276", "Tay\ Ninh\ province",
"84296", "An\ Giang\ province",
"84293", "Hau\ Giang\ province",
"84255", "Quang\ Ngai\ province",
"84203", "Quang\ Ninh\ province",
"84229", "Ninh\ Binh\ province",
"84218", "Hoa\ Binh\ province",
"84205", "Lang\ Son\ province",
"84256", "Binh\ Dinh\ province",
"84290", "Ca\ Mau\ province",
"84206", "Cao\ Bang\ province",
"84270", "Ving\ Long\ province",
"84261", "Dak\ Nong\ province",
"84238", "Nghe\ An\ province",
"84211", "Vinh\ Phuc\ province",
"84292", "Can\ Tho\ City",
"84272", "Long\ An\ province",
"84226", "Ha\ Nam\ province",
"84237", "Thanh\ Hoa\ province",
"84259", "Ninh\ Thuan\ province",
"84225", "Hai\ Phong\ City",
"84209", "Bac\ Can\ province",
"84234", "Thua\ Thien\-Hue\ province",
"84299", "Soc\ Trang\ province",
"84220", "Hai\ Duong\ province",
"8424", "Hanoi\ City",
"84252", "Binh\ Thuan\ province",
"84221", "Hung\ Yen\ province",
"84257", "Phu\ Yen\ province",
"84207", "Tuyen\ Quang\ province",
"84294", "Tra\ Vinh\ province",
"84239", "Ha\ Tinh\ province",
"84215", "Dien\ Bien\ province",
"84274", "Binh\ Duong\ province",
"84208", "Thai\ Nguyen\ province",
"84213", "Lai\ Chau\ province",
"84258", "Khanh\ Hoa\ province",
"84216", "Yen\ Bai\ province",
"84269", "Gia\ Lai\ province",
"84232", "Quang\ Binh\ province",
"84277", "Dong\ Thap\ province",
"84210", "Phu\ Tho\ province",
"84204", "Bac\ Giang\ province",
"84262", "Dak\ Lak\ province",
"84254", "Ba\ Ria\ Vung\ Tau\ province",
"84297", "Kien\ Giang\ province",};
$areanames{vi} = {"84297", "Kiên\ Giang",
"84204", "Bắc\ Giang",
"84262", "Đăk\ Lăk",
"84254", "Bà\ Rịa\-Vũng\ Tàu",
"84232", "Quảng\ Bình",
"84210", "Phú\ Thọ",
"84277", "Đồng\ Tháp",
"84216", "Yên\ Bái",
"84269", "Gia\ Lai",
"84208", "Thái\ Nguyên",
"84274", "Bình\ Dương",
"84215", "Điện\ Biên",
"84213", "Lai\ Châu",
"84258", "Khánh\ Hòa",
"84294", "Trà\ Vinh",
"84239", "Hà\ Tĩnh",
"84221", "Hưng\ Yên",
"84257", "Phú\ Yên",
"84207", "Tuyên\ Quang",
"8424", "Thủ\ đô\ Hà\ Nội",
"84252", "Bình\ Thuận",
"84220", "Hải\ Dương",
"84299", "Sóc\ Trăng",
"84234", "Thừa\ Thiên\-Huế",
"84259", "Ninh\ Thuận",
"84225", "Thành\ phố\ Hải\ Phòng",
"84209", "Tỉnh\ Bắc\ Kạn",
"84272", "Long\ An",
"84226", "Hà\ Nam",
"84237", "Thanh\ Hóa",
"84211", "Vĩnh\ Phúc",
"84292", "Thành\ phố\ Cần\ Thơ",
"84238", "Nghệ\ An",
"84261", "Đăk\ Nông",
"84270", "Vĩnh\ Long",
"84256", "Bình\ Định",
"84290", "Cà\ Mau",
"84206", "Cao\ Bằng",
"84203", "Quảng\ Ninh",
"84255", "Quảng\ Ngãi",
"84229", "Ninh\ Bình",
"84218", "Hòa\ Bình",
"84205", "Lạng\ Sơn",
"84293", "Hậu\ Giang",
"84296", "An\ Giang",
"84222", "Bắc\ Ninh",
"84276", "Tây\ Ninh",
"84273", "Tiền\ Giang",
"84275", "Bến\ Tre",
"84214", "Lào\ Cai",
"84227", "Thái\ Bình",
"84251", "Đồng\ Nai",
"84236", "TP\ Đà\ Nẵng",
"84233", "Quảng\ Trị",
"84235", "Quảng\ Nam",
"84219", "Hà\ Giang",
"84228", "Nam\ Định",
"84263", "Lâm\ Đồng",
"84271", "Bình\ Phước",
"84260", "Kon\ Tum",
"84291", "Bạc\ Liêu",
"8428", "Thành\ phố\ Hồ\ Chí\ Minh",
"84212", "Sơn\ La",};

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