3 use Test::More tests => 21;
5 use warnings FATAL => 'all';
8 use Function::Parameters;
15 fun fnop($x, $y, $z) {
19 is_deeply [main->nop], [];
20 is_deeply [nop 1], [];
21 is scalar(nop), undef;
22 is scalar(nop 2), undef;
25 is_deeply [fnop 3, 4], [];
26 is scalar(fnop), undef;
27 is scalar(fnop 5, 6), undef;
30 my $g = mk_counter 10;
31 my $h = mk_counter 50;