[p5sagit/Function-Parameters.git] / t / rename.t

use strict;
use warnings;
use Test::More;

use Function::Parameters 'f';

my $add = f ($x, $y) { $x + $y };

is $add->(2, 4), 6;

done_testing;
Commit	Line	Data
60682a8e	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	use Function::Parameters 'f';
	6
	7	my $add = f ($x, $y) { $x + $y };
	8
	9	is $add->(2, 4), 6;
	10
	11	done_testing;