sub method {
   my ($self, $arg) = @_;

   # do stuff with $self perhaps

   other(@_);   # equiv. to $self->other($arg)
}