Select Code to Download

sub foo {

    ...
...
    goto scalar $_[0]->can("method");

}

sub foo {

    ...

    $obj->(@_[1..$#_]);
}