http://www.perlmonks.org?node_id=378957


in reply to Package level scope callbacks.

Not sure, but I think that Sub::WrapPackages does what you want. Otherwise, take a look at Aspect or Hook::LexWrap