inotify based autoreload for perl dancer

gistfile1.txt

#!  /usr/bin/env zsh
dancer_pid=

dancer () {
    perl bin/dancer &
    dancer_pid=$!
}
kill_dancer    () { kill $dancer_pid }
restart_dancer () { kill_dancer && dancer }
changes_in_source_tree () {inotifywait -r -e modify --exclude ".*swp" . }

dancer
trap kill_dancer 2 3
while {changes_in_source_tree} {restart_dancer}