3 use warnings FATAL => 'all';
4 use Test::More tests => 5;
6 use Function::Parameters;
8 fun foo ($bar) { $bar }
10 fun korv ($wurst, $_unused, $birne) {
11 return "${wurst}-${birne}";
14 fun array ($scalar, @array) {
15 return $scalar + @array;
22 fun Name::space ($moo) { $moo }
24 is(foo('baz'), 'baz');
25 is(korv(qw/a b c/), 'a-c');
26 is(array(10, 1..10), 20);
28 [sort(hash(foo => 1, bar => 2))],
32 is(Name::space('kooh'), 'kooh');