Handle errors when parsing XML

lib/parser/atom.ex

@@ -12,15 +12,22 @@ defmodule FeedParser.Parser.Atom do
   def accepts(data, content_type) do
     case content_type do
       "application/atom+xml" ->
-        {true, XML.parse(data)}
+        case XML.parse(data) do
+          {:error, _} -> false
+          {:ok, doc} -> {true, doc}
+        end
 
       _ when content_type in ["text/xml", "application/xml"] ->
-        doc = XML.parse(data)
+        case XML.parse(data) do
+          {:error, _} ->
+            false
 
-        if XML.xmlElement(doc, :name) == :feed do
+          {:ok, doc} ->
-          {true, doc}
+            if XML.xmlElement(doc, :name) == :feed do
-        else
+              {true, doc}
-          false
+            else
+              false
+            end
         end
 
       _ ->

lib/parser/rss2.ex

@@ -12,15 +12,22 @@ defmodule FeedParser.Parser.RSS2 do
   def accepts(data, content_type) do
     cond do
       content_type in ["application/rss+xml", "text/rss+xml"] ->
-        {true, XML.parse(data)}
+        case XML.parse(data) do
+          {:error, _} -> false
+          {:ok, doc} -> {true, doc}
+        end
 
       content_type in ["text/xml", "application/xml"] ->
-        doc = XML.parse(data)
+        case XML.parse(data) do
+          {:error, _} ->
+            false
 
-        if XML.xmlElement(doc, :name) == :rss do
+          {:ok, doc} ->
-          {true, doc}
+            if XML.xmlElement(doc, :name) == :rss do
-        else
+              {true, doc}
-          false
+            else
+              false
+            end
         end
 
       true ->

lib/xml.ex

@@ -9,12 +9,16 @@ defmodule FeedParser.XML do
   defrecord :xmlAttribute, extract(:xmlAttribute, from_lib: "xmerl/include/xmerl.hrl")
   defrecord :xmlText, extract(:xmlText, from_lib: "xmerl/include/xmerl.hrl")
 
-  @spec parse(data :: String.t()) :: tuple()
+  @spec parse(data :: String.t()) :: {:ok, tuple()} | {:error, String.t()}
   def parse(data) do
     {doc, _} =
-      data
+      try do
-      |> :binary.bin_to_list()
+        data
-      |> :xmerl_scan.string()
+        |> :binary.bin_to_list()
+        |> :xmerl_scan.string()
+      catch
+        :exit, reason -> {:error, "parsing XML failed: #{inspect(reason)}"}
+      end
 
     doc
   end