| blib/lib/String/Lookup/PurePerl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 20 | 55.0 |
| line | l | !l | condition |
|---|---|---|---|
| 235 | 0 | 7 | $$list[$index] and $$self[4] = $index and return $$list[$index] |
| 256 | 0 | 6 | $$list[$index] and $$self[4] = $index and return $$list[$index] |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 102 | 0 | 8 | 0 | defined $tag and length $tag |
| 235 | 0 | 0 | 7 | $$list[$index] and $$self[4] = $index |
| 256 | 0 | 0 | 6 | $$list[$index] and $$self[4] = $index |
| line | l | !l | condition |
|---|---|---|---|
| 56 | 7 | 17 | delete $param{'offset'} || 0 |
| 57 | 7 | 17 | delete $param{'increment'} || 1 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 182 | 16 | 0 | 34 | $$self[2]{${$_[0];}} || do { my $index = $$self[0] += $$self[1]; $$self[2]{$$self[3][$index] = ${$_[0];}} = $index; return $index unless $$self[5]; push @{$$self[6];}, $index; return $index unless $$self[7]; $$self[7]($self); return $index } |