Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (18 sloc) 0.46 kB
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
Jump to Line
Something went wrong with that request. Please try again.