| line |
true |
false |
branch |
|
28
|
0 |
1 |
if ref $class |
|
33
|
0 |
1 |
if ($options{'-ean'}) { } |
|
96
|
6 |
31 |
if (lc $code eq 'a') { } |
|
|
10 |
21 |
elsif (lc $code eq 'b') { } |
|
|
21 |
0 |
elsif (lc $code eq 'c') { } |
|
98
|
0 |
6 |
if $char eq $bar128Ca |
|
104
|
0 |
10 |
if $char eq $bar128Cb |
|
109
|
0 |
21 |
if $char eq $bar128Cc |
|
111
|
15 |
6 |
if ($char =~ /^([0-9][0-9])$/) { } |
|
135
|
1 |
25 |
if ($character =~ /[\xf1-\xf4]/) { } |
|
|
0 |
25 |
elsif ($character =~ /[\xCA-\xCC]/) { } |
|
137
|
0 |
1 |
if ($character =~ /[\xf2-\xf4]/ and $code eq "c") |
|
148
|
0 |
0 |
$character eq "\313" ? : |
|
|
0 |
0 |
$character eq "\312" ? : |
|
152
|
9 |
16 |
if ($code ne 'c') { } |
|
154
|
0 |
9 |
if ($character eq $bar128sh) { } |
|
159
|
0 |
0 |
$code eq 'a' ? : |
|
166
|
15 |
1 |
if $character =~ /\d/ and scalar @characters |
|
167
|
1 |
15 |
if ($character =~ /^[^\d]*$/ or $character =~ /^\d[^\d]*$/) |
|
173
|
1 |
15 |
if ($character =~ /^\d[^\d]*$/) |
|
174
|
0 |
1 |
if length $character > 1 |
|
180
|
1 |
25 |
if $character =~ /[^\x20-\x7e]/ |
|
194
|
0 |
1 |
$string =~ /^\d{2,}$/ ? : |
|
198
|
0 |
5 |
if $code =~ /^[A-C]$/ |
|
201
|
0 |
5 |
unless $code =~ /^[a-c]$/ |
|
203
|
1 |
4 |
if ($code eq 'a') { } |
|
|
2 |
2 |
elsif ($code eq 'b') { } |
|
|
2 |
0 |
elsif ($code eq 'c') { } |