Add boot.pod/*destroy-pod-hook*

In order to fix memory leaks in task-local pods, we need a way to execute custom cleaning at pod
destroy time. This was particularly evident when doing `boot watch test` in a resource heavy app.

Fixes adzerk-oss/boot-test#26

Author: arichiardi

boot/pod/src/boot/pod.clj

@@ -276,6 +276,11 @@
   boot. See #'boot.pod/add-shutdown-hook! for more info."
   (atom nil))
 
+(def *destroy-pod-hook*
+  "Bind this to a 0-arity function in order to perform additional
+  cleanup."
+  identity)
+
 (defn set-pods!         [x] (alter-var-root #'pods        (constantly x)))
 (defn set-data!         [x] (alter-var-root #'data        (constantly x)))
 (defn set-pod-id!       [x] (alter-var-root #'pod-id      (constantly x)))
@@ -823,6 +828,7 @@
   "Closes open resources held by the pod, making the pod eligible for GC."
   [pod]
   (when pod
+    (*destroy-pod-hook*)
     (.close pod)
     (.. pod getClassLoader close)))