metrics-clojure / metrics-clojure-core / src / metrics / counters.clj

Steve Losh 26d62ce 
Steve Losh 2bf9a78 
Michael Klishin 76c089a 


Steve Losh 26d62ce 





Steve Losh 9f89ac1 

Steve Losh 26d62ce 






Steve Losh 58d1e62 
Ian Eure 27c731b 
Steve Losh da9ae58 












Steve Losh 2bf9a78 

Michael Klishin 9d38bf2 
Ian Eure 27c731b 
Steve Losh 26d62ce 



























(ns metrics.counters
  (:use [metrics.utils :only (metric-name desugared-title)])
  (:import com.yammer.metrics.Metrics
           com.yammer.metrics.core.Counter
           java.util.concurrent.TimeUnit))


; Create ----------------------------------------------------------------------
(defn counter
  "Create and return a new Counter metric with the given title.

  Title can be a plain string like \"foo\" or a vector of three strings (group,
  type, and title) like:

      [\"myapp\" \"webserver\" \"connections\"]

  "
  [title]
  (Metrics/newCounter (metric-name title)))


(defmacro defcounter
  "Define a new Counter metric with the given title.

  The title uses some basic desugaring to let you concisely define metrics:

    ; Define a counter titled \"default.default.foo\" into var foo
    (defcounter foo)
    (defcounter \"foo\")

    ; Define a counter titled \"a.b.c\" into var c
    (defcounter [a b c])
    (defcounter [\"a\" \"b\" \"c\"])
    (defcounter [a \"b\" c])
  "
  [title]
  (let [[s title] (desugared-title title)]
    `(def ~s (counter '~title))))


; Read ------------------------------------------------------------------------
(defn value
  "Return the current value of the counter."
  [^Counter c]
  (.count c))


; Write -----------------------------------------------------------------------
(defn inc!
  "Increment the counter by the given amount (or 1 if not specified)."
  ([^Counter c] (inc! c 1))
  ([^Counter c n]
   (.inc c n)
   c))

(defn dec!
  "Decrement the counter by the given amount (or 1 if not specified)."
  ([^Counter c] (dec! c 1))
  ([^Counter c n]
   (.dec c n)
   c))

(defn clear!
  "Clear the given counter, resetting its value to zero."
  [^Counter c]
  (.clear c)
  c)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.