examples/filter_example.in

   1 # input file for testing filter_example.pl
   2 use Method::Signatures::Simple;
   3
   4  method foo1 { $self->bar }
   5
   6        # with signature
   7     method foo2($bar, %opts) { $self->bar(reverse $bar) if $opts{rev};
   8     }
   9
  10     # attributes
  11     method foo3 : lvalue { $self->{foo}
  12 }
  13
  14  # change invocant name
  15     method
  16 foo4 ($class: $bar) { $class->bar($bar) }