t/foreign/Fun/closure-proto.t

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