| blib/lib/Test/Stream/Plugin/SpecDeclare.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 22 | 72.7 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 36 | 0 | if ($var =~ /^([\@\%\$])/) { } |
| 52 | 0 | 17 | unless $hash |
| 87 | 0 | 36 | if $DEBUG |
| 103 | 0 | 5 | if $DEBUG |
| 109 | 0 | 5 | if $DEBUG |
| 125 | 11 | 30 | if ($start eq '"' or $start eq q[']) { } |
| 29 | 1 | elsif (my $nlen = Devel::Declare::toke_scan_word($offset, 1)) { } | |
| 148 | 1 | 40 | unless defined $name |
| 155 | 17 | 23 | if ($start eq '(') |
| 185 | 4 | 36 | unless $start eq '{' |
| 193 | 0 | 36 | if $DEBUG |