| line |
true |
false |
branch |
|
30
|
0 |
1 |
if ref $class |
|
35
|
0 |
1 |
if ($options{'-ean'}) { } |
|
99
|
6 |
31 |
if (lc $code eq 'a') { } |
|
|
10 |
21 |
elsif (lc $code eq 'b') { } |
|
|
21 |
0 |
elsif (lc $code eq 'c') { } |
|
101
|
0 |
6 |
if $char eq $bar128Ca |
|
106
|
0 |
10 |
if $char eq $bar128Cb |
|
110
|
0 |
21 |
if $char eq $bar128Cc |
|
112
|
15 |
6 |
if ($char =~ /^([0-9][0-9])$/) { } |
|
137
|
1 |
25 |
if ($character =~ /[\xf1-\xf4]/) { } |
|
|
0 |
25 |
elsif ($character =~ /[\xCA-\xCC]/) { } |
|
139
|
0 |
1 |
if ($character =~ /[\xf2-\xf4]/ and $code eq 'c') |
|
149
|
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' ? : |
|
164
|
15 |
1 |
if $character =~ /\d/ and scalar @characters |
|
165
|
1 |
15 |
if ($character =~ /^[^\d]*$/ or $character =~ /^\d[^\d]*$/) |
|
171
|
1 |
15 |
if ($character =~ /^\d[^\d]*$/) |
|
172
|
0 |
1 |
if length $character > 1 |
|
178
|
1 |
25 |
if $character =~ /[^\x20-\x7e]/ |
|
192
|
0 |
1 |
$string =~ /^\d{2,}$/ ? : |
|
196
|
0 |
5 |
if $code =~ /^[A-C]$/ |
|
199
|
0 |
5 |
unless $code =~ /^[a-c]$/ |
|
201
|
1 |
4 |
if ($code eq 'a') { } |
|
|
2 |
2 |
elsif ($code eq 'b') { } |
|
|
2 |
0 |
elsif ($code eq 'c') { } |