blib/lib/Test/Stream/Plugin/SpecDeclare.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 15 | 20 | 75.0 |
line | true | false | branch |
---|---|---|---|
45 | 0 | 11 | if $RECORD |
46 | 0 | 11 | if $DEBUG |
52 | 0 | 11 | if $DEBUG |
60 | 19 | 44 | if ($start eq '"' or $start eq q[']) { } |
41 | 3 | elsif (my $nlen = Devel::Declare::toke_scan_word($offset, 1)) { } | |
79 | 3 | 60 | unless defined $name |
85 | 13 | 47 | if ($start eq '(') |
101 | 8 | 52 | unless $start eq '{' |
106 | 0 | 52 | if $DEBUG |
107 | 0 | 52 | if $RECORD |