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

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

{
	package Wrapper;
	use Function::Parameters ();
	sub shazam { Function::Parameters->import(@_); }
}

BEGIN { Wrapper::shazam; }

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

{
	package Cu::Ba;
	BEGIN { Wrapper::shazam 'gorn'; }

	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
db81d362	5	{
	6	package Wrapper;
	7	use Function::Parameters ();
	8	sub shazam { Function::Parameters->import(@_); }
	9	}
d71da6a4	10
db81d362	11	BEGIN { Wrapper::shazam; }
d71da6a4	12
	13	ok fun ($x) { $x }->(1);
	14
d71da6a4	15	{
d71da6a4	16	package Cu::Ba;
db81d362	17	BEGIN { Wrapper::shazam 'gorn'; }
d71da6a4	18
	19	gorn wooden ($gorn) { !$gorn }
	20	}
	21
	22	ok Cu::Ba::wooden;
	23
	24	done_testing;