t/foreign/Fun/state.t

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