Subject: [bug#67963] [PATCH v2 15/37] gnu: Add perl-graphviz.

From: Felix Lechner <[email-masked]>
Date: Tue, 16 Jan 2024 14:12:53 -0800

* gnu/packages/graphviz.scm (perl-graphviz): New variable.

Change-Id: I5eb4535c46ac96984e94fc7578ce4628d2ed5a49
---
 gnu/packages/graphviz.scm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/gnu/packages/graphviz.scm b/gnu/packages/graphviz.scm
index b91c365e3c..cecdc23a7f 100644
--- a/gnu/packages/graphviz.scm
+++ b/gnu/packages/graphviz.scm
@@ -32,6 +32,7 @@
 (define-module (gnu packages graphviz)
   #:use-module (guix packages)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system perl)
   #:use-module (guix build-system pyproject)
   #:use-module (guix build-system python)
   #:use-module (guix download)
@@ -50,6 +51,7 @@ (define-module (gnu packages graphviz)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages image)
+  #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
   #:use-module (gnu packages python-build)
@@ -58,6 +60,7 @@ (define-module (gnu packages graphviz)
   #:use-module (gnu packages sphinx)
   #:use-module (gnu packages swig)
   #:use-module (gnu packages tex)
+  #:use-module (gnu packages web)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages xorg)
   #:use-module ((guix licenses) #:prefix license:))
@@ -131,6 +134,38 @@ (define-public graphviz-minimal
               (delete "libxrender" "libx11" "pango" "libxaw")))
     (synopsis "Graph visualization software (without X11 support)")))
 
+(define-public perl-graphviz
+  (package
+    (name "perl-graphviz")
+    (version "2.26")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/E/ET/ETJ/GraphViz-" version
+                           ".tar.gz"))
+       (sha256
+        (base32 "0a3kv92z9gykwgh8py5y67wygy25lijdfb97fl2g6ar6nch2apcs"))))
+    (build-system perl-build-system)
+    (native-inputs (list graphviz))
+    (inputs (list graphviz))
+    (propagated-inputs (list perl-file-which
+                             perl-ipc-run
+                             perl-libwww
+                             perl-parse-recdescent
+                             perl-xml-twig
+                             perl-xml-xpath))
+    (home-page "https://metacpan.org/release/GraphViz")
+    (synopsis "Interface to AT&T's GraphViz. Deprecated. See GraphViz2")
+    (description "This module provides an interface to layout and image
+generation of directed and undirected graphs in a variety of formats
+(PostScript, PNG, etc.) using the @code{dot}, @code{neato}, @code{twopi},
+@code{circo} and @code{fdp} programs from the Graphviz project
+(http://www.graphviz.org/ or
+http://www.research.att.com/sw/tools/graphviz/).
+
+GraphViz was deprecated in favour of GraphViz2.")
+    (license license:perl-license)))
+
 (define-public python-graphviz
   (package
     (name "python-graphviz")
-- 
2.41.0