| lib/Devel/Leak/Cb.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 6 | 50.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 158 | 21 | 0 | 2 | substr($line, $offset, 1) =~ /^('|")/u and my $len = Devel::Declare::toke_scan_str($offset) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 167 | 0 | 0 | 2 | $len < 0 or $offset + $len > length $linestr |