#!perl
use warnings;
use strict;

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

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

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

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