]> git.donarmstrong.com Git - perltidy.git/blob - examples/filter_example.in
70172e5ee9e6ebb07feb1a63fd679eb14e3c605c
[perltidy.git] / examples / filter_example.in
1 # input file for testing filter_example.pl
2 use Method::Signatures::Simple;
3
4  method foo { $self->bar }
5
6        # with signature
7     method foo($bar, %opts) { $self->bar(reverse $bar) if $opts{rev};
8     }
9
10     # attributes
11     method foo : lvalue { $self->{foo} 
12 }
13
14  # change invocant name
15     method 
16 foo ($class: $bar) { $class->bar($bar) }