| blib/lib/Barcode/Code128.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 13 | 43 | 30.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 416 | 0 | 0 | 0 | ref $x and not defined $y |
| 431 | 0 | 0 | 0 | $scale > 0 and int $scale == $scale |
| 435 | 0 | 0 | 0 | $border >= 0 and int $border == $border |
| 604 | 1 | 0 | 0 | defined $preferred_code and not exists $Barcode::Code128::CODE{$preferred_code} |
| 614 | 2 | 0 | 0 | $preferred_code and @chars = _encodable($preferred_code, $text) |
| 761 | 3 | 3 | 2 | $code eq 'C' and $string =~ s/^(\d\d)// |
| 765 | 3 | 9 | 0 | $code ne 'C' and $string =~ /^\d\d\d\d\d\d/ |
| line | l | !l | condition |
|---|---|---|---|
| 240 | 0 | 1 | $$self{'encoded'} ||= [] |
| 241 | 0 | 1 | $$self{'text'} ||= '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 439 | 0 | 0 | 0 | $x ||= $opts{'width'} |
| 440 | 0 | 0 | 0 | $y ||= $opts{'height'} |
| 465 | 0 | 0 | 0 | $x ||= $min_x |
| 466 | 0 | 0 | 0 | $y ||= $min_y |
| 740 | 0 | 1 | 1 | $new_code eq 'A' or $new_code eq 'B' |
| 1 | 1 | 0 | $new_code eq 'A' or $new_code eq 'B' or $new_code eq 'C' |