sub foo {
   my $self = shift;
   # do stuff
}