| blib/lib/Perl6/Currying.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 6 | 66.6 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 17 | 3 | 1 | 0 | $prototype{$sub} ||= prototype $sub |
| 22 | 2 | 2 | 0 | $parampos{$sub} ||= do { my(@params) = $proto =~ /(\w+)/g; my %parampos; @parampos{@params} = 0 .. $#params; \%parampos } |