| blib/lib/Text/ZPL.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 32 | 78.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 131 | 69 | 4 | 16 | $maybe_q eq q['] || $maybe_q eq '"' and (my $matching_q_pos = index($tmpval, $maybe_q, 1)) > 1 |
| 175 | 7 | 0 | 2 | blessed $obj and $obj->can('TO_ZPL') |
| 190 | 29 | 0 | 2 | blessed $val and $val->can('TO_ZPL') |
| 231 | 25 | 1 | 0 | index($val, '"') > -1 and index($val, q[']) == -1 |
| 234 | 24 | 1 | 0 | index($val, q[']) > -1 and index($val, '"') == -1 |
| line | l | !l | condition |
|---|---|---|---|
| 182 | 9 | 8 | $indent ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 63 | 12 | 6 | 137 | length $_[0] == 0 || $_[0] =~ /^(?:\s+)?#/ |
| 131 | 3 | 17 | 69 | $maybe_q eq q['] || $maybe_q eq '"' |
| 234 | 1 | 0 | 25 | index($val, '#') > -1 or index($val, '=') > -1 |
| 1 | 0 | 25 | index($val, '#') > -1 or index($val, '=') > -1 or index($val, q[']) > -1 and index($val, '"') == -1 | |
| 0 | 3 | 22 | index($val, '#') > -1 or index($val, '=') > -1 or index($val, q[']) > -1 and index($val, '"') == -1 or $val =~ /\s/ |