| blib/lib/Struct/Path/PerlStyle.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 25 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 223 | 12 | 34 | 39 | not $type and $delim eq '"' |
| 12 | 23 | 11 | not $type and $delim eq q['] | |
| 9 | 3 | 23 | $delim eq '/' and not $type | |
| 371 | 23 | 9 | 30 | @items and $items[-1][0] < $i && $items[-1][-1] == $i - 1 || $items[-1][0] > $i && $items[-1][-1] == $i + 1 |
| 404 | 1 | 1 | 67 | defined $k and ref $k eq '' |
| line | l | !l | condition |
|---|---|---|---|
| 370 | 2 | 1 | $i // 'undef' |
| 417 | 1 | 1 | ref $k || 'undef' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 223 | 23 | 10 | 2 | $delim eq '/' and not $type or $type eq 'm' |
| 371 | 15 | 15 | 9 | $items[-1][0] < $i && $items[-1][-1] == $i - 1 || $items[-1][0] > $i && $items[-1][-1] == $i + 1 |