4 use Test::More tests => 4;
8 use Function::Parameters {
23 func foo($x, $y, $z) {
30 return $d . $this->{$k} . $d;
33 is foo('a', 'b', 'c'), 'bacb';
34 is bar({ab => 'cd'}, 'ab', 'e'), 'eabcdeab';
36 my $baz = f ($x) { $x * 2 + 1 };
40 for my $fail (map [__DIR__ . "/named_$_.fail"], '1', '2', '3', '4') {
46 is $done, undef, "faulty code doesn't load";
47 $exc or die "$file: $err";