Question

我正在尝试将http://thinkrelevance.com/blog/2013/06/04/clojure-workflow-reloaded中的想法实现到我的代码库中。

我有一个dao层，我现在需要传入一个数据库以避免全局状态。让我失望的一件事是：

任何需要其中一个组件的功能都必须将其作为一个参数。这并不像看起来那么繁琐：每个功能最多得到一个额外的参数，提供它所在的“上下文” 运行。该上下文可以是整个系统对象，但更多通常会是一些子集。明智地使用词汇封闭，额外的参数从大多数代码中消失。

为了避免每次调用都通过全局状态，我应该在哪里使用闭包？一个例子是在dao层中创建一个init函数，如下所示：

(defprotocol Persistable
  (collection-name [this]))

(def save nil)

(defn init [{:keys [db]}]
  (alter-var-root #'save (fn [_] (fn [obj] (mc/insert-and-return db (collection-name obj) obj WriteConcern/SAFE)))))

这样我可以从系统/启动函数启动我的dao层，如下所示：

(defn start
  [{:keys [db] :as system}]
  (let [d (-> db
              (mc/connect)
              (mc/get-db "my-test"))]
    (dao/init d)
    (assoc system :db d)))

这样可行，但感觉有点icky。有没有更好的办法？如果可能的话，我想避免强迫我的dao层的客户每次使用函数时都必须传递数据库。

Answer 1

您可以使用更高阶函数来表示您的DAO层 - 这是函数式编程的关键，使用函数来表示系统的小到大部分。因此，您有一个更高阶的函数，它将数据库连接作为参数接收，并返回另一个函数，您可以使用该函数调用数据库上的保存，删除等各种操作。以下是一个这样的例子：

(defn db-layer [db-connection]
  (let [db-operations {:save (fn [obj] (save db-connection obj))
                       :delete (fn [obj] (delete db-connection obj))
                       :query (fn [query] (query db-connection query))}]
    (fn [operation & params]
      (-> (db-operations operation) (apply params)))))

DB层的用法：

(let [my-db (create-database)
      db-layer-fn (db-layer my-db)]
  (db-layer-fn :save "abc")
  (db-layer-fn :delete "abc"))

这只是高阶函数如何允许您为另一组函数创建上下文的一个示例。通过将其与协议等其他Clojure功能相结合，您可以进一步理解这一概念。

避免Clojure应用程序的DAO层中的全局状态

1 个答案: