| line |
true |
false |
branch |
|
31
|
300 |
37 |
if (is_valid($number)) { } |
|
34
|
6 |
294 |
if $class ne $target_class |
|
90
|
43 |
2792 |
if (exists Number::Phone::UK::Data::db()->{'subclass'}{$prefix}) |
|
91
|
0 |
43 |
if Number::Phone::UK::Data::db()->{'subclass'}{$prefix} eq "" |
|
121
|
28 |
337 |
if &blessed($number) |
|
126
|
135 |
202 |
if $cache->{$number}{'is_valid'} |
|
136
|
17 |
185 |
if length $cleaned_number < 7 or length $cleaned_number > 10 |
|
139
|
6 |
179 |
if $cleaned_number =~ /^(4|5[01234789]|6)/ |
|
143
|
8 |
171 |
if $cleaned_number =~ /^([27]|11)/ and length $cleaned_number != 10 |
|
148
|
165 |
719 |
if (exists Number::Phone::UK::Data::db()->{'telco'}{$prefix}) |
|
154
|
165 |
719 |
if (exists Number::Phone::UK::Data::db()->{'format'}{$prefix}) |
|
162
|
110 |
61 |
if ($telco) |
|
167
|
165 |
6 |
if ($cache->{$number}{'format'} and $cache->{$number}{'format'} =~ /\+/) |
|
170
|
18 |
147 |
$subscriberlength =~ m[/] ? : |
|
181
|
6 |
159 |
unless (grep {length $cache->{$number}{'subscriber'} == $_;} @subscriberlengths) |
|
193
|
14 |
16 |
if is_mobile(@_) |
|
228
|
48 |
504 |
if $num =~ /$d/ |
|
241
|
288 |
252 |
unless (exists $$cache{${$self;}}{"is_$is"}) |
|
371
|
2 |
4 |
unless $self->is_geographic |
|
378
|
0 |
4 |
unless ($ENV{'TESTINGKILLTHEWABBIT'}) |
|
381
|
2 |
2 |
unless $Number::Phone::UK::Exchanges::db |
|
384
|
4 |
24 |
if (exists $Number::Phone::UK::Exchanges::db->{'exchg_prefices'}{$_}) |
|
417
|
38 |
25 |
if ($self->areacode) { } |
|
|
9 |
16 |
elsif ($self->subscriber and $self->subscriber =~ /^7/) { } |
|
|
16 |
0 |
elsif (not $self->is_allocated && $cache->{$self}{'format'}) { } |
|
|
0 |
0 |
elsif ($self->subscriber) { } |
|
419
|
2 |
36 |
if (length $self->subscriber == 7) { } |
|
|
11 |
25 |
elsif (length $self->subscriber == 8) { } |
|
448
|
1 |
9 |
unless $to->is_allocated |
|
449
|
4 |
5 |
$to->areacode ? : |