view release on metacpan or  search on metacpan

t/02_curry.t  view on Meta::CPAN

$f = curry 'value', $o, $x;
$f->(20);

is $o->value, 20;

$f = curry $x - $y, 10, $x;
is $f->(6), 4;

$f = curry undefined_method => $x;

throws_ok{
	$f->($o);
} qr/Can't locate object method/;
throws_ok{
	$f->(undef);
} qr/Can't call method/;