| line |
true |
false |
branch |
|
25
|
0 |
0 |
@_ ? : |
|
40
|
21 |
909 |
@_ ? : |
|
51
|
0 |
0 |
if wantarray |
|
65
|
354 |
114 |
if (@_) |
|
66
|
0 |
354 |
unless caller eq 'Sub::Curry' |
|
68
|
354 |
0 |
if @_ |
|
102
|
118 |
55 |
if (not ref $_[0]) { } |
|
111
|
3 |
33 |
$arg_offset =~ /^\@_/ ? : |
|
118
|
0 |
212 |
if (not defined $$spice[$c]) { } |
|
|
23 |
189 |
elsif (spice_eq(\'Sub::Curry.HOLE')) { } |
|
|
13 |
176 |
elsif (spice_eq(\'Sub::Curry.ANTISPICE')) { } |
|
|
20 |
156 |
elsif (spice_eq(\'Sub::Curry.BLACKHOLE')) { } |
|
141
|
49 |
69 |
if ($arg_offset) { } |
|
142
|
29 |
20 |
unless ($arg_offset =~ /^\@_/) |
|
156
|
0 |
118 |
unless my $self = eval $code_str |
|
173
|
70 |
21 |
unless spice_eq(\'Sub::Curry.HOLE') or spice_eq(\'Sub::Curry.ANTISPICE') |
|
180
|
25 |
30 |
if ($special) { } |
|
187
|
0 |
38 |
if (not defined $_) { } |
|
|
5 |
33 |
elsif (spice_eq(\'Sub::Curry.ANTISPICE')) { } |
|
|
10 |
23 |
elsif (spice_eq(\'Sub::Curry.HOLE')) { } |
|
|
7 |
16 |
elsif (spice_eq(\'Sub::Curry.BLACKHOLE')) { } |
|
194
|
6 |
4 |
unless spice_eq(\'Sub::Curry.ANTIHOLE', $_[$arg_offset]) |
|
203
|
2 |
5 |
if ($arg_offset < @_) { } |
|
215
|
12 |
13 |
if ($c < @$spice) { } |
|
222
|
0 |
25 |
unless $new_spice = eval "_alias(@{[join(', ', @str)];})" |
|
244
|
0 |
1 |
if $@ |