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]