clj-melody-05.clj

(ns backend.support.java-melody
  (:import (net.bull.javamelody MonitoringProxy)
           (net.bull.javamelody.internal.model Counter)))

(defn- call-method
  [klass method-name params obj & args]
  (-> klass
      (.getDeclaredMethod (name method-name)
                          (into-array Class params))
      (doto (.setAccessible true))
      (.invoke obj (into-array Object args))))

(def ^Counter ejb-counter
  (let [ejb-counter (call-method MonitoringProxy "getEjbCounter" [] nil)]
    (doto ejb-counter
      (.setDisplayed true)
      (.setUsed true))
    ejb-counter))