sub foo {

    ...

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

}

##</code><code>##

sub foo {

    ...

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