From ad871fc600bea5a8a2fcf311661f75ec03df5a02 Mon Sep 17 00:00:00 2001
From: Andreas Enge <andreas@enge.fr>
Date: Mon, 9 Dec 2013 22:37:28 +0100
Subject: [PATCH] gnu: Add perl-xml-dom.

* gnu/packages/xml.scm (perl-xml-dom): New variable.
---
 gnu/packages/xml.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 603e14fdd3..6f96d37930 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -23,6 +23,7 @@
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages web)
   #:use-module ((guix licenses)
                 #:renamer (symbol-prefix-proc 'license:))
   #:use-module (guix packages)
@@ -208,6 +209,38 @@ BaseChar, Ideographic, Letter, Digit, Extender, CombiningChar, NameChar,
 EntityRef, CharRef, Reference, Name, NmToken, and AttValue.")
     (home-page "http://search.cpan.org/~tjmather/XML-RegExp/lib/XML/RegExp.pm")))
 
+(define-public perl-xml-dom
+  (package
+    (name "perl-xml-dom")
+    (version "1.44")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append
+                   "mirror://cpan/authors/id/T/TJ/TJMATHER/XML-DOM-"
+                   version ".tar.gz"))
+             (sha256
+              (base32
+               "1r0ampc88ni3sjpzr583k86076qg399arfm9xirv3cw49k3k5bzn"))))
+    (build-system perl-build-system)
+    (inputs
+     `(("perl-http-date" ,perl-http-date)
+       ("perl-http-message" ,perl-http-message)
+       ("perl-libwww" ,perl-libwww)
+       ("perl-libxml" ,perl-libxml)
+       ("perl-uri" ,perl-uri)
+       ("perl-xml-parser" ,perl-xml-parser)
+       ("perl-xml-regexp" ,perl-xml-regexp)))
+    (license (package-license perl))
+    (synopsis
+     "Perl module for building DOM Level 1 compliant document structures")
+    (description
+     "This module extends the XML::Parser module by Clark Cooper.  The
+XML::Parser module is built on top of XML::Parser::Expat, which is a lower
+level interface to James Clark's expat library.  XML::DOM::Parser is derived
+from XML::Parser.  It parses XML strings or files and builds a data structure
+that conforms to the API of the Document Object Model.")
+    (home-page "http://search.cpan.org/~tjmather/XML-DOM-1.44/lib/XML/DOM.pm")))
+
 (define-public xmlto
   (package
     (name "xmlto")