clj-melody-06.clj

(ns backend.support.aspects
  (:require ...
            [backend.support.java-melody :as melody]))

(defn- monitoring-hook
  [f & args]
  (let [ns-name (->ns-name f)
        fn-name (->fn-name f)
        melody-request-name (str ns-name "/" fn-name)]
    (.bindContextIncludingCpu melody/ejb-counter melody-request-name)
    (try
      (let [result (apply f args)]
        (.addRequestForCurrentContext melody/ejb-counter false)
        result)
      (catch Throwable t
        (.addRequestForCurrentContext melody/ejb-counter true)
        (throw t)))))