[p5sagit/Function-Parameters.git] / t / name_3.fail

#!perl
use warnings;
use strict;

use Function::Parameters {
	func => {
		name => 'required',
	},

	f => {
		name => 'prohibited',
	},

	method => {
		name => 'required',
		shift => '$this',
	},
};

my $bad = method () { $this };
Commit	Line	Data
20f5d15a	1	#!perl
	2	use warnings;
	3	use strict;
	4
	5	use Function::Parameters {
	6	func => {
	7	name => 'required',
	8	},
	9
	10	f => {
	11	name => 'prohibited',
	12	},
	13
	14	method => {
	15	name => 'required',
	16	shift => '$this',
	17	},
	18	};
	19
	20	my $bad = method () { $this };