| 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 =~ /::/ |