Test::Class でメソッドの単体テストを elisp でさくっと

Test::Class でメソッドの単体テストを vim script でさくっと - #生存戦略 、それは - subtechが便利過ぎる!!!のでemacsでもしたいです.

(defun run-perl-method-test ()
  (interactive)
  (let ((command compile-command))
    (save-excursion
      (when (or
             (re-search-backward "\\bsub\s+\\([_[:alpha:]]+\\)\s*:\s*Test" nil t)
             (re-search-forward "\\bsub\s+\\([_[:alpha:]]+\\)\s*:\s*Test" nil t))
        (setq command
              (format "TEST_METHOD=%s perl -w %s"
                      (match-string 1) (expand-file-name buffer-file-name)))))
    (when command (compile command))))

いつもテスト通らなくて本体を修正するので, 候補が無かったらグローバルに前回のを実行するようにした.