http://qs321.pair.com?node_id=305031


in reply to When -w and use strict aren't enough...

RMGir, meet B::Xref. B::Xref, meet RMGir :-)

I've published elsewhere a little script which parses the output of B::Xref to catch unused subs. if you just change the last four lines to:

foreach my $sub (keys %subused) { next if exists $subdef{ $sub }; print "UNDEFINED SUB: $subused{ $sub } $sub\n"; }
you have something that will catch your handelNewYear error :-)

cheers,
Aldo

King of Laziness, Wizard of Impatience, Lord of Hubris