| line |
true |
false |
branch |
|
43
|
3 |
6 |
unless $mon and $yr |
|
44
|
0 |
6 |
if $mon =~ /\D/ or $yr =~ /\D/ |
|
47
|
1 |
5 |
if $mon < 1 or $mon > 12 |
|
51
|
1 |
4 |
if $yr < $curyr |
|
52
|
2 |
2 |
if ($yr == $curyr) |
|
54
|
1 |
1 |
$mon > $curmon ? : |
|
61
|
0 |
7 |
unless $zip |
|
62
|
2 |
5 |
if $zip and $zip =~ /^\d*\.*\d*$/ and $zip ne '.' |
|
66
|
1 |
6 |
length $zip < 5 || $zip =~ /[^0-9a-zA-Z\ \-\.]/o ? : |
|
71
|
0 |
5 |
unless $_[0] |
|
72
|
1 |
4 |
length $_[0] < $n ? : |
|
77
|
0 |
0 |
unless $addr |
|
80
|
0 |
0 |
$i < $n || !($addr =~ /\n/) ? : |
|
86
|
0 |
1 |
unless $ccn |
|
95
|
2 |
8 |
if ($i >= 4) |
|
109
|
0 |
156 |
unless $ccn |
|
111
|
1 |
155 |
$ccn =~ /\D/ ? : |
|
120
|
9 |
30 |
unless $type |
|
121
|
24 |
6 |
CC_parity($ccn) ? : |
|
126
|
12 |
75 |
grep({$ccn =~ /^$_/;} keys %Business::CCCheck::enRoute) ? : |
|
132
|
0 |
78 |
unless $ccn |
|
136
|
14 |
64 |
if ($ccn =~ /^51/ or $ccn =~ /^52/ or $ccn =~ /^53/ or $ccn =~ /^54/ or $ccn =~ /^55/) { } |
|
|
12 |
52 |
elsif ($ccn =~ /^4/) { } |
|
|
8 |
44 |
elsif ($ccn =~ /^34/ or $ccn =~ /^37/) { } |
|
|
20 |
24 |
elsif ($ccn =~ /^300/ or $ccn =~ /^301/ or $ccn =~ /^302/ or $ccn =~ /^303/ or $ccn =~ /^304/ or $ccn =~ /^305/ or $ccn =~ /^36/ or $ccn =~ /^38/) { } |
|
|
6 |
18 |
elsif ($ccn =~ /^6011/) { } |
|
|
6 |
12 |
elsif (_is_enRoute($ccn)) { } |
|
|
4 |
8 |
elsif ($ccn =~ /^3/) { } |
|
|
8 |
0 |
elsif ($ccn =~ /^2131/ or $ccn =~ /^1800/) { } |
|
141
|
12 |
2 |
if $i == 16 |
|
144
|
8 |
4 |
if $i == 13 or $i == 16 |
|
148
|
6 |
2 |
if $i == 15 |
|
158
|
18 |
2 |
if $i eq 14 |
|
161
|
4 |
2 |
if $i == 16 |
|
167
|
2 |
2 |
if $i == 16 |
|
171
|
4 |
4 |
if $i == 15 |
|
178
|
0 |
69 |
unless $ccn |
|
181
|
6 |
63 |
if _is_enRoute($ccn) |
|
194
|
466 |
485 |
if $even |
|
195
|
34 |
917 |
if $ccn[$i] > 9 |
|
314
|
28 |
211 |
if ($ccn =~ /^$key/) |
|
323
|
0 |
37 |
unless $ccn |
|
330
|
0 |
0 |
unless $ccn |