| line |
true |
false |
branch |
|
30
|
0 |
1 |
if (defined $options{'-ean'} and not defined $options{'ean'}) |
|
31
|
1 |
0 |
if (defined $options{'-code'} and not defined $options{'code'}) |
|
32
|
0 |
1 |
if (defined $options{'-type'} and not defined $options{'type'}) |
|
34
|
0 |
1 |
if ref $class |
|
39
|
0 |
1 |
if ($options{'ean'}) { } |
|
103
|
6 |
31 |
if (lc $code eq 'a') { } |
|
|
10 |
21 |
elsif (lc $code eq 'b') { } |
|
|
21 |
0 |
elsif (lc $code eq 'c') { } |
|
105
|
0 |
6 |
if $char eq $bar128Ca |
|
110
|
0 |
10 |
if $char eq $bar128Cb |
|
114
|
0 |
21 |
if $char eq $bar128Cc |
|
116
|
15 |
6 |
if ($char =~ /^([0-9][0-9])$/) { } |
|
141
|
1 |
25 |
if ($character =~ /[\xf1-\xf4]/) { } |
|
|
0 |
25 |
elsif ($character =~ /[\xCA-\xCC]/) { } |
|
143
|
0 |
1 |
if ($character =~ /[\xf2-\xf4]/ and $code eq "c") |
|
153
|
0 |
0 |
$character eq "\313" ? : |
|
|
0 |
0 |
$character eq "\312" ? : |
|
156
|
9 |
16 |
if ($code ne 'c') { } |
|
158
|
0 |
9 |
if ($character eq $bar128sh) { } |
|
163
|
0 |
0 |
$code eq 'a' ? : |
|
168
|
15 |
1 |
if $character =~ /\d/ and scalar @characters |
|
169
|
1 |
15 |
if ($character =~ /^[^\d]*$/ or $character =~ /^\d[^\d]*$/) |
|
175
|
1 |
15 |
if ($character =~ /^\d[^\d]*$/) |
|
176
|
0 |
1 |
if length $character > 1 |
|
182
|
1 |
25 |
if $character =~ /[^\x20-\x7e]/ |
|
196
|
0 |
1 |
$string =~ /^\d{2,}$/ ? : |
|
200
|
0 |
5 |
if $code =~ /^[A-C]$/ |
|
203
|
0 |
5 |
unless $code =~ /^[a-c]$/ |
|
205
|
1 |
4 |
if ($code eq 'a') { } |
|
|
2 |
2 |
elsif ($code eq 'b') { } |
|
|
2 |
0 |
elsif ($code eq 'c') { } |