[bug#67963] [PATCH 0/4] Add Perl modules for debbugs.gnu.org

[bug#67963] [PATCH 0/4] Add Perl modules for debbugs.gnu.org

[Felix Lechner via Guix-patches via]

Hi,

These Perl packages are needed for Debbugs as deployed on debbugs.gnu.org.

Kind regards
Felix

Felix Lechner (4):
  gnu: perl.scm: Fix indentation (no functional changes).
  gnu: Add perl-devel-confess.
  gnu: Add perl-mldbm.
  gnu: Add perl-safe-hole.

 gnu/packages/perl.scm | 98 ++++++++++++++++++++++++++++++++++++-------
 1 file changed, 82 insertions(+), 16 deletions(-)


base-commit: b9fae146d6cc4a6968a8eb18beef29aa1414a31e
-- 
2.41.0

[bug#67963] [PATCH 1/4] gnu: perl.scm: Fix indentation (no functional changes).

[Felix Lechner via Guix-patches via]

* gnu/packages/perl.scm: Fix indentation (no functional changes).

Change-Id: I448643ee971fbeeead233124fc3fb5982dd02bbb
---
 gnu/packages/perl.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 8b82c272fc..aca4c36ea7 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3776,24 +3776,24 @@ (define-public perl-devel-checklib
 
 (define-public perl-devel-checkcompiler
   (package
-  (name "perl-devel-checkcompiler")
-  (version "0.07")
-  (source (origin
-            (method url-fetch)
-            (uri (string-append "mirror://cpan/authors/id/S/SY/SYOHEX/"
-                                "Devel-CheckCompiler-" version ".tar.gz"))
-            (sha256
-             (base32
-              "1db973a4dbyknjxq608hywil5ai6vplnayshqxrd7m5qnjbpd2vn"))))
-  (build-system perl-build-system)
-  (native-inputs
-   (list perl-module-build-tiny))
-  (home-page "https://metacpan.org/release/Devel-CheckCompiler")
-  (synopsis "Check compiler availability")
-  (description "@code{Devel::CheckCompiler} is a tiny module to check
+    (name "perl-devel-checkcompiler")
+    (version "0.07")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://cpan/authors/id/S/SY/SYOHEX/"
+                                  "Devel-CheckCompiler-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1db973a4dbyknjxq608hywil5ai6vplnayshqxrd7m5qnjbpd2vn"))))
+    (build-system perl-build-system)
+    (native-inputs
+     (list perl-module-build-tiny))
+    (home-page "https://metacpan.org/release/Devel-CheckCompiler")
+    (synopsis "Check compiler availability")
+    (description "@code{Devel::CheckCompiler} is a tiny module to check
 whether a compiler is available.  It can test for a C99 compiler, or
 you can tell it to compile a C source file with optional linker flags.")
-  (license (package-license perl))))
+    (license (package-license perl))))
 
 (define-public perl-devel-cycle
   (package
-- 
2.41.0

[bug#67963] [PATCH 2/4] gnu: Add perl-devel-confess.

[Felix Lechner via Guix-patches via]

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

Change-Id: I8973759cb75e4c7d22096238a0a06d583d082813
---
 gnu/packages/perl.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index aca4c36ea7..4da82a3871 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3795,6 +3795,25 @@ (define-public perl-devel-checkcompiler
 you can tell it to compile a C source file with optional linker flags.")
     (license (package-license perl))))
 
+(define-public perl-devel-confess
+  (package
+    (name "perl-devel-confess")
+    (version "0.009004")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/H/HA/HAARG/Devel-Confess-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "1pbl38lkvmz97ddy26sg7ynsrspmf4phd0pk2ac95xjw6kdh3im8"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Devel-Confess")
+    (synopsis "Include stack traces on all warnings and errors")
+    (description "This module is meant as a debugging aid.  It can be used to make a
+script complain loudly with stack backtraces when warning or dying.  Unlike modules
+such as Carp::Always, stack traces are also included when exceptions are thrown.")
+    (license license:perl-license)))
+
 (define-public perl-devel-cycle
   (package
     (name "perl-devel-cycle")
-- 
2.41.0

[bug#67963] [PATCH 3/4] gnu: Add perl-mldbm.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ifa45d6123b953fff7b882d6a1508bf05985cc4d1
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4da82a3871..d7e37552db 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -6880,6 +6880,32 @@ (define-public perl-mixin-linewise
 file names are added for you.")
     (license (package-license perl))))
 
+(define-public perl-mldbm
+  (package
+    (name "perl-mldbm")
+    (version "2.05")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/C/CH/CHORNY/MLDBM-" version
+                           ".tar.gz"))
+       (sha256
+        (base32 "18hp5bq5jl6v1prc9sz6xkpys0q27vhlfivkysxim0101knq0s2q"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (home-page "https://metacpan.org/release/MLDBM")
+    (synopsis "Store multi-level Perl hash structure in single-level tied hash")
+    (description "This module can serve as a transparent interface to any TIEHASH
+package that is required to store arbitrary perl data, including nested
+references.  Thus, this module can be used for storing references and other
+arbitrary data within DBM databases.
+
+It works by serializing the references in the hash into a single string.  In the
+underlying TIEHASH package (usually a DBM database), it is this string that gets
+stored.  When the value is fetched again, the string is deserialized to
+reconstruct the data structure into memory.")
+    (license license:perl-license)))
+
 (define-public perl-modern-perl
   (package
     (name "perl-modern-perl")
-- 
2.41.0

[bug#67963] [PATCH 4/4] gnu: Add perl-safe-hole.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ifc635a7a7dfecc698b00a822c84aaf858b8abd52
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d7e37552db..1dff82534c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9363,6 +9363,27 @@ (define-public perl-role-tiny-2
        (sha256
         (base32 "11qn516352yhi794www3ykwa9xv2gxpfnhn9jcn10x0ahl95gflj"))))))
 
+(define-public perl-safe-hole
+  (package
+    (name "perl-safe-hole")
+    (version "0.14")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/T/TO/TODDR/Safe-Hole-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "01gc2lfli282dj6a2pkpxb0vmpyavs323cbdw15gxi06pn5nxxgl"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (home-page "https://metacpan.org/release/Safe-Hole")
+    (synopsis "Make a hole to the original main compartment in the Safe compartment")
+    (description "From the Safe compartment, one can call outside defined subroutines or
+methods through the object that is copied into the Safe compartment, but they too
+run in the Safe compartment.  Through Safe::Hole, we can execute outside defined
+subroutines in the original main compartment from the Safe compartment.")
+    (license license:perl-license)))
+
 (define-public perl-safe-isa
   (package
     (name "perl-safe-isa")
-- 
2.41.0

[bug#67963] [PATCH v2 01/37] gnu: perl.scm: Fix indentation (no functional changes).

[Felix Lechner via Guix-patches via]

* gnu/packages/perl.scm: Fix indentation (no functional changes).

Change-Id: I448643ee971fbeeead233124fc3fb5982dd02bbb
---
 gnu/packages/perl.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 8b82c272fc..aca4c36ea7 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3776,24 +3776,24 @@ (define-public perl-devel-checklib
 
 (define-public perl-devel-checkcompiler
   (package
-  (name "perl-devel-checkcompiler")
-  (version "0.07")
-  (source (origin
-            (method url-fetch)
-            (uri (string-append "mirror://cpan/authors/id/S/SY/SYOHEX/"
-                                "Devel-CheckCompiler-" version ".tar.gz"))
-            (sha256
-             (base32
-              "1db973a4dbyknjxq608hywil5ai6vplnayshqxrd7m5qnjbpd2vn"))))
-  (build-system perl-build-system)
-  (native-inputs
-   (list perl-module-build-tiny))
-  (home-page "https://metacpan.org/release/Devel-CheckCompiler")
-  (synopsis "Check compiler availability")
-  (description "@code{Devel::CheckCompiler} is a tiny module to check
+    (name "perl-devel-checkcompiler")
+    (version "0.07")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://cpan/authors/id/S/SY/SYOHEX/"
+                                  "Devel-CheckCompiler-" version ".tar.gz"))
+              (sha256
+               (base32
+                "1db973a4dbyknjxq608hywil5ai6vplnayshqxrd7m5qnjbpd2vn"))))
+    (build-system perl-build-system)
+    (native-inputs
+     (list perl-module-build-tiny))
+    (home-page "https://metacpan.org/release/Devel-CheckCompiler")
+    (synopsis "Check compiler availability")
+    (description "@code{Devel::CheckCompiler} is a tiny module to check
 whether a compiler is available.  It can test for a C99 compiler, or
 you can tell it to compile a C source file with optional linker flags.")
-  (license (package-license perl))))
+    (license (package-license perl))))
 
 (define-public perl-devel-cycle
   (package

base-commit: b9fae146d6cc4a6968a8eb18beef29aa1414a31e
-- 
2.41.0

[bug#67963] [PATCH v2 02/37] Use only version 2 of Perl's Strictures.

[Felix Lechner via Guix-patches via]

Mixed versions conflict due to propagated inputs.

Change-Id: I8ac476ea45891f9b76dfe737cbf142d7b0b8ab4e
---
 gnu/packages/perl-check.scm |  2 +-
 gnu/packages/perl.scm       | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index 5ef56227ce..d84ba4eaaf 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -1236,7 +1236,7 @@ (define-public perl-test-roo
            perl-moo
            perl-moox-types-mooselike
            perl-multidimensional
-           perl-strictures
+           perl-strictures-2
            perl-sub-install))
     (home-page "https://metacpan.org/release/Test-Roo")
     (synopsis "Composable, reusable tests with roles and Moo")
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index aca4c36ea7..033c9900ce 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2655,7 +2655,7 @@ (define-public perl-data
      (list perl-test-deep perl-test-output perl-test-fatal))
     (inputs
      (list perl-class-method-modifiers perl-list-moreutils
-           perl-module-runtime perl-role-tiny perl-strictures))
+           perl-module-runtime perl-role-tiny perl-strictures-2))
     (home-page "https://metacpan.org/release/Data-Perl")
     (synopsis "Base classes wrapping fundamental Perl data types")
     (description "Collection of classes that wrap fundamental data types that
@@ -2936,7 +2936,7 @@ (define-public perl-data-perl
      (list perl-test-deep perl-test-fatal perl-test-output))
     (inputs
      (list perl-class-method-modifiers perl-module-runtime perl-role-tiny
-           perl-strictures))
+           perl-strictures-2))
     (propagated-inputs
      (list perl-list-moreutils))
     (home-page
@@ -4385,7 +4385,7 @@ (define-public perl-eval-withlexicals
                              ,(string-append out "/lib/perl5/site_perl"))))
                         #t))))))
     (propagated-inputs
-     (list perl-moo perl-strictures))
+     (list perl-moo perl-strictures-2))
     (home-page "https://metacpan.org/release/Eval-WithLexicals")
     (synopsis "Lexical scope evaluation library for Perl")
     (description "The Eval::WithLexicals Perl library provides support for
@@ -7227,7 +7227,7 @@ (define-public perl-moo
            perl-import-into
            perl-module-runtime
            perl-role-tiny
-           perl-strictures))
+           perl-strictures-2))
     (home-page "https://metacpan.org/release/Moo")
     (synopsis "Minimalist Object Orientation (with Moose compatibility)")
     (description "Moo is an extremely light-weight Object Orientation system.
@@ -7990,7 +7990,7 @@ (define-public perl-moox-strictconstructor
     (native-inputs
      (list perl-test-fatal))
     (propagated-inputs
-     (list perl-class-method-modifiers perl-moo perl-strictures))
+     (list perl-class-method-modifiers perl-moo perl-strictures-2))
     (home-page "https://metacpan.org/release/MooX-StrictConstructor")
     (synopsis "Make Moo-based object constructors blow up on unknown attributes")
     (description
@@ -8014,7 +8014,7 @@ (define-public perl-moox-types-mooselike
     (native-inputs
      (list perl-moo perl-test-fatal))
     (propagated-inputs
-     (list perl-module-runtime perl-strictures))
+     (list perl-module-runtime perl-strictures-2))
     (home-page "https://metacpan.org/release/MooX-Types-MooseLike")
     (synopsis "Moosish types and type builder")
     (description "MooX::Types::MooseLike provides a possibility to build your
-- 
2.41.0

[bug#67963] [PATCH v2 03/37] Fix broken test in Perl's DBIx::Class.

[Felix Lechner via Guix-patches via]

Fixes this test:

  ;; #   Failed test 'Unexpected require of 'MRO::Compat' by
  ;; DBIx::Class::Componentised
  ;; (/tmp/guix-build-perl-dbix-class-0.082842.drv-0/DBIx-Class-0.082842/blib/li
  ;; b/DBIx/Class/Componentised.pm line 7)'
  ;; #   at t/53lean_startup.t line 58.
  ;; # Looks like you failed 1 test of 7.
  ;; t/53lean_startup.t ..................................
  ;; Dubious, test returned 1 (wstat 256, 0x100)
  ;; Failed 1/7 subtests

Change-Id: Ifdcb33a247bd5f57e18ee83650d9918d8b45c321
---
 gnu/packages/databases.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index b5077583c3..1f4e6be631 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1946,6 +1946,24 @@ (define-public perl-dbix-class
        (sha256
         (base32 "1rh7idjjbibc1zmiaaarask434lh0lx7f2xyfwmy37k9fa0xcpmh"))))
     (build-system perl-build-system)
+    (arguments
+     (list
+      #:phases
+      ;; #   Failed test 'Unexpected require of 'MRO::Compat' by
+      ;; DBIx::Class::Componentised
+      ;; (/tmp/guix-build-perl-dbix-class-0.082842.drv-0/DBIx-Class-0.082842/blib/li
+      ;; b/DBIx/Class/Componentised.pm line 7)'
+      ;; #   at t/53lean_startup.t line 58.
+      ;; # Looks like you failed 1 test of 7.
+      ;; t/53lean_startup.t ..................................
+      ;; Dubious, test returned 1 (wstat 256, 0x100)
+      ;; Failed 1/7 subtests
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-test
+            (lambda _
+              (substitute* "t/53lean_startup.t"
+                (("    mro\n")
+                 "    mro\n    MRO::Compat\n")))))))
     (native-inputs
      (list perl-dbd-sqlite
            perl-file-temp
-- 
2.41.0

[bug#67963] [PATCH v2 04/37] gnu: Add perl-devel-confess.

[Felix Lechner via Guix-patches via]

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

Change-Id: I8973759cb75e4c7d22096238a0a06d583d082813
---
 gnu/packages/perl.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 033c9900ce..c59f53139b 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3795,6 +3795,25 @@ (define-public perl-devel-checkcompiler
 you can tell it to compile a C source file with optional linker flags.")
     (license (package-license perl))))
 
+(define-public perl-devel-confess
+  (package
+    (name "perl-devel-confess")
+    (version "0.009004")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/H/HA/HAARG/Devel-Confess-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "1pbl38lkvmz97ddy26sg7ynsrspmf4phd0pk2ac95xjw6kdh3im8"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Devel-Confess")
+    (synopsis "Include stack traces on all warnings and errors")
+    (description "This module is meant as a debugging aid.  It can be used to make a
+script complain loudly with stack backtraces when warning or dying.  Unlike modules
+such as Carp::Always, stack traces are also included when exceptions are thrown.")
+    (license license:perl-license)))
+
 (define-public perl-devel-cycle
   (package
     (name "perl-devel-cycle")
-- 
2.41.0

[bug#67963] [PATCH v2 05/37] gnu: Add perl-mldbm.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ifa45d6123b953fff7b882d6a1508bf05985cc4d1
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index c59f53139b..f5698ef824 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -6880,6 +6880,32 @@ (define-public perl-mixin-linewise
 file names are added for you.")
     (license (package-license perl))))
 
+(define-public perl-mldbm
+  (package
+    (name "perl-mldbm")
+    (version "2.05")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/C/CH/CHORNY/MLDBM-" version
+                           ".tar.gz"))
+       (sha256
+        (base32 "18hp5bq5jl6v1prc9sz6xkpys0q27vhlfivkysxim0101knq0s2q"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (home-page "https://metacpan.org/release/MLDBM")
+    (synopsis "Store multi-level Perl hash structure in single-level tied hash")
+    (description "This module can serve as a transparent interface to any TIEHASH
+package that is required to store arbitrary perl data, including nested
+references.  Thus, this module can be used for storing references and other
+arbitrary data within DBM databases.
+
+It works by serializing the references in the hash into a single string.  In the
+underlying TIEHASH package (usually a DBM database), it is this string that gets
+stored.  When the value is fetched again, the string is deserialized to
+reconstruct the data structure into memory.")
+    (license license:perl-license)))
+
 (define-public perl-modern-perl
   (package
     (name "perl-modern-perl")
-- 
2.41.0

[bug#67963] [PATCH v2 06/37] gnu: Add perl-safe-hole.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ifc635a7a7dfecc698b00a822c84aaf858b8abd52
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index f5698ef824..3f21c7e495 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9363,6 +9363,27 @@ (define-public perl-role-tiny-2
        (sha256
         (base32 "11qn516352yhi794www3ykwa9xv2gxpfnhn9jcn10x0ahl95gflj"))))))
 
+(define-public perl-safe-hole
+  (package
+    (name "perl-safe-hole")
+    (version "0.14")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/T/TO/TODDR/Safe-Hole-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "01gc2lfli282dj6a2pkpxb0vmpyavs323cbdw15gxi06pn5nxxgl"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (home-page "https://metacpan.org/release/Safe-Hole")
+    (synopsis "Make a hole to the original main compartment in the Safe compartment")
+    (description "From the Safe compartment, one can call outside defined subroutines or
+methods through the object that is copied into the Safe compartment, but they too
+run in the Safe compartment.  Through Safe::Hole, we can execute outside defined
+subroutines in the original main compartment from the Safe compartment.")
+    (license license:perl-license)))
+
 (define-public perl-safe-isa
   (package
     (name "perl-safe-isa")
-- 
2.41.0

[bug#67963] [PATCH v2 07/37] gnu: Add perl-class-hash.

[Felix Lechner via Guix-patches via]

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

Change-Id: I8617698e0d40fb08fff23fdfb09ef24499de109e
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 3f21c7e495..6314924868 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -1617,6 +1617,27 @@ (define-public perl-class-factory-util
     (description "This module exports methods useful for factory classes.")
     (license (package-license perl))))
 
+(define-public perl-class-hash
+  (package
+    (name "perl-class-hash")
+    (version "1.01")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/H/HA/HANENKAMP/Class-Hash/Class-Hash-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1kcg00ks6vica496m6dqwb1c9gkb6igndkrxr4a7ff7391yg3ywz"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Class-Hash")
+    (synopsis "Perl extension for hashes that look like classes")
+    (description "This component provides a method-based interface to a hash.
+Occasionally, it's more convenient to have named methods to access a hash
+than hash keys.  This module generalizes that behavior.  It tries to work
+the tied hash interface inside-out.")
+    (license license:perl-license)))
+
 (define-public perl-class-inspector
   (package
     (name "perl-class-inspector")
-- 
2.41.0

[bug#67963] [PATCH v2 08/37] gnu: Add perl-data-messagepack.

[Felix Lechner via Guix-patches via]

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

Change-Id: I6f4a06500054483f171df097f59943a03fa3a9ae
---
 gnu/packages/perl.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 6314924868..a60841bb7c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2765,6 +2765,29 @@ (define-public perl-data-integer
 unsigned representations are handled.")
     (license license:perl-license)))
 
+(define-public perl-data-messagepack
+  (package
+    (name "perl-data-messagepack")
+    (version "1.02")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/S/SY/SYOHEX/Data-MessagePack-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "1dxih8s9a5rd0vg0nd9i0gb0m5zyvxw26bl88x0jb3daj13v8gf3"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-module-build-xsutil
+                         perl-test-requires))
+    (home-page "https://metacpan.org/release/Data-MessagePack")
+    (synopsis "MessagePack serializing/deserializing")
+    (description "MessagePack is a binary-based, efficient object
+serialization format.  It enables the exchange of structured objects between
+many languages.  In that sense it is similar to JSON.  But unlike JSON, it is
+very fast and small.")
+    (license license:perl-license)))
+
 (define-public perl-data-uniqid
   (package
     (name "perl-data-uniqid")
-- 
2.41.0

[bug#67963] [PATCH v2 09/37] gnu: Add perl-datetime-format-mysql.

[Felix Lechner via Guix-patches via]

* gnu/packages/perl.scm (perl-datetime-format-mysql): New variable.

Change-Id: I0ecaa411b3e8f5cd003b3abc9e79d3b552c8e586
---
 gnu/packages/perl.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index a60841bb7c..e04903280a 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3520,6 +3520,31 @@ (define-public perl-datetime-format-iso8601
 extension that parses almost all ISO8601 date and time formats.")
     (license license:perl-license)))
 
+(define-public perl-datetime-format-mysql
+  (package
+    (name "perl-datetime-format-mysql")
+    (version "0.08")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/X/XM/XMIKEW/DateTime-Format-MySQL-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1s5r4b8n749gf4b49i1svkfh5aawriqqwsid9lsmwrc4hplp1jqr"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (propagated-inputs (list perl-datetime
+                             perl-datetime-format-builder))
+    (home-page "https://metacpan.org/release/DateTime-Format-MySQL")
+    (synopsis "Parse and format MySQL dates and times")
+    (description "This module understands the formats used by MySQL for
+its DATE, DATETIME, TIME, and TIMESTAMP data types.  It can be used to
+parse these formats in order to create DateTime objects, and it can
+take a DateTime object and produce a string representing it in the
+MySQL format.")
+    (license license:perl-license)))
+
 (define-public perl-datetime-format-natural
   (package
     (name "perl-datetime-format-natural")
-- 
2.41.0

[bug#67963] [PATCH v2 10/37] gnu: Add perl-datetime-format-pg.

[Felix Lechner via Guix-patches via]

* gnu/packages/perl.scm (perl-datetime-format-pg): New variable.

Change-Id: I595271d5aecb6915f750ee1dd71144595359cb58
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index e04903280a..f4fb49d9b2 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3575,6 +3575,32 @@ (define-public perl-datetime-format-natural
 parsing logic.")
     (license (package-license perl))))
 
+(define-public perl-datetime-format-pg
+  (package
+    (name "perl-datetime-format-pg")
+    (version "0.16014")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/D/DM/DMAKI/DateTime-Format-Pg-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "1f8fpv655x8w9zaa65lp1yn0pianjv5l4qvg6v1q9hsda9k9dfrq"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build-tiny))
+    (propagated-inputs (list perl-datetime
+                             perl-datetime-format-builder
+                             perl-datetime-timezone))
+    (home-page "https://metacpan.org/release/DateTime-Format-Pg")
+    (synopsis "Parse and format PostgreSQL dates and times")
+    (description "This module understands the formats used by PostgreSQL
+for its DATE, TIME, TIMESTAMP, and INTERVAL data types.  It can be used
+to parse these formats in order to create DateTime or DateTime::Duration
+objects, and it can take a DateTime or DateTime::Duration object and
+produce a string representing it in a format accepted by PostgreSQL.")
+    (license license:perl-license)))
+
 (define-public perl-datetime-format-strptime
   (package
     (name "perl-datetime-format-strptime")
-- 
2.41.0

[bug#67963] [PATCH v2 11/37] gnu: Add perl-datetime-format-sqlite.

[Felix Lechner via Guix-patches via]

* gnu/packages/perl.scm (perl-datetime-format-sqlite): New variable.

Change-Id: I9623da196b9d008647ea3d4722f27042eab6f504
---
 gnu/packages/perl.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index f4fb49d9b2..7307e7b0cc 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3601,6 +3601,29 @@ (define-public perl-datetime-format-pg
 produce a string representing it in a format accepted by PostgreSQL.")
     (license license:perl-license)))
 
+(define-public perl-datetime-format-sqlite
+  (package
+    (name "perl-datetime-format-sqlite")
+    (version "0.11")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/C/CF/CFAERBER/DateTime-Format-SQLite-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1d4ln8x5bjpqmgnbbi2h16knfz674dsgvk6x7m60v6ykw454w7yc"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-datetime
+                             perl-datetime-format-builder))
+    (home-page "https://metacpan.org/release/DateTime-Format-SQLite")
+    (synopsis "Parse and format SQLite dates and times")
+    (description "This module understands the formats used by SQLite for
+its date, datetime and time functions.  It can be used to parse these
+formats in order to create DateTime objects.  It can also take a DateTime
+object and produce a timestring accepted by SQLite.")
+    (license license:perl-license)))
+
 (define-public perl-datetime-format-strptime
   (package
     (name "perl-datetime-format-strptime")
-- 
2.41.0

[bug#67963] [PATCH v2 12/37] gnu: Add perl-dime-tools.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ib4ae048fc3b7cd1c847d5ad05354d047fdfd5aed
---
 gnu/packages/perl.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 7307e7b0cc..ebf79ea105 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4273,6 +4273,28 @@ (define-public perl-digest-sha1
     (home-page "https://metacpan.org/release/Digest-SHA1")
     (license (package-license perl))))
 
+(define-public perl-dime-tools
+  (package
+    (name "perl-dime-tools")
+    (version "0.05")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/N/NE/NEILB/DIME-Tools-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "0lfc0z5ap2jyjffqvmfv5p6j7hjcr3dr4v9jfvl0r0561lay54gl"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-data-uuid
+                             perl-io-stringy))
+    (home-page "https://metacpan.org/release/DIME-Tools")
+    (synopsis "Parse and generate DIME messages")
+    (description "DIME-tools is a collection of DIME:: modules for
+parsing and generating DIME encoded messages (Direct Internet
+Message Encapsulation).  DIME-tools support single-record and
+chunked payloads for sending big attachments.")
+    (license license:gpl2)))
+
 (define-public perl-dist-checkconflicts
   (package
     (name "perl-dist-checkconflicts")
-- 
2.41.0

[bug#67963] [PATCH v2 13/37] gnu: Add perl-fcgi-client.

[Felix Lechner via Guix-patches via]

* gnu/packages/web.scm (perl-fcgi-client): New variable.

Change-Id: I50b690940e2b5a9162f92d0a6550a3e7f46fc6c9
---
 gnu/packages/web.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 5d873e0884..08231347c2 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -3292,6 +3292,27 @@ (define-public perl-encode-locale
 with Encode::decode(locale => $string).")
     (home-page "https://metacpan.org/release/Encode-Locale")))
 
+(define-public perl-fcgi-client
+  (package
+    (name "perl-fcgi-client")
+    (version "0.09")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/T/TO/TOKUHIROM/FCGI-Client-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "1s11casbv0jmkcl5dk8i2vhfy1nc8rg43d3bg923zassrq4wndym"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build-tiny))
+    (propagated-inputs (list perl-moo
+                             perl-type-tiny))
+    (home-page "https://metacpan.org/release/FCGI-Client")
+    (synopsis "Client library for the FastCGI protocol")
+    (description "FCGI::Client is client library for fastcgi protocol.")
+    (license license:perl-license)))
+
 (define-public perl-feed-find
   (package
     (name "perl-feed-find")
-- 
2.41.0

[bug#67963] [PATCH v2 14/37] gnu: Add perl-fcgi.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ic57efb058ec0a2a46fca67ccf9b08806f21a46e1
---
 gnu/packages/web.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 08231347c2..344a138961 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -3292,6 +3292,32 @@ (define-public perl-encode-locale
 with Encode::decode(locale => $string).")
     (home-page "https://metacpan.org/release/Encode-Locale")))
 
+(define-public perl-fcgi
+  (package
+    (name "perl-fcgi")
+    (version "0.82")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/E/ET/ETHER/FCGI-" version
+                           ".tar.gz"))
+       (sha256
+        (base32 "1kwyy08lc23yjwaj4m696cxjf195x4hm0d2fi82pzh52dpi60zac"))))
+    (build-system perl-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'configure 'provide-shell
+            (lambda _
+              (setenv "CONFIG_SHELL" (which "sh")))))))
+    (native-inputs (list bash
+                         perl-fcgi-client))
+    (home-page "https://metacpan.org/release/FCGI")
+    (synopsis "Fast CGI module")
+    (description "This is a FastCGI application library.")
+    (license (license:non-copyleft "file://LICENSE" "Open Market"))))
+
 (define-public perl-fcgi-client
   (package
     (name "perl-fcgi-client")
-- 
2.41.0

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

[Felix Lechner via Guix-patches via]

* 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

[bug#67963] [PATCH v2 16/37] gnu: Add perl-hash-ordered.

[Felix Lechner via Guix-patches via]

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

Change-Id: I39d2443ae71cfba26ecdf93af851245c67b50051
---
 gnu/packages/perl.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index ebf79ea105..dec4fca2bc 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5691,6 +5691,30 @@ (define-public perl-hash-multivalue
 that may contain multiple values per key, inspired by MultiDict of WebOb.")
     (license (package-license perl))))
 
+(define-public perl-hash-ordered
+  (package
+    (name "perl-hash-ordered")
+    (version "0.014")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/D/DA/DAGOLDEN/Hash-Ordered-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "0yvlb4f2bicya8l8q989whqrmfpz428zvr9xiamkgbjmj7bnrhwd"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-deep
+                         perl-test-failwarnings
+                         perl-test-fatal))
+    (home-page "https://metacpan.org/release/Hash-Ordered")
+    (synopsis "Fast, pure-Perl ordered hash class")
+    (description "This module implements an ordered hash, meaning that it
+associates keys with values like a Perl hash, but keeps the keys in a
+consistent order.  Because it is implemented as an object and manipulated
+with method calls, it is much slower than a Perl hash.")
+    (license license:asl2.0)))
+
 (define-public perl-hook-lexwrap
   (package
     (name "perl-hook-lexwrap")
-- 
2.41.0

[bug#67963] [PATCH v2 17/37] gnu: Add perl-package-variant.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ia9a35b63a3e57e854455467730f31164504bb1f3
---
 gnu/packages/perl.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index dec4fca2bc..b510baccaa 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -8753,6 +8753,38 @@ (define-public perl-package-stash-xs
 compiler.")
     (license (package-license perl))))
 
+(define-public perl-package-variant
+  (package
+    (name "perl-package-variant")
+    (version "1.003002")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/M/MS/MSTROUT/Package-Variant-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "1p1n2ny5fb15bcbykyn523w6sv968gqs7nhjfm36dpac5yfq9vdj"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-fatal))
+    (propagated-inputs (list perl-import-into
+                             perl-module-runtime
+                             perl-strictures-2))
+    (home-page "https://metacpan.org/release/Package-Variant")
+    (synopsis "Parameterizable packages")
+    (description "This module allows you to build a variable package that
+contains a package template and can use it to build variant packages at
+runtime.
+
+Your variable package will export a subroutine which will build a variant
+package, combining its arguments with the template, and return the name
+of the new variant package.
+
+The implementation does not care about what kind of packages it builds,
+be they simple function exporters, classes, singletons or something
+entirely different.")
+    (license license:perl-license)))
+
 (define-public perl-padwalker
   (package
     (name "perl-padwalker")
-- 
2.41.0

[bug#67963] [PATCH v2 18/37] gnu: Add perl-spreadsheet-parseexcel.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ica1e20365008229a047cd527b6f07efc84179178
---
 gnu/packages/perl.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index b510baccaa..09006a45da 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9846,6 +9846,36 @@ (define-public perl-spiffy
 other OO languages like Python, Ruby, Java and Perl 6.")
     (license (package-license perl))))
 
+(define-public perl-spreadsheet-parseexcel
+  (package
+    (name "perl-spreadsheet-parseexcel")
+    (version "0.66")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/J/JM/JMCNAMARA/Spreadsheet-ParseExcel-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "0nzn8n928720lyv61nbd02d87xi5pfs77nhv0pf031lqpb7nmmxz"))))
+    (build-system perl-build-system)
+    (arguments
+     (list
+      ;; test cannot find Digest::MD5
+      #:tests? #f))
+    (propagated-inputs (list perl-crypt-rc4
+                             perl-digest-md5
+                             perl-io-stringy
+                             perl-ole-storage-lite))
+    (home-page "https://metacpan.org/release/Spreadsheet-ParseExcel")
+    (synopsis "Read information from Excel files")
+    (description "The Spreadsheet::ParseExcel module can be used to read
+information from Excel 95-2003 binary files.
+
+The module cannot read files in the Excel 2007 Open XML XLSX format.
+See the Spreadsheet::XLSX module instead.")
+    (license license:perl-license)))
+
 (define-public perl-want
   (package
     (name "perl-want")
-- 
2.41.0

[bug#67963] [PATCH v2 19/37] gnu: Add perl-xml-parser-lite.

[Felix Lechner via Guix-patches via]

* gnu/packages/xml.scm (perl-xml-parser-lite): New variable.

Change-Id: I274dfb9dcae3fad70e053ba853a5dc8dc64f0733
---
 gnu/packages/xml.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 01e48fda57..e8253b5960 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -581,6 +581,27 @@ (define-public perl-xml-parser
 given at XML::Parser creation time.")
     (home-page "https://metacpan.org/release/XML-Parser")))
 
+(define-public perl-xml-parser-lite
+  (package
+    (name "perl-xml-parser-lite")
+    (version "0.722")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/P/PH/PHRED/XML-Parser-Lite-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "1vk3jwh1kfcsmc5kvxzqdnb1cllvf0yf27fg0ra0w6jkw4ks143g"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-requires))
+    (home-page "https://metacpan.org/release/XML-Parser-Lite")
+    (synopsis "Lightweight pure-perl XML Parser (based on regexps)")
+    (description "This module implements an XML parser with a interface
+similar to XML::Parser.  Though not all callbacks are supported, you
+should be able to use it in the same way you use XML::Parser.")
+    (license license:perl-license)))
+
 (define-public perl-xml-tokeparser
   (package
     (name "perl-xml-tokeparser")
-- 
2.41.0

[bug#67963] [PATCH v2 20/37] gnu: Add perl-xml-semanticdiff.

[Felix Lechner via Guix-patches via]

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

Change-Id: I1b008d18c8eacf15f2e6d668e337c0d6cf350b9a
---
 gnu/packages/xml.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index e8253b5960..1c7f4cb36e 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -602,6 +602,29 @@ (define-public perl-xml-parser-lite
 should be able to use it in the same way you use XML::Parser.")
     (license license:perl-license)))
 
+(define-public perl-xml-semanticdiff
+  (package
+    (name "perl-xml-semanticdiff")
+    (version "1.0007")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/P/PE/PERIGRIN/XML-SemanticDiff-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "1xd00821y795fy2rag8aizb5wsbbzfxgmdf9qwpvdxn3pgpyzz85"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (propagated-inputs (list perl-xml-parser))
+    (home-page "https://metacpan.org/release/XML-SemanticDiff")
+    (synopsis "Perl extension for comparing XML documents.")
+    (description "XML::SematicDiff provides a way to compare the contents
+and structure of two XML documents.  By default, it returns a list of
+hashrefs where each hashref describes a single difference between the
+two docs.")
+    (license license:perl-license)))
+
 (define-public perl-xml-tokeparser
   (package
     (name "perl-xml-tokeparser")
-- 
2.41.0

[bug#67963] [PATCH v2 21/37] gnu: Add perl-test-xml.

[Felix Lechner via Guix-patches via]

* gnu/packages/perl-check.scm (perl-test-xml): New variable.

Change-Id: I61eda7fdcff3665df9d1ea753b774e583ebf25cc
---
 gnu/packages/perl-check.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index d84ba4eaaf..18aff9933d 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -37,6 +37,7 @@ (define-module (gnu packages perl-check)
   #:use-module (gnu packages)
   #:use-module (gnu packages valgrind)
   #:use-module (gnu packages web)
+  #:use-module (gnu packages xml)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix git-download)
@@ -1581,6 +1582,30 @@ (define-public perl-test-writevariants
 generation of tests in nested combinations of contexts.")
     (license perl-license)))  ; see LICENSE
 
+(define-public perl-test-xml
+  (package
+    (name "perl-test-xml")
+    (version "0.08")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/S/SE/SEMANTICO/Test-XML-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "1qiym068j0f3fpci5692jpn0v383pxy6k2mcv0x0v1pcrliwqm7b"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-module-build
+                             perl-xml-parser
+                             perl-xml-sax
+                             perl-xml-sax-writer
+                             perl-xml-semanticdiff
+                             perl-xml-twig
+                             perl-xml-xpath))
+    (home-page "https://metacpan.org/release/Test-XML")
+    (synopsis "Compare XML in perl tests")
+    (description "This module contains generic XML testing tools.")
+    (license perl-license)))
+
 (define-public perl-test-yaml
   (package
     (name "perl-test-yaml")
-- 
2.41.0

[bug#67963] [PATCH v2 22/37] gnu: Add perl-time-warp.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ie093ddf96fd196204ff74bd0f6a62b8c2112949b
---
 gnu/packages/perl.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 09006a45da..e8302011b6 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -12851,6 +12851,25 @@ (define-public perl-text-wrapi18n
 words (like Chinese and Japanese) is supported.")
     (license (package-license perl))))
 
+(define-public perl-time-warp
+  (package
+    (name "perl-time-warp")
+    (version "0.55")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/M/MA/MANWAR/Time-Warp-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "1a7g3i9nad7m2qvwl7bssnq083s2nsdnzxq42k2x6j8bimfgm8sc"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Time-Warp")
+    (synopsis "Control over the flow of time")
+    (description "Our external experience unfolds in 3 1/2 dimensions.
+(Time has a dimensionality of 1/2.)  The Time::Warp module offers
+developers control over the measurement of time.")
+    (license license:perl-license)))
+
 (define-public perl-regexp-pattern
   (package
     (name "perl-regexp-pattern")
-- 
2.41.0

[bug#67963] [PATCH v2 23/37] gnu: Add perl-user-identity.

[Felix Lechner via Guix-patches via]

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

Change-Id: Icd6f46056b7da4a65b112dfefab7ca2c40176152
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index e8302011b6..ec02b25f8c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -12870,6 +12870,32 @@ (define-public perl-time-warp
 developers control over the measurement of time.")
     (license license:perl-license)))
 
+(define-public perl-user-identity
+  (package
+    (name "perl-user-identity")
+    (version "1.02")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/M/MA/MARKOV/User-Identity-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "16dq7s8qjc1z6r094h7ak5796ip6hryb05a1y31nb317ypksw91v"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-hash-ordered))
+    (home-page "https://metacpan.org/release/User-Identity")
+    (synopsis "Collect information about a user")
+    (description "The User-Identity distribution is created to maintain a set
+of informational objects which are related to one user.  The module tries to
+be smart providing defaults, conversions and often required combinations.
+
+The identities are not implemented with any kind of storage, and can
+therefore be created by any simple or complex Perl program.  That way, the
+data structures are more flexible than an XML file.  For instance, you can
+decide to store the data with Data::Dumper, Storable, DBI, AddressBook or
+whatever.")
+    (license license:perl-license)))
+
 (define-public perl-regexp-pattern
   (package
     (name "perl-regexp-pattern")
-- 
2.41.0

[bug#67963] [PATCH v2 24/37] gnu: Add perl-text-tabulardisplay.

[Felix Lechner via Guix-patches via]

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

Change-Id: Ieaa15dd00a396e959cc6b538bad35541c5ae3357
---
 gnu/packages/perl.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index ec02b25f8c..1074288dfe 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11299,6 +11299,26 @@ (define-public perl-text-tabs+wrap
 Text::Wrap will reformat lines into paragraphs.")
     (license (package-license perl))))
 
+(define-public perl-text-tabulardisplay
+  (package
+    (name "perl-text-tabulardisplay")
+    (version "1.38")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/D/DA/DARREN/Text-TabularDisplay-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "1s46s4pg5mpfllx3icf4vnqz9iadbbdbsr5p7pr6gdjnzbx902gb"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Text-TabularDisplay")
+    (synopsis "Display text in formatted table output")
+    (description "Text::TabularDisplay simplifies displaying textual data
+in a table.  The output is identical to the columnar display of query
+results in the MySQL text monitor.")
+    (license license:gpl2)))
+
 (define-public perl-text-template
   (package
     (name "perl-text-template")
-- 
2.41.0

[bug#67963] [PATCH v2 25/37] gnu: Add perl-text-xslate.

[Felix Lechner via Guix-patches via]

* gnu/packages/web.scm (perl-text-xslate): New variable.

Change-Id: Ib6e281402716e33bc6bf1e4a1ce8cf6772eda4ba
---
 gnu/packages/web.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 344a138961..27358e1269 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -4650,6 +4650,32 @@ (define-public perl-test-www-mechanize-psgi
 applications.")
     (license license:perl-license)))
 
+(define-public perl-text-xslate
+  (package
+    (name "perl-text-xslate")
+    (version "3.5.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/S/SK/SKAJI/Text-Xslate-v"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "103lhyqqv53x9rqsnxcba3pc4qkbwnjsw3gpyd7rjm0aw65mrj20"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-file-copy-recursive
+                         perl-module-build
+                         perl-module-build-xsutil
+                         perl-test-requires))
+    (propagated-inputs (list perl-data-messagepack
+                             perl-mouse))
+    (home-page "https://metacpan.org/release/Text-Xslate")
+    (synopsis "Scalable template engine for Perl5")
+    (description "Xslate is a template engine, tuned for persistent
+applications, safe as an HTML generator, and with rich features.
+The philosophy of this module is sandboxing in the sense that the
+template logic should not have no access outside the template.")
+    (license license:perl-license)))
+
 (define-public perl-uri
   (package
     (name "perl-uri")
-- 
2.41.0

[bug#67963] [PATCH v2 26/37] gnu: Add perl-text-reform.

[Felix Lechner via Guix-patches via]

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

Change-Id: I891b18c67545f0234908c012e46fe93ca9fc7e6c
---
 gnu/packages/perl.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 1074288dfe..1e1b5f82bf 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11221,6 +11221,29 @@ (define-public perl-text-patch
 by the standard @code{diff} utility.")
     (license license:gpl2+)))
 
+(define-public perl-text-reform
+  (package
+    (name "perl-text-reform")
+    (version "1.20")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/C/CH/CHORNY/Text-Reform-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "0qdfnhfn8frnkbpkkw64fhnnxsbb6mmb6dr30c0p1jdaq7c2syd8"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (home-page "https://metacpan.org/release/Text-Reform")
+    (synopsis "Manual text wrapping and reformatting")
+    (description "The routines in this module take a series of format (or
+picture) strings followed by replacement values.  They interpolate those
+values into the picture strings, and return the results.  The effects are
+similar to Perl's built-in formatting mechanism, although the field
+specifications are simpler and some of the formatting behaviour is more
+sophisticated.")
+    (license license:perl-license)))
+
 (define-public perl-text-roman
   (package
     (name "perl-text-roman")
-- 
2.41.0

[bug#67963] [PATCH v2 27/37] gnu: Add perl-text-iconv.

[Felix Lechner via Guix-patches via]

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

Change-Id: I7abfdee84d8590175f4d3282cb6e9f9157504251
---
 gnu/packages/perl.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 1e1b5f82bf..921d8be1c2 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11157,6 +11157,26 @@ (define-public perl-text-haml
 @url{http://haml.info/docs/yardoc/file.REFERENCE.html} specification.")
     (license license:artistic2.0)))
 
+(define-public perl-text-iconv
+  (package
+    (name "perl-text-iconv")
+    (version "1.7")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/M/MP/MPIOTR/Text-Iconv-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "1hymsbkjkl43wg74p7hgpyjl8yx1chc9g25spj9l7lq9wzavg02v"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Text-Iconv")
+    (synopsis "Perl interface to iconv() codeset conversion function")
+    (description "The Text::Iconv module provides a Perl interface to the
+@code{iconv()} function as defined by the Single UNIX Specification.  The
+@code{convert()} method converts the encoding of characters in the input
+string from the @code{fromcode} codeset to the @code{tocode} codeset.")
+    (license license:asl2.0)))
+
 (define-public perl-text-neattemplate
   (package
     (name "perl-text-neattemplate")
-- 
2.41.0

[bug#67963] [PATCH v2 28/37] gnu: Add perl-text-autoformat.

[Felix Lechner via Guix-patches via]

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

Change-Id: I5158392b76c9946a3d972f5837d1e6ba6c622742
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 921d8be1c2..22a240bf22 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -10946,6 +10946,27 @@ (define-public perl-text-aligner
 used to justify strings to various alignment styles.")
     (license license:x11)))
 
+(define-public perl-text-autoformat
+  (package
+    (name "perl-text-autoformat")
+    (version "1.75")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/N/NE/NEILB/Text-Autoformat-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "0wdpqq1cds68i1clx2y22bnnm558d12sr7dmypdv9i5f7p7g9m4x"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-text-reform))
+    (home-page "https://metacpan.org/release/Text-Autoformat")
+    (synopsis "Automatic text wrapping and reformatting")
+    (description "The Text::Autoformat module provides a subroutine that
+wraps text to specified margins.  However, autoformat reformats its
+input by analysing the text's structure.")
+    (license license:perl-license)))
+
 (define-public perl-text-balanced
   (package
     (name "perl-text-balanced")
-- 
2.41.0

[bug#67963] [PATCH v2 29/37] gnu: Add perl-text-recordparser.

[Felix Lechner via Guix-patches via]

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

Change-Id: I4316ca3a83e61c229be8f4cb022d4d6ee0848d5c
---
 gnu/packages/perl.scm | 50 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 22a240bf22..b205d77cfc 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -76,6 +76,7 @@ (define-module (gnu packages perl)
   #:use-module (gnu packages gd)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages graphviz)
   #:use-module (gnu packages image)
   #:use-module (gnu packages language)
   #:use-module (gnu packages less)
@@ -11262,6 +11263,55 @@ (define-public perl-text-patch
 by the standard @code{diff} utility.")
     (license license:gpl2+)))
 
+(define-public perl-text-recordparser
+  (package
+    (name "perl-text-recordparser")
+    (version "1.6.5")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/K/KC/KCLARK/Text-RecordParser-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "0nn33c058bl957v38xhqig4ld34lifl4arqiilhxky339i0q2fys"))))
+    (build-system perl-build-system)
+    (arguments
+     (list
+      ;; #   Failed test 'Diagnostic OK'
+      ;; #   at t/13-tab2graph.t line 34.
+      ;; #          got: 'Fontconfig error: No writable cache directories
+      ;; # Fontconfig error: No writable cache directories
+      ;; # Image created "foo.png."
+      ;; # '
+      ;; #     expected: 'Image created "foo.png."
+      ;; # '
+      ;; # Looks like you failed 1 test of 4.
+      ;; t/13-tab2graph.t ....
+      ;; Dubious, test returned 1 (wstat 256, 0x100)
+      ;; Failed 1/4 subtests
+      #:tests? #f))
+    (native-inputs (list graphviz
+                         perl-module-install
+                         perl-test-exception))
+    (propagated-inputs (list perl-class-accessor
+                             perl-graphviz
+                             perl-io-stringy
+                             perl-list-moreutils
+                             perl-readonly
+                             perl-text-autoformat
+                             perl-text-tabulardisplay))
+    (home-page "https://metacpan.org/release/Text-RecordParser")
+    (synopsis "Parse record-oriented data in a text file")
+    (description "This module is for reading record-oriented data in a
+delimited text file.  The most common examples have records separated by
+newlines and fields separated by commas or tabs, but this module aims to
+provide a consistent interface for handling sequential records in a file
+however they are delimited.
+
+You can then use many methods to get to the data as arrays or hashes.")
+    (license license:gpl2)))
+
 (define-public perl-text-reform
   (package
     (name "perl-text-reform")
-- 
2.41.0

[bug#67963] [PATCH v2 30/37] gnu: Add perl-mail-message.

[Felix Lechner via Guix-patches via]

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

Change-Id: I25f754d2510e4e2c4bf3e55e28e7daa48a6ca125
---
 gnu/packages/mail.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 73026012a9..dd798ff204 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -2460,6 +2460,33 @@ (define-public perl-email-simple
 format and headers.")
     (license license:perl-license)))
 
+(define-public perl-mail-message
+  (package
+    (name "perl-mail-message")
+    (version "3.015")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/M/MA/MARKOV/Mail-Message-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "0nmjk4ik76hlxwd183z0c7prdpcmm85a811lz24x8gkxhxzqv1dj"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-io-stringy
+                             perl-mailtools
+                             perl-mime-types
+                             perl-timedate
+                             perl-uri
+                             perl-user-identity))
+    (home-page "https://metacpan.org/release/Mail-Message")
+    (synopsis "Processing MIME messages")
+    (description "A Mail::Message object is a container for MIME-encoded message
+information, as defined by RFC2822.  Everything that is not specificaly related
+to storing the messages in mailboxes (folders) is implemented in this class.
+Methods which are related to folders is implemented in the Mail::Box::Message
+extension.")
+    (license license:perl-license)))
+
 (define-public libesmtp
   (package
     (name "libesmtp")
-- 
2.41.0

[bug#67963] [PATCH v2 31/37] gnu: Add perl-sql-translator.

[Felix Lechner via Guix-patches via]

* gnu/packages/databases.scm (perl-sql-translator): New variable.

Change-Id: I8a7c45539cf848e03f038b1e8bb9334b5115d1d4
---
 gnu/packages/databases.scm | 57 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 1f4e6be631..5ff23ba63d 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -101,12 +101,14 @@ (define-module (gnu packages databases)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gawk)
   #:use-module (gnu packages gcc)
+  #:use-module (gnu packages gd)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages golang)
   #:use-module (gnu packages gperf)
+  #:use-module (gnu packages graphviz)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages icu4c)
@@ -2322,6 +2324,61 @@ (define-public perl-sql-tokenizer
 valid SQL query.")
     (license license:perl-license)))
 
+(define-public perl-sql-translator
+  (package
+    (name "perl-sql-translator")
+    (version "1.64")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/V/VE/VEESH/SQL-Translator-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "1iykygxlsd98cxkr6np3gvcidrvgal7q59ms1id1vb76z0kd8478"))))
+    (build-system perl-build-system)
+    (arguments
+     (list
+      #:tests? #f))
+    (native-inputs (list perl-file-sharedir-install
+                         perl-json-maybexs
+                         perl-test-differences
+                         perl-test-exception
+                         perl-xml-writer
+                         perl-yaml))
+    (propagated-inputs (list perl-carp-clan
+                             perl-dbi
+                             perl-file-sharedir
+                             perl-gd
+                             perl-graph
+                             perl-graphviz
+                             perl-moo
+                             perl-package-variant
+                             perl-parse-recdescent
+                             perl-spreadsheet-parseexcel
+                             perl-sub-quote
+                             perl-template-toolkit
+                             perl-text-recordparser
+                             perl-try-tiny
+                             perl-xml-libxml))
+    (home-page "https://metacpan.org/release/SQL-Translator")
+    (synopsis "SQL DDL transformations and more")
+    (description "SQL::Translator is a group of Perl modules that converts
+vendor-specific SQL table definitions into other formats like a different
+SQL dialect, into ER diagrams, into documentation (POD and HTML), into XML,
+and into Class::DBI classes.
+
+The main focus of SQL::Translator is SQL, but parsers exist for other
+structured data formats, including Excel spreadsheets and arbitrarily
+delimited text files.
+
+Through the separation of the code into parsers and producers with an
+object model in between, it's possible to combine any parser with any
+producer, or to plug in custom parsers or producers, or to manipulate
+the parsed data via the built-in object model.  Presently only the
+definition parts of SQL are handled CREATE, ALTER), but not the
+manipulation of data (INSERT, UPDATE, DELETE).")
+    (license license:perl-license)))
+
 (define-public unixodbc
   (package
    (name "unixodbc")
-- 
2.41.0

[bug#67963] [PATCH v2 32/37] gnu: Add perl-dbicx-testdatabase.

[Felix Lechner via Guix-patches via]

* gnu/packages/databases.scm (perl-dbicx-testdatabase): New variable.

Change-Id: I5b923f8eff54e32ae7e7c7b0bad508006f8803c7
---
 gnu/packages/databases.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 5ff23ba63d..95b8d5b50f 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1936,6 +1936,35 @@ (define-public perl-dbi
     (home-page "https://metacpan.org/release/DBI")
     (license license:perl-license)))
 
+(define-public perl-dbicx-testdatabase
+  (package
+    (name "perl-dbicx-testdatabase")
+    (version "0.05")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/J/JR/JROCKWAY/DBICx-TestDatabase-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1kqaiygxiarrqkgqbq1s3xilx77msbdsqrdaqf4628811d9w4fwf"))))
+    (build-system perl-build-system)
+    (arguments
+     (list
+      #:tests? #f))
+    (native-inputs (list perl-dbix-class
+                         perl-module-install))
+    (propagated-inputs (list perl-dbd-sqlite
+                             perl-sql-translator))
+    (home-page "https://metacpan.org/release/DBICx-TestDatabase")
+    (synopsis "Create temporary database from a DBIx::Class::Schema")
+    (description "This module creates a temporary SQLite database, deploys
+a DBIC schema, and then connects to the database.  It lets you test your
+DBIC schema.  Since you have a fresh database for every test, you don't
+have to worry about cleaning up after your tests, or about the ordering
+of tests affecting failure.")
+    (license license:perl-license)))
+
 (define-public perl-dbix-class
   (package
     (name "perl-dbix-class")
-- 
2.41.0

[bug#67963] [PATCH v2 33/37] gnu: Add perl-dbix-class-dynamicdefault.

[Felix Lechner via Guix-patches via]

* gnu/packages/databases.scm (perl-dbix-class-dynamicdefault): New variable.

Change-Id: Ib333721a5e24a4994d14b591872001b335eb5d5f
---
 gnu/packages/databases.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 95b8d5b50f..f30c0f38f4 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2060,6 +2060,31 @@ (define-public perl-dbix-class-cursor-cached
 built-in caching support.")
     (license license:perl-license)))
 
+(define-public perl-dbix-class-dynamicdefault
+  (package
+    (name "perl-dbix-class-dynamicdefault")
+    (version "0.04")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/M/MS/MSTROUT/DBIx-Class-DynamicDefault-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1yssda00988hn9v96jl95apbzib74vgbcgf69m5mhhj64amm33r2"))))
+    (build-system perl-build-system)
+    (arguments
+     (list
+      #:tests? #f))
+    (native-inputs (list perl-dbicx-testdatabase
+                         perl-module-install))
+    (propagated-inputs (list perl-dbix-class))
+    (home-page "https://metacpan.org/release/DBIx-Class-DynamicDefault")
+    (synopsis "Automatically set and update database fields")
+    (description "Automatically set and update fields with values calculated
+at runtime.")
+    (license license:perl-license)))
+
 (define-public perl-dbix-class-introspectablem2m
   (package
     (name "perl-dbix-class-introspectablem2m")
-- 
2.41.0

[bug#67963] [PATCH v2 34/37] gnu: Add perl-dbix-class-timestamp.

[Felix Lechner via Guix-patches via]

* gnu/packages/databases.scm (perl-dbix-class-timestamp): New variable.

Change-Id: Ia048989da04282448247c8544a82e292417abfe2
---
 gnu/packages/databases.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index f30c0f38f4..6151abb705 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2168,6 +2168,35 @@ (define-public perl-dbix-class-schema-loader
 columns, primary keys, unique constraints and relationships.")
     (license license:perl-license)))
 
+(define-public perl-dbix-class-timestamp
+  (package
+    (name "perl-dbix-class-timestamp")
+    (version "0.14")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/R/RI/RIBASUSHI/DBIx-Class-TimeStamp-"
+             version ".tar.gz"))
+       (sha256
+        (base32 "1zhr4r5ffihqsh2imap7zmps2y0h71piqqhg2nqhcwkjhvlxb958"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-class-accessor-grouped
+                         perl-datetime-format-mysql
+                         perl-datetime-format-sqlite
+                         perl-dbd-sqlite ; for test
+                         perl-module-install
+                         perl-time-warp))
+    (propagated-inputs (list perl-datetime
+                             perl-dbix-class
+                             perl-dbix-class-dynamicdefault))
+    (home-page "https://metacpan.org/release/DBIx-Class-TimeStamp")
+    (synopsis
+     "DBIx::Class extension to update and create date and time based fields")
+    (description "Works in conjunction with InflateColumn::DateTime to
+automatically set update and create date and time based fields in a table.")
+    (license license:perl-license)))
+
 (define-public perl-dbd-pg
   (package
     (name "perl-dbd-pg")
-- 
2.41.0

[bug#67963] [PATCH v2 35/37] gnu: Add perl-io-sessiondata.

[Felix Lechner via Guix-patches via]

* gnu/packages/web.scm (perl-io-sessiondata): New variable.

Change-Id: Ic1697680ee15f9ce9f3095de07f47ef20a141e68
---
 gnu/packages/web.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 27358e1269..3f6c2bac0f 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -4018,6 +4018,23 @@ (define-public perl-io-html
 algorithm specified in section 8.2.2.1 of the draft standard.")
     (home-page "https://metacpan.org/release/IO-HTML")))
 
+(define-public perl-io-sessiondata
+  (package
+    (name "perl-io-sessiondata")
+    (version "1.03")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/P/PH/PHRED/IO-SessionData-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "1p9d77pqy9a8dbgw7h7vmmkg0rlckk19dchd4c8gvcyv7qm73934"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/IO-SessionData")
+    (synopsis "IO::SessionData")
+    (description "This module was extracted from SOAP::Lite.")
+    (license license:perl-license)))
+
 (define-public perl-io-socket-ip
   (package
     (name "perl-io-socket-ip")
-- 
2.41.0

[bug#67963] [PATCH v2 36/37] gnu: Add perl-soap-lite.

[Felix Lechner via Guix-patches via]

* gnu/packages/web.scm (perl-soap-lite): New variable.

Change-Id: Ieae1558e6160acb8801d1b406a0698bbcda56670
---
 gnu/packages/web.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 3f6c2bac0f..d9e38c723a 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -4561,6 +4561,42 @@ (define-public perl-plack-test-externalserver
 either mocked HTTP or a locally spawned server.")
     (license license:perl-license)))
 
+(define-public perl-soap-lite
+  (package
+    (name "perl-soap-lite")
+    (version "1.27")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/P/PH/PHRED/SOAP-Lite-"
+                           version ".tar.gz"))
+       (sha256
+        (base32 "00fkvmnxiy5mr45rj5qmxmflw0xdkw2gihm48iha2i8smdmi0ng3"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-io-stringy
+                         perl-test-mockobject
+                         perl-test-warn
+                         perl-test-xml
+                         perl-xml-parser-lite))
+    (propagated-inputs (list perl-class-inspector
+                             perl-dime-tools
+                             perl-fcgi
+                             perl-http-daemon
+                             perl-io-sessiondata
+                             perl-io-socket-ssl
+                             perl-libwww
+                             perl-lwp-protocol-https
+                             perl-mime-tools
+                             perl-task-weaken
+                             perl-uri
+                             perl-xml-parser))
+    (home-page "https://metacpan.org/release/SOAP-Lite")
+    (synopsis "Perl's Web Services Toolkit")
+    (description "SOAP::Lite is a collection of Perl modules which
+provides a simple and lightweight interface to the Simple Object
+Access Protocol (SOAP) both on client and server side.")
+    (license license:perl-license)))
+
 (define-public perl-test-tcp
   (package
     (name "perl-test-tcp")
-- 
2.41.0

[bug#67963] [PATCH v2 37/37] gnu: Add perl-search-estraier.

[Felix Lechner via Guix-patches via]

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

Change-Id: I2ab2a469004606f45947b6e7eb9ec3fcf230fbc6
---
 gnu/packages/search.scm | 63 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)

diff --git a/gnu/packages/search.scm b/gnu/packages/search.scm
index 5e86d1a76c..9611abfee8 100644
--- a/gnu/packages/search.scm
+++ b/gnu/packages/search.scm
@@ -61,6 +61,7 @@ (define-module (gnu packages search)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages pcre)
   #:use-module (gnu packages perl)
+  #:use-module (gnu packages perl-check)
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages photo)
   #:use-module (gnu packages python)
@@ -171,6 +172,68 @@ (define-public python-xapian-bindings
     (synopsis "Python bindings for the Xapian search engine library")
     (license license:gpl2+)))
 
+(define-public perl-search-estraier
+  (package
+    (name "perl-search-estraier")
+    (version "0.09")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "mirror://cpan/authors/id/D/DP/DPAVLIN/Search-Estraier-" version
+             ".tar.gz"))
+       (sha256
+        (base32 "0f3fwbvzqbgmx28cc8qjwld1xvqvjp71sdx2b2amgfjk4mvwf54p"))))
+    (build-system perl-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          ;; #   Failed test 'drafts same'
+          ;; #   at t/1_Document.t line 78.
+          ;; #          got: '@uri=http://localhost/Search-Estraier/
+          ;; # empty=
+          ;; # foo=bar
+          ;; # size=42
+          ;; # zero=0
+          ;; # %VECTOR       foo     42      baz     0       bar     100
+          ;; #
+          ;; # This is a test
+          ;; # of pure-perl bindings
+          ;; # for HyperEstraier
+          ;; #       This is hidden text
+          ;; #'
+          ;; #     expected: '@uri=http://localhost/Search-Estraier/
+          ;; # empty=
+          ;; # foo=bar
+          ;; # size=42
+          ;; # zero=0
+          ;; # %VECTOR       baz     0       bar     100     foo     42
+          ;; #
+          ;; # This is a test
+          ;; # of pure-perl bindings
+          ;; # for HyperEstraier
+          ;; #       This is hidden text
+          ;; # '
+          ;; # Looks like you failed 1 test of 60.
+          ;; t/1_Document.t ........
+          ;; Dubious, test returned 1 (wstat 256, 0x100)
+          ;; Failed 1/60 subtests
+          ;;
+          (add-after 'unpack 'drop-test
+            (lambda _
+              (delete-file "t/1_Document.t"))))))
+    (propagated-inputs (list perl-libwww
+                             perl-test-exception
+                             perl-uri))
+    (home-page "https://metacpan.org/release/Search-Estraier")
+    (synopsis "Pure perl module to use Hyper Estraier search engine")
+    (description "This module is implementation of node API of Hyper Estraier.
+Since it's a Perl-only module with dependencies only on standard Perl modules,
+it will run on all platforms on which Perl runs.  It doesn't require
+compilation or Hyper Estraier development files on the target machine.")
+    (license license:perl-license)))
+
 (define-public perl-search-xapian
   (package
     (name "perl-search-xapian")
-- 
2.41.0