package MyClass;

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

$obj->method(...);