 
 (defn- pom-has-properties?
   [pom]
-  (some? (filter #(tag-equals? % :properties) (:content pom))))
+  (-> (filter #(tag-equals? % :properties) (:content pom))
+      count
+      (> 0)))
 
 
 (defn- pom-has-dependencyManagement?
   [pom]
-  (some? (filter #(tag-equals? % :dependencyManagement) (:content pom))))
+  (-> (filter #(tag-equals? % :dependencyManagement) (:content pom))
+      count
+      (> 0)))
 
 
 (defn- pom-has-dependencies?
   [pom]
-  (some? (filter #(tag-equals? % :dependencies) (:content pom))))
+  (-> (filter #(tag-equals? % :dependencies) (:content pom))
+      count
+      (> 0)))
 
 
 ;;; Functions to process the properties section
-
-(defn- filter-out-properties-without-version
-  "Returns only those properties that are a version number."
-  [coll]
-  (filter contains-version? coll))
-
-
-(defn- get-properties-from-pom
-  "Given a pom, extract the properties and see if they contain dependency version data."
-  [pom]
-  (-> (filter #(tag-equals? % :properties) (:content pom))
-      first
-      :content
-      filter-out-properties-without-version))
-
-;(get-properties-from-pom pom)
 
 (defn- contains-version?
   "Checks a given member of the pom properties to see if it contains version number."

      (subs 1)))


(defn- get-dep-version-map
  "Given the properties portion of a pom, return a seq of "
  [properties]
  (let [properties-map (transient {})]
    (doseq [p properties]
      (assoc! properties-map (keyword (parse-name (:tag p))) (first (:content p))))
    (persistent! properties-map)))

(get-dep-version-map (get-properties-from-pom pom))


;;; Functions to process dependencyManagement

;;; Functions to process dependencies

    has-version?))


(defn- filter-out-properties-without-version
  "Returns only those properties that are a version number."
  [coll]
  (filter contains-version? coll))


(defn- get-properties-from-pom
  "Given a pom, extract the properties and see if they contain dependency version data."
  [pom]
  (-> (filter #(tag-equals? % :properties) (:content pom))
      first
      :content
      filter-out-properties-without-version))


(defn- parse-name
  [name]
  (-> (clojure.string/split (str name) #"\.")
