rewrite to generate actual ops, not source code
[p5sagit/Function-Parameters.git] / 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 };