#!perl
use warnings;
use strict;

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

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

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

method bad2() {
	my $what = $self;
}