Permalink
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (18 sloc) 460 Bytes
use v6;
use Test;
# L<S06/Currying/>
plan 3;
sub tester(:$a, :$b, :$c) {
"a$a b$b c$c";
}
{
my $w = &tester.assuming(b => 'x');
is $w(a => 'w', c => 'y'), 'aw bx cy', 'currying one named param';
}
{
my $w = &tester.assuming(b => 'b');
my $v = $w.assuming(c => 'c');
is $v(a => 'x'), 'ax bb cc', 'can curry on an already curried sub';
is $w(a => 'x', c => 'd'), 'ax bb cd', '... and the old one still works';
}
# vim: ft=perl6