#!perl
use warnings;
use strict;
use Function::Parameters {
    func => {
        name => 'required',
    },
    f => {
        name => 'prohibited',
    },
    method => {
        name => 'required',
        shift => '$this',
    },
};
method bad2() {
    my $what = $self;
}