[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / lib / BarfyDie.pm

# For use with t/error_interruption.t

package BarfyDie;

use strict;
use warnings;

use Function::Parameters qw(:strict);


# This _should_ produce a simple error like the following:
# Global symbol "$foo" requires explicit package name at t/lib/BarfyDie.pm line 13.
$foo = 'hi!';


method foo ($bar)
{
}


1;
Commit	Line	Data
633048d5	1	# For use with t/error_interruption.t
	2
	3	package BarfyDie;
	4
	5	use strict;
	6	use warnings;
	7
	8	use Function::Parameters qw(:strict);
	9
	10
	11	# This _should_ produce a simple error like the following:
	12	# Global symbol "$foo" requires explicit package name at t/lib/BarfyDie.pm line 13.
	13	$foo = 'hi!';
	14
	15
	16	method foo ($bar)
	17	{
	18	}
	19
	20
	21	1;