From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MAUKE / Function-Parameters-1.0603_01 / t / foreign / Fun / closure-proto.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

              
#!perl
use strict;
use warnings FATAL => 'all';
use Test::More;
use Function::Parameters;
{
    my $x = 10;
    fun bar ($y) {
        $x * $y
    }
}
is(bar(3), 30);
done_testing;