import all tests from Fun
[p5sagit/Function-Parameters.git] / t / foreign / Fun / state.t
CommitLineData
98478aff 1#!perl
2
3use strict;
4use warnings FATAL => 'all';
5use Test::More;
6
7use 5.10.0;
8use Function::Parameters;
9
10fun bar ($y) {
11 state $x = 10;
12 $x * $y;
13}
14
15is(bar(3), 30);
16
17done_testing;