| line |
true |
false |
branch |
|
127
|
43 |
20 |
if $$self{'postcode'} and @{$$self{'postcode'};} |
|
130
|
17 |
3 |
if ($code =~ s/ *(\d)([A-Z]{2})$//) { } |
|
|
1 |
2 |
elsif ($code =~ s/ (\d)$//) { } |
|
136
|
18 |
2 |
if ($code =~ /^([A-Z]{1,2})(\d{1,2}[A-Z]{0,1})/) |
|
166
|
1 |
6 |
if (defined $class and $class ne $$self{'location_class'}) |
|
177
|
20 |
5 |
if $$self{'location'} |
|
180
|
0 |
5 |
if $@ |
|
252
|
0 |
4 |
unless ref $self |
|
255
|
3 |
1 |
ref $other ? : |
|
271
|
0 |
1 |
unless ref $self |
|
272
|
1 |
0 |
ref $_[0] ? : |
|
|
1 |
0 |
unless wantarray |
|
273
|
0 |
0 |
ref $_ ? : |
|
287
|
0 |
1 |
unless ref $self |
|
288
|
1 |
0 |
ref $_[0] ? : |
|
|
1 |
0 |
unless wantarray |
|
289
|
0 |
0 |
ref $_ ? : |
|
304
|
11 |
1 |
unless ref $self |
|
305
|
0 |
12 |
if $self->_special_case |
|
308
|
0 |
10 |
unless $a and defined $d and defined $s and $u |
|
309
|
0 |
10 |
if length $a > 2 |
|
310
|
0 |
10 |
if $a =~ /[\W\d]/ |
|
311
|
1 |
9 |
if $a =~ /^[QVX]/ |
|
312
|
1 |
8 |
if $a =~ /^.[IJZ]/ |
|
313
|
0 |
8 |
if length $a == 1 and $d =~ /[^\dABCDEFGHJKSTUW]$/ |
|
314
|
1 |
7 |
if length $a == 2 and $d =~ /[^\dABEHMNPRVWXY]$/ |
|
315
|
0 |
7 |
if length $s > 1 |
|
316
|
0 |
7 |
if $s =~ /\D/ |
|
317
|
0 |
7 |
if length $u != 2 |
|
318
|
0 |
7 |
if $u =~ /[^A-Z]/ |
|
319
|
2 |
5 |
if $u =~ /[CIKMOV]/ |
|
331
|
3 |
0 |
unless ref $self |
|
332
|
0 |
3 |
if $self->_special_case |
|
335
|
0 |
3 |
unless $a |
|
336
|
0 |
3 |
if length $a > 2 |
|
337
|
0 |
3 |
if $a =~ /[\W\d]/ |
|
338
|
1 |
2 |
if $a =~ /^[QVX]/ |
|
339
|
0 |
2 |
if $a =~ /^.[IJZ]/ |
|
340
|
0 |
0 |
unless defined $d or defined $s or $u |
|
342
|
0 |
2 |
if length $a == 1 and not $d =~ /\d[\dABCDEFGHJKSTUW]?/ |
|
343
|
0 |
2 |
if length $a == 2 and not $d =~ /\d[\dABEHMNPRVWXY]?/ |
|
344
|
1 |
1 |
unless defined $s or $u |
|
346
|
0 |
1 |
if length $s > 1 |
|
347
|
0 |
1 |
if $s =~ /\D/ |
|
348
|
1 |
0 |
unless $u |
|
350
|
0 |
0 |
if length $u != 2 |
|
351
|
0 |
0 |
if $u =~ /[^A-Z]/ |
|
352
|
0 |
0 |
if $u =~ /[CIKMOV]/ |
|
377
|
0 |
6 |
unless ref $self |
|
395
|
0 |
7 |
unless ref $self |
|
407
|
0 |
7 |
unless ref $self |
|
409
|
0 |
7 |
unless defined $a and defined $d |
|
421
|
1 |
7 |
unless ref $self |
|
423
|
0 |
8 |
unless defined $a and defined $d and defined $s |
|
444
|
0 |
7 |
unless ref $self |
|
446
|
0 |
7 |
unless defined $a and defined $d and defined $s |
|
452
|
20 |
19 |
if $$self{'reformatted'} |
|
454
|
2 |
17 |
unless defined $a |
|
455
|
2 |
17 |
unless defined $d |
|
456
|
2 |
17 |
unless defined $s |
|
457
|
3 |
16 |
unless defined $u |
|
474
|
0 |
15 |
if $pc and grep {$pc eq $_;} $self->special_cases |