perl -e 'foreach (@INC){print "$_\n" unless $_ eq q{.}}' | xargs grep -R "return undef" | wc -l
1752