blib/lib/Sub/Curried.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 22 | 26 | 84.6 |
line | true | false | branch |
---|---|---|---|
135 | 0 | 23 | unless my($vsigil, $vname) = /^([\$%\@])(\w+)$/ |
137 | 22 | 1 | $vsigil eq '$' ? : |
166 | 13 | 2 | if (my $len = Devel::Declare::toke_scan_word($Offset, 1)) |
180 | 14 | 1 | if (substr($linestr, $Offset, 1) eq '(') |
201 | 15 | 0 | if (substr($linestr, $Offset, 1) eq '{') |
209 | 4 | 46 | if $actual > $exp |
228 | 19 | 4 | $name ? : |
237 | 13 | 2 | if ($name) { } |
250 | 13 | 2 | @decl ? : |
253 | 13 | 2 | if (defined $name) |
254 | 13 | 0 | if $name |
261 | 13 | 2 | if (defined $name) |
262 | 13 | 0 | unless $name =~ /::/ |