| line |
true |
false |
branch |
|
282
|
1 |
1 |
unless defined(my $num = $args{'number'})
|
|
288
|
0 |
1 |
unless $num =~ s/\A([A-Z]{1,2})//
|
|
291
|
1 |
0 |
if (my $area = $prefixes{$prefix}) { }
|
|
298
|
0 |
1 |
unless $num =~ s/\A(\d{1,4})//
|
|
301
|
0 |
1 |
if ($main < 1) { }
|
|
|
1 |
0 |
elsif ($main < 2000) { }
|
|
|
0 |
0 |
elsif ($main < 7000) { }
|
|
|
0 |
0 |
elsif ($main < 8000) { }
|
|
317
|
0 |
1 |
unless $num =~ s/\A([A-Z]{1,3})//
|
|
323
|
1 |
0 |
unless $suffix =~ /\ARF(.)\z/
|
|
326
|
0 |
0 |
if ($s eq 'S') { }
|
|
|
0 |
0 |
elsif ($s =~ /\A[OHQ]\z/) { }
|
|
|
0 |
0 |
elsif ($s eq 'P') { }
|
|
|
0 |
0 |
elsif ($s eq 'D') { }
|
|
|
0 |
0 |
elsif ($s eq 'L') { }
|
|
|
0 |
0 |
elsif ($s eq 'U') { }
|
|
330
|
0 |
0 |
if $s eq "H"
|
|
344
|
0 |
1 |
if ($prefix eq "B")
|
|
347
|
0 |
0 |
if ($s eq 'B') { }
|
|
|
0 |
0 |
elsif ($s eq 'P') { }
|
|
|
0 |
0 |
elsif ($s eq 'S') { }
|
|
|
0 |
0 |
elsif ($s eq 'T') { }
|
|
|
0 |
0 |
elsif ($s eq 'U') { }
|
|
362
|
0 |
0 |
unless length $suffix >= 2
|
|
364
|
0 |
0 |
if ($s eq 'A') { }
|
|
|
0 |
0 |
elsif ($s eq 'D') { }
|
|
|
0 |
0 |
elsif ($s eq 'F') { }
|
|
|
0 |
0 |
elsif ($s eq 'J') { }
|
|
|
0 |
0 |
elsif ($s eq 'Q') { }
|
|
|
0 |
0 |
elsif ($s eq 'T') { }
|
|
|
0 |
0 |
elsif ($s eq 'U') { }
|
|
|
0 |
0 |
elsif ($s eq 'V') { }
|
|
386
|
0 |
1 |
if length $num
|