| blib/lib/Text/ZPL.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 30 | 32 | 93.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 119 | 69 | 4 | 16 | $maybe_q eq q['] || $maybe_q eq '"' and (my $matching_q_pos = index($tmpval, $maybe_q, 1)) > 1 |
| 162 | 14 | 1 | 2 | &blessed($obj) and $obj->can('TO_ZPL') |
| 177 | 36 | 0 | 2 | &blessed($val) and $val->can('TO_ZPL') |
| 218 | 31 | 1 | 1 | index($val, '"') > -1 and index($val, q[']) == -1 |
| 221 | 27 | 1 | 1 | index($val, q[']) > -1 and index($val, '"') == -1 |
| line | l | !l | condition |
|---|---|---|---|
| 169 | 9 | 15 | $indent ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 55 | 12 | 6 | 137 | length $_[0] == 0 || $_[0] =~ /^(?:\s+)?#/ |
| 119 | 3 | 17 | 69 | $maybe_q eq q['] || $maybe_q eq '"' |
| 221 | 2 | 1 | 29 | index($val, '#') > -1 or index($val, '=') > -1 |
| 3 | 0 | 29 | index($val, '#') > -1 or index($val, '=') > -1 or index($val, q[']) > -1 and index($val, '"') == -1 | |
| 1 | 5 | 23 | index($val, '#') > -1 or index($val, '=') > -1 or index($val, q[']) > -1 and index($val, '"') == -1 or $val =~ /\s/ |