Plain Old Clojure Object ( http://www.dotkam.com/2015/08/12/plain-old-clojure-object/ )

poco.clj

(ns poco)

(gen-class 
  :name org.stargate.PlainOldClojureObject
  :state "state"
  :init "init"
  :constructors {[Boolean Boolean String] []}
  :methods [[isHuman [] Boolean]
            [isFound [] Boolean]
            [planet [] String]])

(defn -init [human? found? planet]
  [[] (atom {:human? human?
             :found? found?
             :planet planet})])

(defn- get-field [this k]
  (@(.state this) k))

(defn -isHuman [this]
  (get-field this :human?))

(defn -isFound [this]
  (get-field this :found?))

(defn -planet [this]
  (get-field this :planet))

(defn -toString [this]
  (str @(.state this)))

using-it.clj

user=> (import '[org.stargate PlainOldClojureObject])
org.stargate.PlainOldClojureObject

user=> (def poco (PlainOldClojureObject. true true "42"))
#'user/poco

user=> poco
#object[org.stargate.PlainOldClojureObject 0x68033b90 "{:human? true, :found? true, :planet \"42\"}"]


user=> (.isHuman poco)
true
user=> (.isFound poco)
true
user=> (.planet poco)
"42"