[p5sagit/Function-Parameters.git] / t / foreign / Fun / closure-proto.t

#!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;
Commit	Line	Data
98478aff	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;