| lib/Variable/Eject.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 18 | 61.1 |
| line | true | false | branch |
|---|---|---|---|
| 64 | 6 | 0 | if (not defined &Variable::Eject::DEBUG) |
| 65 | 0 | 6 | if ($ENV{'PERL_VARIABLE_EJECT_DEBUG'}) { } |
| 109 | 2 | 3 | if (my $len = Devel::Declare::toke_scan_word($$self, 1)) |
| 112 | 0 | 2 | if $subname ne $SUBNAME |
| 128 | 0 | 5 | unless @args > 1 |
| 140 | 5 | 4 | if ($type eq '$') { } |
| 161 | 5 | 0 | if (substr($linestr, $$self, 1) eq '(') { } |
| 166 | 0 | 5 | if ($length < 0 or $$self + $length > length $linestr) |
| 196 | 0 | 5 | if ($$self > length $linestr) |