Branch Coverage

blib/lib/Sub/Curry.pm
Criterion Covered Total %
branch 41 52 78.8


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 $@