                          (with-meta pkeys {:fn-flusher fn-flusher
                                            :delayer delayer
                                            :flusher flusher
-                                           :data (atom {})})))
+                                           :data (atom {})
+                                           :rollup rollup})))
                 (assoc % mkey pkeys))))
     (get @mkeys mkey)))
 

(defn- run-flusher!
  [mkeys]
  (info "Flushing the store cache...")
  (doseq [[mkey pkeys] @mkeys]
    (let [m (meta @pkeys)
          delayer (get m :delayer nil)
          flusher (get m :flusher nil)]
      (when delayer
        (future-cancel delayer)
        (when flusher
          (deref flusher)))))
  (info "The store cache has been flushed"))

(defn in-memory-cache
  [config]

                             @pkeys)) ttl)))
      (swap! mkeys #(dissoc % mkey))
      (catch Exception e
        (error e "Cache flushing exception")))))

(defn- run-delayer!
  [rollup fn-flusher]
