Source

metrics-clojure / src / metrics / counters.clj

Full commit
Steve Losh caf4e68 

Steve Losh aa3e7bf 

Steve Losh caf4e68 
Steve Losh aa3e7bf 

Steve Losh caf4e68 


Steve Losh aa3e7bf 






Steve Losh caf4e68 
Steve Losh aa3e7bf 

Steve Losh caf4e68 



Steve Losh aa3e7bf 

Steve Losh caf4e68 


Steve Losh aa3e7bf 

(ns metrics.counters
  (use [metrics.utils :only (metric-name)])
  (import (com.yammer.metrics Metrics))
  (import (com.yammer.metrics.core CounterMetric)))


; Create ----------------------------------------------------------------------
(defn counter [title]
  (Metrics/newCounter (metric-name title)))


; Read ------------------------------------------------------------------------
(defn value [^CounterMetric c]
  (.count c))


; Write -----------------------------------------------------------------------
(defn inc!
  ([^CounterMetric c] (inc! c 1))
  ([^CounterMetric c n]
   (.inc c n)
   c))

(defn dec!
  ([^CounterMetric c] (dec! c 1))
  ([^CounterMetric c n]
   (.dec c n)
   n))

(defn clear! [^CounterMetric c]
  (.clear c))