| blib/lib/Wraith.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 16 | 81.2 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 66 | 506 | if (ref $elt eq 'Wraith_rule') |
| 58 | 49 | 56 | ref $v eq 'ARRAY' ? : |
| 71 | 12 | 13 | unless $m |
| 74 | 61 | 91 | if (my($x, $xs) = &$m($_[0])) { } |
| 75 | 56 | 5 | if (&$p($x)) { } |
| 109 | 13 | 0 | unless $skip |
| 183 | 1 | 3 | unless @$reslist |
| 186 | 0 | 0 | if length $$respair[1] < length $$elt[1] |