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