| line |
true |
false |
branch |
|
35
|
0 |
1 |
if (defined $options{'-ean'} and not defined $options{'ean'})
|
|
36
|
1 |
0 |
if (defined $options{'-code'} and not defined $options{'code'})
|
|
37
|
0 |
1 |
if (defined $options{'-type'} and not defined $options{'type'})
|
|
39
|
0 |
1 |
if ref $class
|
|
44
|
0 |
1 |
if ($options{'ean'}) { }
|
|
108
|
6 |
31 |
if (lc $code eq 'a') { }
|
|
|
10 |
21 |
elsif (lc $code eq 'b') { }
|
|
|
21 |
0 |
elsif (lc $code eq 'c') { }
|
|
110
|
0 |
6 |
if $char eq $bar128Ca
|
|
115
|
0 |
10 |
if $char eq $bar128Cb
|
|
119
|
0 |
21 |
if $char eq $bar128Cc
|
|
121
|
15 |
6 |
if ($char =~ /^([0-9][0-9])$/) { }
|
|
146
|
1 |
25 |
if ($character =~ /[\xf1-\xf4]/) { }
|
|
|
0 |
25 |
elsif ($character =~ /[\xCA-\xCC]/) { }
|
|
148
|
0 |
1 |
if ($character =~ /[\xf2-\xf4]/ and $code eq "c")
|
|
158
|
0 |
0 |
$character eq "\313" ? :
|
|
|
0 |
0 |
$character eq "\312" ? :
|
|
161
|
9 |
16 |
if ($code ne 'c') { }
|
|
163
|
0 |
9 |
if ($character eq $bar128sh) { }
|
|
168
|
0 |
0 |
$code eq 'a' ? :
|
|
173
|
15 |
1 |
if $character =~ /\d/ and scalar @characters
|
|
174
|
1 |
15 |
if ($character =~ /^[^\d]*$/ or $character =~ /^\d[^\d]*$/)
|
|
180
|
1 |
15 |
if ($character =~ /^\d[^\d]*$/)
|
|
181
|
0 |
1 |
if length $character > 1
|
|
187
|
1 |
25 |
if $character =~ /[^\x20-\x7e]/
|
|
201
|
0 |
1 |
$string =~ /^\d{2,}$/ ? :
|
|
205
|
0 |
5 |
if $code =~ /^[A-C]$/
|
|
208
|
0 |
5 |
unless $code =~ /^[a-c]$/
|
|
210
|
1 |
4 |
if ($code eq 'a') { }
|
|
|
2 |
2 |
elsif ($code eq 'b') { }
|
|
|
2 |
0 |
elsif ($code eq 'c') { }
|