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:
you have something that will catch your handelNewYear error :-)foreach my $sub (keys %subused) { next if exists $subdef{ $sub }; print "UNDEFINED SUB: $subused{ $sub } $sub\n"; }
King of Laziness, Wizard of Impatience, Lord of Hubris
In reply to Re: When -w and use strict aren't enough...
by dada
in thread When -w and use strict aren't enough...
by RMGir
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |