| line |
true |
false |
branch |
|
50
|
31 |
496 |
unless is_valid($number) |
|
60
|
237 |
259 |
if $@ |
|
94
|
6 |
464 |
if (not $datafh or $pid != $$) |
|
96
|
0 |
6 |
unless open $datafh, "<:bytes", $file |
|
98
|
0 |
6 |
unless $header eq "NANPOP\0\0" |
|
123
|
11 |
65 |
unless $pointer |
|
128
|
43 |
22 |
if ($block_type == 0) { } |
|
|
22 |
0 |
elsif ($block_type == 1) { } |
|
200
|
4 |
527 |
if &blessed($number) |
|
205
|
337 |
190 |
if $cache->{$number}{'is_valid'} |
|
234
|
159 |
31 |
$digits{'A'} ne '1' && $digits{'D'} ne '1' && $digits{'B'} . $digits{'C'} ne '11' && $digits{'B'} ne '9' && $digits{'A'} . $digits{'B'} ne '37' && $digits{'A'} . $digits{'B'} ne '96' ? : |
|
261
|
1 |
156 |
if $self->_is_canadian_600 |
|
263
|
1 |
155 |
ref $self eq 'Number::Phone::NANP' ? : |
|
269
|
1 |
80 |
if (ref $self eq "Number::Phone::NANP") |
|
271
|
27 |
53 |
unless exists $Number::Phone::NANP::Data::mobile_regexes{$ISO_country_code} |
|
272
|
52 |
1 |
${$self;} =~ /^\+1($Number::Phone::NANP::Data::mobile_regexes{$ISO_country_code})$/ ? : |
|
278
|
1 |
80 |
if (ref $self eq "Number::Phone::NANP") |
|
280
|
27 |
53 |
unless exists $Number::Phone::NANP::Data::fixed_line_regexes{$ISO_country_code} |
|
281
|
52 |
1 |
${$self;} =~ /^\+1($Number::Phone::NANP::Data::fixed_line_regexes{$ISO_country_code})$/ ? : |
|
296
|
5 |
1 |
if (${$self;} =~ /555(\d{4})$/) |
|
297
|
1 |
4 |
$1 gt '0099' && $1 lt '0200' ? : |
|
311
|
1 |
3 |
if (${$self;} =~ /^(\+1)?710/) { } |
|
329
|
83 |
6 |
if (${$self;} =~ /^(\+1)?8(00|33|44|55|66|77|88)/) { } |
|
342
|
83 |
3 |
if (${$self;} =~ /
^(\+1)?
(
900 | # NANP-global
242225[0-46-9] | # BS-specific
246 ( 292 | 367 | 41[7-9] | 43[01] | 444 | 467 | 736 ) # BB-specific, apparently
)
/x) { } |
|
361
|
76 |
3 |
if (${$self;} =~ /^(\+1)?5[03467]{2}/) { } |
|
389
|
1 |
7 |
if (&blessed($class) eq 'Number::Phone::NANP') { } |