#!perl
use warnings;
use strict;

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

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

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

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