I wonder whether you could extend B::Lint to do this?

It's not clear from the perldoc on the 5.12.2 perl I have handy, but it does support some kind of plugins.