| blib/lib/Variable/Lazy.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 12 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 2 | 5 | if (substr($linestr, $offset, 1) eq '{') { } |
| 37 | 4 | 1 | if (my $length = Devel::Declare::toke_scan_word($offset, 0)) |
| 39 | 0 | 4 | unless $word eq 'my' or $word eq 'our' |
| 44 | 0 | 5 | if substr($linestr, $offset, 1) ne '$' |
| 49 | 0 | 5 | if substr($linestr, $offset, 1) ne '=' |
| 54 | 0 | 5 | if substr($linestr, $offset, 1) ne '{' |