Branch Coverage

blib/lib/Imager/Barcode128.pm
Criterion Covered Total %
branch 19 28 67.8


line true false branch
251 63 60 unless $element eq '#'
268 0 2 unless @encoded
274 0 2 if defined $preferred_code and not exists $CODE{$preferred_code}
280 0 4 if $sanity++ > 1000
282 0 4 if (defined $preferred_code and $preferred_code and @chars = _encodable($preferred_code, $text)) { }
2 2 elsif (@chars = _encodable('C', $text)) { }
292 0 2 @{$x{'A'};} >= @{$x{'B'};} ? :
297 0 4 unless @chars
306 2 2 if ($old_code ne '') { }
307 0 2 unless my $func = $FUNC_CHARS{"Code$new_code"}
311 0 2 unless my $func = $FUNC_CHARS{"Start$new_code"}
336 0 43 if $code ne 'C' and $string =~ /^\d\d\d\d\d\d/
337 17 26 unless exists $CODE{$code}{$char}
341 8 9 if $old eq $string