give Perl5Object a no-op sink method