Commit | Line | Data |
---|---|---|
514bcaa6 | 1 | #!perl |
2 | use strict; | |
3 | use warnings FATAL => 'all'; | |
4 | use Test::More tests => 2; | |
5 | ||
6 | use Function::Parameters; | |
7 | ||
8 | fun | |
9 | foo | |
10 | ($bar, $baz) | |
11 | { return q{($bar, $baz) is }.qq{("$bar", "$baz")} } | |
12 | ||
13 | my $moo | |
14 | = | |
15 | fun | |
16 | ($bar, $baz) | |
17 | { return q{($bar, $baz) is }.qq{("$bar", "$baz")} }; | |
18 | ||
19 | is(foo(qw/affe zomtec/), '($bar, $baz) is ("affe", "zomtec")'); | |
20 | is($moo->(qw/korv wurst/), '($bar, $baz) is ("korv", "wurst")'); | |
21 | ||
1a52f2db | 22 | 1; |