[p5sagit/Function-Parameters.git] / t / elsewhere.t

use strict;
use warnings;
use Test::More;

use Function::Parameters ();

BEGIN { Function::Parameters::import_into __PACKAGE__; }

ok fun ($x) { $x }->(1);

BEGIN { Function::Parameters::import_into 'Cu::Ba', 'gorn'; }

{
	package Cu::Ba;

	gorn wooden ($gorn) { !$gorn }
}

ok Cu::Ba::wooden;

done_testing;
Commit	Line	Data
d71da6a4	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	use Function::Parameters ();
	6
	7	BEGIN { Function::Parameters::import_into __PACKAGE__; }
	8
	9	ok fun ($x) { $x }->(1);
	10
	11	BEGIN { Function::Parameters::import_into 'Cu::Ba', 'gorn'; }
	12
	13	{
	14	package Cu::Ba;
	15
	16	gorn wooden ($gorn) { !$gorn }
	17	}
	18
	19	ok Cu::Ba::wooden;
	20
	21	done_testing;