view release on metacpan or  search on metacpan

lib/Devel/PerlySense/external/emacs/perly-sense.el  view on Meta::CPAN

  (let* (
         (result-alist     (ps/command-on-current-file-location "run_file" options))
         (dir-run-from     (alist-value result-alist "dir_run_from"))
         (command-run      (alist-value result-alist "command_run"))
         (type-source-file (alist-value result-alist "type_source_file"))
         (message-string   (alist-value result-alist "message")))
    (if command-run
        (progn

          ;; Test::Class integration
          (setenv "TEST_METHOD"
                  (if ps/tc/current-method
                      (format "^%s$" ps/tc/current-method)
                    nil))

          (let ((command-effective
                 (if run-with-coverage
                     (ps/coverage-command command-run)
                   command-run)
                 )
                (post-compile-lambda