Branch Coverage

blib/lib/PDF/Builder/Resource/XObject/Form/BarCode/code128.pm
Criterion Covered Total %
branch 36 56 64.2


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') { }