| perllib/Arch/Name.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 21 | 28 | 75.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 47 | 101 | 0 | 0 | $on_error > 1 and $ERROR |
| 109 | 11 | 19 | 0 | defined $item and $i > @$self |
| 113 | 16 | 2 | 1 | $elem eq 'branch' and $item eq '' |
| 178 | 12 | 3 | 12 | @$self > 2 and $$self[2] ne '' |
| line | l | !l | condition |
|---|---|---|---|
| 36 | 11 | 90 | shift() || 0 |
| 66 | 19 | 7 | $$self[$ELEMENT_INDEX{'branch'} - 1] ||= '' |
| 134 | 11 | 0 | $ELEMENTS[$level--] or 'none' |
| 145 | 17 | 0 | $ELEMENTS[++$level] or 'none' |
| 154 | 4 | 1 | shift() || 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 113 | 1 | 17 | 1 | $elem eq 'branch' and $item eq '' or $item =~ /^$regexp$/ |
| 126 | 1 | 0 | 0 | $ERROR ||= 'apply: unknown elements (' . join(', ', keys %items) . '), ignored' |