   [{:keys [status]}]
   (<= 200 status 399))
 
-(defn function-entry
+(defn- function-entry
   "Create function entry if it has :path-spec defined in its metadata, for example:
 
-  (defn
-   ^{:path-spec [:post \"/:id/activate\"]}
-   activate [id]
+  (defn activate
+   {:path-spec [:post \"/:id/activate\"]}
+  [id]
    ...
    )"
   [sym]

    (when-let [path-spec (:path-spec symbol-meta)]
      [path-spec (keyword (:name symbol-meta))])))

(defn ns-paths
  "Returns paths for <namespace> using DEFAULT_MAPPINGS and by scanning for functions :path-spec metadata.
   Each path returned is a tuple of [path-spec function-key] where:
     path-spec is a tuple of [method path]

                 (filter symbol-for-function? (map second (ns-publics namespace)))))
    DEFAULT-MAPPINGS))

(defn- get-function-meta
  "Get meta for route-mapping and namespace."
  [namespace [path-spec function-key]]
  (when-let [f (ns-function namespace function-key)]
