| lib/Devel/Leak/Cb.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 86 | 4 | 5 | if ($ENV{'DEBUG_CB'}) { } |
| 146 | 5 | 8 | if $LASTNAME |
| 158 | 2 | 26 | if (substr($line, $offset, 1) =~ /^('|")/u and my $len = Devel::Declare::toke_scan_str($offset)) { } |
| 10 | 16 | elsif (my $len = Devel::Declare::toke_scan_word($offset, 1)) { } | |
| 7 | 14 | elsif (substr(my $line = Devel::Declare::get_linestr(), $offset, 1) eq '$') { } | |
| 167 | 0 | 6 | if ($len < 0 or $offset + $len > length $linestr) |
| 185 | 5 | 4 | if (my $len = Devel::Declare::toke_scan_word($offset + 1, 1)) { } |