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";
}
[download]

you have something that will catch your handelNewYear error :-)