| line |
true |
false |
branch |
|
58
|
1 |
32 |
if $nr =~ /\D/ |
|
63
|
4 |
28 |
if (length $nr == 6) { } |
|
|
26 |
2 |
elsif (length $nr == 10) { } |
|
72
|
9 |
21 |
if not defined $check or $check != $last |
|
88
|
1 |
2 |
unless $nr |
|
89
|
1 |
1 |
if length $nr == 7 |
|
108
|
0 |
1 |
if $nr =~ /\D/ |
|
112
|
1 |
0 |
if ($nr =~ /^5[1-5]/) { } |
|
|
0 |
0 |
elsif ($nr =~ /^4/) { } |
|
|
0 |
0 |
elsif ($nr =~ /^3[47]/) { } |
|
|
0 |
0 |
elsif ($nr =~ /^30[0-5]/ or $nr =~ /^3[68]/) { } |
|
|
0 |
0 |
elsif ($nr =~ /^6011/) { } |
|
114
|
0 |
1 |
if length $nr != 16 |
|
117
|
0 |
0 |
if length $nr != 13 and length $nr != 16 |
|
120
|
0 |
0 |
if length $nr != 15 |
|
123
|
0 |
0 |
if length $nr != 14 |
|
126
|
0 |
0 |
if length $nr != 16 |
|
133
|
0 |
1 |
if $last != mod_10($nr) |
|
180
|
27 |
76 |
if ($p >= 10) |
|
211
|
0 |
26 |
if $k == 10 |