File Coverage

blib/lib/Number/Phone/StubCountry/TN.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


line stmt bran cond sub pod time code
1             # automatically generated file, don't edit
2              
3              
4              
5             # Copyright 2023 David Cantrell, derived from data from libphonenumber
6             # http://code.google.com/p/libphonenumber/
7             #
8             # Licensed under the Apache License, Version 2.0 (the "License");
9             # you may not use this file except in compliance with the License.
10             # You may obtain a copy of the License at
11             #
12             # http://www.apache.org/licenses/LICENSE-2.0
13             #
14             # Unless required by applicable law or agreed to in writing, software
15             # distributed under the License is distributed on an "AS IS" BASIS,
16             # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
17             # See the License for the specific language governing permissions and
18             # limitations under the License.
19             package Number::Phone::StubCountry::TN;
20 2     2   1148 use base qw(Number::Phone::StubCountry);
  2         6  
  2         218  
21              
22 2     2   19 use strict;
  2         5  
  2         52  
23 2     2   12 use warnings;
  2         6  
  2         51  
24 2     2   13 use utf8;
  2         4  
  2         12  
25             our $VERSION = 1.20230614174404;
26              
27             my $formatters = [
28             {
29             'format' => '$1 $2 $3',
30             'leading_digits' => '[2-57-9]',
31             'pattern' => '(\\d{2})(\\d{3})(\\d{3})'
32             }
33             ];
34              
35             my $validators = {
36             'fixed_line' => '
37             81200\\d{3}|
38             (?:
39             3[0-2]|
40             7\\d
41             )\\d{6}
42             ',
43             'geographic' => '
44             81200\\d{3}|
45             (?:
46             3[0-2]|
47             7\\d
48             )\\d{6}
49             ',
50             'mobile' => '
51             3(?:
52             001|
53             [12]40
54             )\\d{4}|
55             (?:
56             (?:
57             [259]\\d|
58             4[0-7]
59             )\\d|
60             3(?:
61             1[1-35]|
62             6[0-4]|
63             91
64             )
65             )\\d{5}
66             ',
67             'pager' => '',
68             'personal_number' => '',
69             'specialrate' => '(8[12]10\\d{4})|(88\\d{6})',
70             'toll_free' => '8010\\d{4}',
71             'voip' => ''
72             };
73             my %areanames = ();
74             $areanames{en} = {"21677", "Haffouz\/Kairouan\/Kasserine",
75             "21675", "Gabes\/Kebili\/Medenine\/Tataouine",
76             "21673", "Chebba\/Hamman\-Sousse\/Khenis\/Mahdia\/Monastir\/Sousse",
77             "21676", "Gafsa\/Sidi\ Bouzid\/Tozeur",
78             "21672", "Bizerte\/Nabeul\/Zaghouan",
79             "21678", "Beja\/Jendouba\/Kef\/La\ Kef\/Siliana\/Tabarka",
80             "21670", "Ben\ Arous",
81             "21674", "Agareb\/Sfax",
82             "21671", "Ariana\/Ben\ Arous\/Carthage\/Tunis",
83             "21679", "Ariana\/Ben\ Arous\/Manouba\/Tunis",};
84              
85             sub new {
86 16     16 1 40 my $class = shift;
87 16         33 my $number = shift;
88 16         107 $number =~ s/(^\+216|\D)//g;
89 16         118 my $self = bless({ country_code => '216', number => $number, formatters => $formatters, validators => $validators, areanames => \%areanames}, $class);
90 16 100       129 return $self->is_valid() ? $self : undef;
91             }
92             1;