There are two hacks in Perl Hacks that show how to do that. One uses source filters. The other uses subroutine attributes, B::Deparse, and a sneaky import() trick to obviate the need for invocant declaration.

(I hate to spoil the trick for anyone who wants to figure it out without help....)