Quick unused subroutine finder using ack(http://betterthangrep.com) + git

find_unused_subs.sh

#!/bin/bash

dir=$1

if [ -z "$dir" -a "${dir+oinothir}" = "oinothir" ]; then
    dir=$PWD
fi

ack -h --output='$1' '^\s*sub\s+(\w+)\b' $dir \
| sort -u \
| while read subname ; do
    export subname
    git grep -c -w -F "$subname" \
    | awk -F: '{t+=$2} END{if(t<2) print ENVIRON["subname"]}'
done