#!perl
use warnings;
use strict;

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

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

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

my $bad = method () { $this };