当我不指望它时,Clojure会抛出一个异常

时间:2015-06-15 03:53:15

标签: clojure throw

我有这个代码来从相扑逻辑和其他服务中获取数据。

core.clj有这个,它解析参数并将routes解析为route.clj中的正确函数

(def cli-options
  [
    ["-a" "--app APPNAME" "set app. app can be:
                                       sumologic or jira"]
    ["-?" "--help"]
    ])

(defn -main
  [& args]
  (let [{:keys [options summary errors arguments]} (parse-opts args cli-options)]
    (cond
      (:app options) (route/to (:app options) options arguments)
      :else (print_usage summary))))

route.clj有这个:

(defn to
  [app options arguments]
  (case app
    "jira" (jira/respond options arguments)
    "sumologic" (sumo/respond)))

然后sumo.clj有这个。当然还有其他功能,但仅显示相关部分。

(defn get-env-var
  [var]
  (let [result (System/getenv var)]
    (if (nil? result)
      (throw (Exception. (str "Environment variable: " var " not set. Aborting")))
      result)))

(def access_key
  (let [user (get-env-var "SUMO_ID")
        pass (get-env-var "SUMO_KEY")]
    [user pass]))

(defn respond
  []
  (let [{:keys [status body error] :as response} (http/get endpoint rest-options)]
    (if error
      (println error)
      (print-response body))))

当我使用leiningen作为lein run -- -?或甚至lein run运行程序时,我得到了这个错误,即使我没有明确调用sumological函数。我做错了什么,我能做些什么不同的事情?

Caused by: java.lang.Exception: Environment variable: SUMO_KEY not set. Aborting
    at clarion.sumo$get_env_var.invoke(sumo.clj:14)
    at clarion.sumo$fn__3765.invoke(sumo.clj:19)
    at clojure.lang.AFn.applyToHelper(AFn.java:152)
    at clojure.lang.AFn.applyTo(AFn.java:144)
    at clojure.lang.Compiler$InvokeExpr.eval(Compiler.java:3553)

1 个答案:

答案 0 :(得分:3)

您有def'd access_key因此在加载应用程序时会对其进行评估。你可能想把它变成一个函数。