Find unused perl functions

gistfile1.sh

#!/bin/bash

# Note this requires git compiled with USE_LIBPCRE
# to be able to use -P to git grep.

# And currently for some reason the regexp causes a segmentation fault
# when searching for some functions.

NCORES=`grep -c ^processor /proc/cpuinfo`

ack-grep -h --output='$1' '^\s*sub\s+(\w+)\b' . \
| sort -u \
| xargs -n 1 -P $NCORES -I '{}' sh -c "git grep -c -w -F -P '{}(?=([^\"]*\"[^\"]*\")*[^\"]*$)' \
| awk -F: '{t+=\$2} END{if(t<2) print \"{}\"}'"