t/foreign/Fun/anon.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4 use Test::More;
   5
   6 use Function::Parameters;
   7
   8 my $fun = fun ($x, $y) { $x * $y };
   9
  10 is($fun->(3, 4), 12);
  11
  12 my $fun2 = fun ($z, $w = 10) { $z / $w };
  13
  14 is($fun2->(60), 6);
  15
  16 done_testing;