t/foreign/signatures/weird.t

   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