Add a sink method to Perl5Object as suggested by jnthn++

Apparently can('sink') may be called on Perl5Objects in some situations.
Since we claim to support _any_ method, we have to provide a somewhat
sane implementation.