t/foreign/signatures/anon.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4 use Test::More tests => 1;
   5
   6 use Function::Parameters;
   7
   8 my $foo = fun ($bar, $baz) { return "${bar}-${baz}" };
   9
  10 is($foo->(qw/bar baz/), 'bar-baz');