--- /dev/null
+#!perl
+use warnings;
+use strict;
+
+use Function::Parameters {
+ func => {
+ name => 'required',
+ },
+
+ f => {
+ name => 'prohibited',
+ },
+
+ method => {
+ name => 'required',
+ shift => '$this',
+ },
+};
+
+my $bad = method () { $this };