t/named_3.fail

   1 #!perl
   2 use warnings;
   3 use strict;
   4
   5 use Function::Parameters {
   6         func => {
   7                 name => 'required',
   8         },
   9
  10         f => {
  11                 name => 'prohibited',
  12         },
  13
  14         method => {
  15                 name => 'required',
  16                 shift => '$this',
  17         },
  18 };
  19
  20 my $bad = method () { $this };