| line |
true |
false |
branch |
|
27
|
1 |
5108 |
if (grep {/^nostubs$/;} @params) |
|
49
|
0 |
23 |
unless ($file) |
|
80
|
36 |
3 |
wantarray ? : |
|
93
|
5 |
12 |
if ($from->country_code != $to->country_code) |
|
94
|
2 |
1 |
$to->areacode ? : |
|
|
2 |
3 |
$to->isa('Number::Phone::StubCountry') ? : |
|
107
|
3 |
9 |
if $@ |
|
108
|
9 |
0 |
if defined $intra_country_dial_to |
|
112
|
0 |
0 |
if (defined $from->areacode and defined $to->areacode and $from->areacode eq $to->areacode) |
|
118
|
0 |
0 |
$to->areacode ? : |
|
129
|
3 |
31 |
if $format eq "E123" |
|
132
|
1 |
30 |
if $@ |
|
139
|
6 |
2 |
if $country_code and $country_code =~ /[a-z]/i |
|
142
|
4 |
4 |
if $country_code eq $self->country_code |
|
263
|
1 |
4766 |
if exists $_[2] |
|
266
|
24 |
4742 |
if $country =~ /::/ |
|
268
|
2150 |
2616 |
if (not defined $number) { } |
|
|
2612 |
4 |
elsif ($country =~ /[a-z]/i) { } |
|
275
|
2547 |
65 |
if $country =~ /^[a-z]{2}$/i |
|
276
|
12 |
2600 |
if ($country =~ /^GMSS::[a-zA-Z]+$/) { } |
|
|
12 |
2588 |
elsif ($country =~ /^InternationalNetworks(88[23])::[a-zA-Z]+$/) { } |
|
|
1319 |
1269 |
elsif (index($number, '+' . Number::Phone::Country::country_code($country)) != 0) { } |
|
277
|
6 |
6 |
unless ($number =~ /^\+881/) |
|
282
|
6 |
6 |
unless ($number =~ /^\+$idd/) |
|
293
|
4 |
4762 |
unless $number =~ /^\+/ |
|
295
|
8 |
4758 |
unless $country = Number::Phone::Country::phone2country($number) |
|
296
|
7 |
4751 |
if ($country eq "AQ" and $number =~ /^\+882/) |
|
303
|
8 |
4750 |
if ($country eq "VA" and $original_country eq "IT" or $country =~ /^(IM|GG|JE)$/ and $original_country eq "GB") |
|
316
|
4 |
969 |
unless $country |
|
317
|
527 |
442 |
if ($number =~ /^\+1/) { } |
|
|
239 |
203 |
elsif ($country eq 'GB') { } |
|
|
62 |
141 |
elsif ($country =~ /^(GG|JE|IM)$/) { } |
|
326
|
125 |
844 |
if ($@ or not "Number::Phone::$country"->isa("Number::Phone")) |
|
327
|
0 |
125 |
if ($@ =~ /--without_uk/) |
|
332
|
0 |
125 |
if ($country eq "UK") |
|
333
|
0 |
125 |
if ($country =~ /^UK::(..)/) |
|
341
|
1 |
3913 |
if $NOSTUBS |
|
345
|
18 |
3895 |
if ($@ and $number =~ /^\+881/) { } |
|
|
8 |
3887 |
elsif ($@ and $number =~ /^\+882/ and $country_name ne 'AQ') { } |
|
|
6 |
3881 |
elsif ($@ and $number =~ /^\+883/) { } |
|
|
7 |
3874 |
elsif ($@) { } |
|
358
|
7 |
0 |
if ($local_number eq "") |