[bug#63894] [PATCH] Add SpamAssassin, Debbugs dependencies

[bug#63894] [PATCH] Add SpamAssassin, Debbugs dependencies

[Antero Mejr via Guix-patches via]

This patch set adds spamassassin and various perl dependencies for
debbugs. The Debbugs patch will be sent later (dealing with some library
path issues).

[bug#63894] [PATCH 01/55] gnu: perl-dbix-class: Update to 0.082843.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-dbix-class): Update to 0.082843.
[inputs]: Replace perl-moo with perl-moo-2.
---
 gnu/packages/databases.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 43f5f9c072..8ac80b5afe 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1924,14 +1924,14 @@ (define-public perl-dbi
 (define-public perl-dbix-class
   (package
     (name "perl-dbix-class")
-    (version "0.082842")
+    (version "0.082843")
     (source
      (origin
        (method url-fetch)
        (uri (string-append "mirror://cpan/authors/id/R/RI/RIBASUSHI/"
                            "DBIx-Class-" version ".tar.gz"))
        (sha256
-        (base32 "1rh7idjjbibc1zmiaaarask434lh0lx7f2xyfwmy37k9fa0xcpmh"))))
+        (base32 "0lgjw7z4y2inf3yyfph1ljdp4f5zdmy9vh56fj8w9n19rdp0n7il"))))
     (build-system perl-build-system)
     (native-inputs
      (list perl-dbd-sqlite
@@ -1953,7 +1953,7 @@ (define-public perl-dbix-class
            perl-devel-globaldestruction
            perl-hash-merge
            perl-module-find
-           perl-moo
+           perl-moo-2
            perl-mro-compat
            perl-namespace-clean
            perl-path-class
-- 
2.39.2

[bug#63894] [PATCH 02/55] gnu: Add perl-dbix-class-deploymenthandler.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-dbix-class-deploymenthandler): New
variable.
---
 gnu/packages/databases.scm | 44 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 8ac80b5afe..07236b773a 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2081,6 +2081,50 @@ (define-public perl-dbix-class-schema-loader
 columns, primary keys, unique constraints and relationships.")
     (license license:perl-license)))
 
+(define-public perl-dbix-class-deploymenthandler
+  (package
+    (name "perl-dbix-class-deploymenthandler")
+    (version "0.002233")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/M/MM/MMCCLIMON/DBIx-Class-DeploymentHandler-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1bikp1q3pm1xphfdr8kmsqvzzpk06an3112mhb6gl8vlpg81ch4m"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-aliased
+                         perl-dbd-sqlite
+                         perl-dbix-class-schema-loader
+                         perl-test-fatal
+                         perl-test-most
+                         perl-test-requires))
+    (propagated-inputs (list perl-carp-clan
+                             perl-context-preserve
+                             perl-dbix-class
+                             perl-log-contextual
+                             perl-module-runtime
+                             perl-moose
+                             perl-moosex-role-parameterized
+                             perl-namespace-autoclean
+                             perl-path-class
+                             perl-sql-splitstatement
+                             perl-sql-translator
+                             perl-sub-exporter-progressive
+                             perl-sub-quote
+                             perl-text-brew
+                             perl-try-tiny
+                             perl-yaml))
+    (home-page "https://metacpan.org/release/DBIx-Class-DeploymentHandler")
+    (synopsis "Extensible DBIx::Class deployment")
+    (description
+     "@code{DBIx::Class::DeploymentHandler} is a tool for deploying and
+upgrading databases with @code{DBIx::Class}.  It is designed to be much more
+flexible than @code{DBIx::Class::Schema::Versioned}, hence the use of Moose
+and lots of roles.")
+    (license license:perl-license)))
+
 (define-public perl-dbd-pg
   (package
     (name "perl-dbd-pg")
-- 
2.39.2

[bug#63894] [PATCH 03/55] gnu: Add perl-dbix-simple.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-dbix-simple): New variable.
---
 gnu/packages/databases.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 07236b773a..30334b7e4b 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2125,6 +2125,32 @@ (define-public perl-dbix-class-deploymenthandler
 and lots of roles.")
     (license license:perl-license)))
 
+(define-public perl-dbix-simple
+  (package
+    (name "perl-dbix-simple")
+    (version "1.37")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/J/JU/JUERD/DBIx-Simple-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "1qyaj01zb6xplzcp7pj0b9609fvd89c9c4an3i00g2g05jm13ls6"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-dbi))
+    (home-page "https://metacpan.org/release/DBIx-Simple")
+    (synopsis "Object-oriented interface to DBI")
+    (description
+     "DBIx::Simple provides a simplified interface to DBI, Perl's powerful
+database module.  This module is aimed at rapid development and easy
+maintenance.  Query preparation and execution are combined in a single method,
+the result object (which is a wrapper around the statement handle) provides
+easy row-by-row and slurping methods.")
+    ;; The POD info says: "Pick your favorite OSI-approved license"
+    ;; Use unlicense because it has the least restrictions.
+    (license license:unlicense)))
+
 (define-public perl-dbd-pg
   (package
     (name "perl-dbd-pg")
-- 
2.39.2

[bug#63894] [PATCH 04/55] gnu: Add perl-dbicx-testdatabase.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-dbicx-testdatabase): New variable.
---
 gnu/packages/databases.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 30334b7e4b..f3ad1a7531 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2151,6 +2151,31 @@ (define-public perl-dbix-simple
     ;; Use unlicense because it has the least restrictions.
     (license license:unlicense)))
 
+(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)
+    (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 a temporary database from a DBIx::Class::Schema")
+    (description
+     "This module creates a temporary SQLite database, deploys a DBIC schema,
+and then connects to it. This lets you easily test DBIC schema. Since you have
+a fresh database for every test, you don't have to worry about cleaning up
+after your tests, ordering of tests affecting failure, etc.")
+    (license license:perl-license)))
+
 (define-public perl-dbd-pg
   (package
     (name "perl-dbd-pg")
-- 
2.39.2

[bug#63894] [PATCH 05/55] gnu: Add perl-dbix-class-dynamicdefault.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-dbix-class-dynamicdefault): New variable.
---
 gnu/packages/databases.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index f3ad1a7531..a37932e7f4 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2176,6 +2176,29 @@ (define-public perl-dbicx-testdatabase
 after your tests, ordering of tests affecting failure, etc.")
     (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)
+    (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 fields")
+    (description
+     "Automatically set and update fields with values calculated at runtime.
+Ipdate or create actions will set the specified columns to the value returned
+by the callback you specified as a method name or code reference.")
+    (license license:perl-license)))
+
 (define-public perl-dbd-pg
   (package
     (name "perl-dbd-pg")
-- 
2.39.2

[bug#63894] [PATCH 06/55] gnu: Add perl-dbix-class-timestamp.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-dbix-class-timestamp): New variable.
---
 gnu/packages/databases.scm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index a37932e7f4..99b0fc87bd 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2199,6 +2199,37 @@ (define-public perl-dbix-class-dynamicdefault
 by the callback you specified as a method name or code reference.")
     (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
+                         perl-module-install
+                         perl-test-pod
+                         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
+     "This package works in conjunction with @code{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.39.2

[bug#63894] [PATCH 07/55] gnu: Add perl-sql-translator.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-sql-translator): New variable.
---
 gnu/packages/databases.scm | 52 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 99b0fc87bd..a587ab30bc 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2440,6 +2440,58 @@ (define-public perl-sql-tokenizer
 valid SQL query.")
     (license license:perl-license)))
 
+(define-public perl-sql-translator
+  (package
+    (name "perl-sql-translator")
+    (version "1.63")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/V/VE/VEESH/SQL-Translator-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0cric118ms3dcnb3m2a1jdhdxmai8wwp5jbx34mf72s9jd6b11aq"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-file-sharedir-install
+                         perl-json-maybexs
+                         perl-test-differences
+                         perl-test-exception
+                         perl-test-most
+                         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-strictures-2
+                             perl-sub-quote
+                             perl-template-toolkit
+                             perl-text-recordparser
+                             perl-try-tiny
+                             perl-xml-libxml))
+    (home-page "https://metacpan.org/release/SQL-Translator")
+    (synopsis "Manipulate structured data definitions (SQL and more)")
+    (description
+     "@code{SQL::Translator} is a group of Perl modules that converts
+vendor-specific SQL table definitions into other formats, such as other
+vendor-specific SQL, ER diagrams, documentation (POD and HTML), XML, and
+@code{Class::DBI} classes. The main focus 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, 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), not the manipulation of
+data (INSERT, UPDATE, DELETE).")
+    (license license:perl-license)))
+
 (define-public unixodbc
   (package
    (name "unixodbc")
-- 
2.39.2

[bug#63894] [PATCH 08/55] gnu: Add perl-test-postgresql.

[Antero Mejr via Guix-patches via]

* gnu/packages/databases.scm (perl-test-postgresql): New variable.
---
 gnu/packages/databases.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index a587ab30bc..6a173094c0 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -2492,6 +2492,38 @@ (define-public perl-sql-translator
 data (INSERT, UPDATE, DELETE).")
     (license license:perl-license)))
 
+(define-public perl-test-postgresql
+  (package
+    (name "perl-test-postgresql")
+    (version "1.29")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/T/TJ/TJC/Test-PostgreSQL-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "17jgiqdyprb8q4855anica2kr0lxdi9rnq27vsfclk6ai7jzgb0q"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:tests? #f)) ;2/41 fail, require running Postgres server
+    (native-inputs (list perl-module-build-tiny
+                         perl-test-sharedfork))
+    (propagated-inputs (list perl-dbd-pg
+                             perl-dbi
+                             perl-file-which
+                             perl-function-parameters
+                             perl-moo
+                             perl-tie-hash-method
+                             perl-try-tiny
+                             perl-type-tiny))
+    (home-page "https://metacpan.org/release/Test-PostgreSQL")
+    (synopsis "PostgreSQL runner for tests")
+    (description
+     "@code{Test::PostgreSQL} automatically setups a PostgreSQL instance in a
+temporary directory, and destroys it when the perl script exits.")
+    (license license:artistic2.0)))
+
 (define-public unixodbc
   (package
    (name "unixodbc")
-- 
2.39.2

[bug#63894] [PATCH 09/55] gnu: Add perl-fennec-lite.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-check.scm (perl-fennec-lite): New variable.
---
 gnu/packages/perl-check.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index 7bf58832bc..5032dff721 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -47,6 +47,29 @@ (define-module (gnu packages perl-check)
 ;;;
 
 \f
+(define-public perl-fennec-lite
+  (package
+    (name "perl-fennec-lite")
+    (version "0.004")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/E/EX/EXODIST/Fennec-Lite-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "1aywy5vswrl9mv669cdp3kl9is06bi090bd55bwjyb3n68wqxqnw"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (home-page "https://metacpan.org/release/Fennec-Lite")
+    (synopsis "Set of testing-related modules")
+    (description
+     "Fennec ties together several testing related modules and enhances their
+functionality in ways you don't get loading them individually.
+@code{Fennec::Lite} takes a minimalist approach to do for Fennec what Mouse
+does for Moose.")
+    (license perl-license)))
+
 (define-public perl-mock-config
   (package
     (name "perl-mock-config")
-- 
2.39.2

[bug#63894] [PATCH 10/55] gnu: Add perl-test-file-sharedir.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-check.scm (perl-test-file-sharedir): New variable.
---
 gnu/packages/perl-check.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index 5032dff721..530dba3708 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -636,6 +636,33 @@ (define-public perl-test-file-contents
 files.")
     (license perl-license)))
 
+(define-public perl-test-file-sharedir
+  (package
+    (name "perl-test-file-sharedir")
+    (version "1.001002")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/K/KE/KENTNL/Test-File-ShareDir-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1bbs6cx69wcinq77gif4i4pmrj8a7lwb92sgvvxzrwmjnk5lfdmk"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-fatal))
+    (propagated-inputs (list perl-class-tiny
+                             perl-file-copy-recursive
+                             perl-file-sharedir
+                             perl-path-tiny
+                             perl-scope-guard))
+    (home-page "https://metacpan.org/release/Test-File-ShareDir")
+    (synopsis "Create a Fake ShareDir for your modules for testing.")
+    (description
+     "@code{Test::File::ShareDir} is some low level plumbing to enable a
+distribution to perform tests while consuming its own share directories in a
+manner similar to how they will be once installed.")
+    (license perl-license)))
+
 (define-public perl-test-file-sharedir-dist
   (package
     (name "perl-test-file-sharedir-dist")
-- 
2.39.2

[bug#63894] [PATCH 11/55] gnu: Add perl-test-fork.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-check.scm (perl-test-fork): New variable.
---
 gnu/packages/perl-check.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index 530dba3708..156562eaa3 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -735,6 +735,29 @@ (define-public perl-test-files
 contents of a file is equal to a particular string.")
     (license perl-license)))
 
+(define-public perl-test-fork
+  (package
+    (name "perl-test-fork")
+    (version "0.02")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/M/MS/MSCHWERN/Test-Fork-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "0gnh8m81fdrwmzy1fix12grfq7sf7nn0gbf24zlap1gq4kxzpzpw"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (home-page "https://metacpan.org/release/Test-Fork")
+    (synopsis "Test code which forks")
+    (description
+     "Testing code which forks is problematic because each test has a number
+associated with it.  Coordinating the test number amongst the parent and child
+processes is complicated. @code{Test::Fork} provides a function to smooth over
+the complications.")
+    (license perl-license)))
+
 (define-public perl-test-harness
   (package
     (name "perl-test-harness")
-- 
2.39.2

[bug#63894] [PATCH 12/55] gnu: Add perl-test-mockrandom.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-check.scm (perl-test-mockrandom): New variable.
---
 gnu/packages/perl-check.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index 156562eaa3..5bc04a1cdd 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -939,6 +939,33 @@ (define-public perl-test-mockobject
 the behavior, just the input and the output.")
     (license perl-license)))
 
+(define-public perl-test-mockrandom
+  (package
+    (name "perl-test-mockrandom")
+    (version "1.01")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DA/DAGOLDEN/Test-MockRandom-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1q6c474ya9najgj4wzgj0waj56ykrj3fxhgvkb1ylpgwhh6r6516"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Test-MockRandom")
+    (synopsis
+     "Replaces random number generation with non-random number generation")
+    (description
+     "This module can test routines that manipulate random numbers by
+providing a known output from @code{rand}.  Given a list of seeds with
+@code{srand}, it will return each in turn.  After seeded random numbers are
+exhausted, it will always return 0.  Seed numbers must be of a form that
+meets the expected output from @code{rand} as called with no arguments: they
+must be between 0 (inclusive) and 1 (exclusive).  In order to facilitate
+generating and testing a nearly-one number, this module exports the function
+@code{oneish}, which returns a number just fractionally less than one.")
+    (license asl2.0)))
+
 (define-public perl-test-mocktime
   (package
     (name "perl-test-mocktime")
-- 
2.39.2

[bug#63894] [PATCH 13/55] gnu: perl-b-keywords: Update to 1.24.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-b-keywords): Update to 1.24.
[native-inputs]: Add perl-test-most.
---
 gnu/packages/perl.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d7312372de..584222dc28 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -928,15 +928,16 @@ (define-public perl-b-hooks-op-check
 (define-public perl-b-keywords
   (package
     (name "perl-b-keywords")
-    (version "1.22")
+    (version "1.24")
     (source
      (origin
        (method url-fetch)
        (uri (string-append "mirror://cpan/authors/id/R/RU/RURBAN/B-Keywords-"
                            version ".tar.gz"))
        (sha256
-        (base32 "0i2ksp0w9wv1qc22hrdl3k48cww64syhmv8zf6x0kgyd4081hr56"))))
+        (base32 "0vk0d48hw90x67p5sfhmshzj2x5j7dr3ny17wb71fvfhhnr6pkx5"))))
     (build-system perl-build-system)
+    (native-inputs (list perl-test-most))
     (home-page "https://metacpan.org/release/B-Keywords")
     (synopsis "Lists of reserved barewords and symbol names")
     (description "@code{B::Keywords} supplies several arrays of exportable
-- 
2.39.2

[bug#63894] [PATCH 14/55] gnu: Add perl-config-simple.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-config-simple): New variable.
---
 gnu/packages/perl.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 584222dc28..4d456d0f06 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2131,6 +2131,28 @@ (define-public perl-config-tiny
 many other @code{Config::*} modules.")
     (license license:perl-license)))
 
+(define-public perl-config-simple
+  (package
+    (name "perl-config-simple")
+    (version "4.58")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/S/SH/SHERZODR/Config-Simple-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1d7dhvis1i03xlj8z3g5l8mz88kf7dn13zngbjhq94qgdxq9b6fx"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Config-Simple")
+    (synopsis "Simple configuration file class")
+    (description
+     "@code{Config::Simple} is a class representing configuration file object.
+It supports several configuration file syntax and tries to identify the file
+syntax automatically.  The library supports parsing, updating and creating
+configuration files.")
+    (license license:perl-license)))
+
 (define-public perl-const-fast
   (package
     (name "perl-const-fast")
-- 
2.39.2

[bug#63894] [PATCH 15/55] gnu: Add perl-constant.

[Antero Mejr via Guix-patches via]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4d456d0f06..d2c41cbc12 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2178,6 +2178,28 @@ (define-public perl-const-fast
 scalars, arrays, and hashes.")
     (license (package-license perl))))
 
+(define-public perl-constant
+  (package
+    (name "perl-constant")
+    (version "1.33")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://cpan/authors/id/R/RJ/RJBS/constant-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "015my616h5l2fswh52x4dp3n007gk5lax83ww9q6cmzb610mv5kr"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/constant")
+    (synopsis "Perl pragma to declare constants")
+    (description
+     "This pragma allows you to declare constants at compile-time.  When a
+constant is used in an expression, Perl replaces it with its value at compile
+time, and may then optimize the expression further.  In particular, any code
+in an @code{if (CONSTANT)} block will be optimized away if the constant is
+false.")
+    (license license:perl-license)))
+
 (define-public perl-context-preserve
   (package
     (name "perl-context-preserve")
-- 
2.39.2

[bug#63894] [PATCH 16/55] gnu: Add perl-critic-policy-perlsecret.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-critic-policy-perlsecret): New variable.
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d2c41cbc12..4a5456cb31 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2378,6 +2378,32 @@ (define-public perl-critic
 configured or disabled to your liking.")
     (license license:perl-license)))
 
+(define-public perl-critic-policy-perlsecret
+  (package
+    (name "perl-critic-policy-perlsecret")
+    (version "0.0.11")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/L/LA/LANCEW/Perl-Critic-Policy-Perlsecret-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0gmagglqq6vxprk9a5c42w8nhj621fplvzvc2wnb7jaky57r2rl8"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-critic
+                         perl-test-failwarnings
+                         perl-test-fatal))
+    (propagated-inputs (list perl-critic))
+    (home-page "https://metacpan.org/release/Perl-Critic-Policy-Perlsecret")
+    (synopsis "Prevent perlsecrets entering your codebase")
+    (description
+     "This policy checks for perlsecret operators in your code and warns you
+about them.  You can override the secrets that are allowed or disallowed using
+the parameters @code{allow_secrets} and @code{disallow_secrets}.  The default
+is to simply disallow everything.")
+    (license license:gpl3)))
+
 (define-public perl-crypt-cbc
   (package
     (name "perl-crypt-cbc")
-- 
2.39.2

[bug#63894] [PATCH 17/55] gnu: Add perl-data-messagepack.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-data-messagepack): New variable.
---
 gnu/packages/perl.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4a5456cb31..8abb2963d1 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2797,6 +2797,31 @@ (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
+     "This module converts Perl data structures to MessagePack and vice versa.
+MessagePack is a binary-based efficient object serialization format. It
+enables to exchange structured objects between many languages like 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.39.2

[bug#63894] [PATCH 18/55] gnu: Add perl-datetime-format-mysql.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-datetime-format-mysql): New variable.
---
 gnu/packages/perl.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 8abb2963d1..d29c338955 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3554,6 +3554,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.0701")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/X/XM/XMIKEW/DateTime-Format-MySQL-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1pb0ri9npbwpaf1lzmm51w4wfyj96n80yg7wga7ig34c0hg4a463"))))
+    (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.39.2

[bug#63894] [PATCH 19/55] gnu: Add perl-datetime-format-sqlite.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-datetime-format-sqlite): New variable.
---
 gnu/packages/perl.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d29c338955..990f107537 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3637,6 +3637,30 @@ (define-public perl-datetime-format-strptime
 takes a string and a pattern and returns the `DateTime` object associated.")
     (license license:artistic2.0)))
 
+(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, and it can take a DateTime object and produce a
+timestring accepted by SQLite.")
+    (license license:perl-license)))
+
 (define-public perl-datetime-locale
   (package
     (name "perl-datetime-locale")
-- 
2.39.2

[bug#63894] [PATCH 20/55] gnu: Add perl-datetime-format-pg.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-datetime-format-pg): New variable.
---
 gnu/packages/perl.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 990f107537..f4423b0958 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -3808,6 +3808,33 @@ (define-public perl-datetime-format-w3cdtf
 the appropriate objects.")
     (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 @code{DateTime::Duration} object and produce a string
+representing it in a format accepted by PostgreSQL.")
+    (license license:perl-license)))
+
 (define-public perl-devel-callchecker
   (package
     (name "perl-devel-callchecker")
-- 
2.39.2

[bug#63894] [PATCH 21/55] gnu: Add perl-exporter-declare.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-exporter-declare): New variable.
---
 gnu/packages/perl.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index f4423b0958..e02a42954d 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4593,6 +4593,34 @@ (define-public perl-exporter
 common case.")
     (license (package-license perl))))
 
+(define-public perl-exporter-declare
+  (package
+    (name "perl-exporter-declare")
+    (version "0.114")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/E/EX/EXODIST/Exporter-Declare-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1r6ly42g5x8highwng13y5c3lndqjfnd8666wjknnvvglxn0vmsb"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-fennec-lite
+                         perl-module-build
+                         perl-test-exception))
+    (propagated-inputs (list perl-aliased
+                             perl-meta-builder))
+    (home-page "https://metacpan.org/release/Exporter-Declare")
+    (synopsis "Meta-driven exporting tool")
+    (description
+     "@code{Exporter::Declare} is a meta-driven exporting tool.  It tries to
+adopt all the good features of other exporting tools, while replacing bad
+interfaces. @code{Exporter::Declare} also provides hooks that allow you to add
+options and arguments for import.  @code{Exporter::Declare}'s meta-driven
+system allows for top-notch introspection.")
+    (license license:perl-license)))
+
 (define-public perl-exporter-lite
   (package
     (name "perl-exporter-lite")
-- 
2.39.2

[bug#63894] [PATCH 22/55] gnu: Add perl-file-libmagic.

[Antero Mejr via Guix-patches via]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index e02a42954d..23f0ca4d2d 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -70,6 +70,7 @@ (define-module (gnu packages perl)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages databases)
+  #:use-module (gnu packages file)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gcc)
@@ -5122,6 +5123,30 @@ (define-public perl-file-homedir
 platforms.")
     (license (package-license perl))))
 
+(define-public perl-file-libmagic
+  (package
+    (name "perl-file-libmagic")
+    (version "1.23")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DR/DROLSKY/File-LibMagic-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1vk775386z4pz4y8m916rhlczs5rw12s36s3vx67mn5jgkfb3rjj"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:tests? #f)) ;1/33 fails, "gzip file is application/pdf ..."
+    (native-inputs (list perl-config-autoconf perl-test-fatal))
+    (inputs (list file))
+    (home-page "https://metacpan.org/release/File-LibMagic")
+    (synopsis "Determine MIME types of data or files using libmagic")
+    (description
+     "The @code{File::LibMagic} module is a simple perl interface to libmagic
+from the file package.")
+    (license (package-license perl))))
+
 (define-public perl-file-path
   (package
     (name "perl-file-path")
-- 
2.39.2

[bug#63894] [PATCH 23/55] gnu: Add perl-function-parameters.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-function-parameters): New variable.
---
 gnu/packages/perl.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 23f0ca4d2d..42566ce724 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5505,6 +5505,29 @@ (define-public perl-filesys-notify-simple
 back to a full directory scan if none of these are available.")
     (license license:perl-license)))
 
+(define-public perl-function-parameters
+  (package
+    (name "perl-function-parameters")
+    (version "2.002003")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/M/MA/MAUKE/Function-Parameters-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0ba317h659jrvnqf816ygyh656j8n524985na42irhzbx0qkqlak"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-fatal))
+    (home-page "https://metacpan.org/release/Function-Parameters")
+    (synopsis
+     "Define functions and methods with parameter lists")
+    (description
+     "This module provides two new keywords, @code{fun} and @code{method}, for
+defining functions and methods with parameter lists. At minimum this saves you
+from having to unpack @code{@@_} manually, but this module can do much more.")
+    (license license:perl-license)))
+
 (define-public perl-getopt-argvfile
   (package
     (name "perl-getopt-argvfile")
-- 
2.39.2

[bug#63894] [PATCH 24/55] gnu: Add perl-gd.

[Antero Mejr via Guix-patches via]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 42566ce724..f4f0a16ea8 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5528,6 +5528,28 @@ (define-public perl-function-parameters
 from having to unpack @code{@@_} manually, but this module can do much more.")
     (license license:perl-license)))
 
+(define-public perl-gd
+  (package
+    (name "perl-gd")
+    (version "2.77")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://cpan/authors/id/R/RU/RURBAN/GD-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "1dbg040nkbv8jjgabzjpmay5ysvg3cgxsqmv5771dq1vxyw8hv5m"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-extutils-pkgconfig perl-test-fork))
+    (inputs (list gd))
+    (home-page "https://metacpan.org/release/GD")
+    (synopsis "Perl interface to the libgd graphics library")
+    (description
+     "@file{GD.pm} is a Perl interface to the gd graphics library.  GD allows
+you to create color drawings using a large number of graphics primitives, and
+emit the drawings as PNG files.")
+    (license license:perl-license)))
+
 (define-public perl-getopt-argvfile
   (package
     (name "perl-getopt-argvfile")
-- 
2.39.2

[bug#63894] [PATCH 25/55] gnu: Add perl-graphviz.

[Antero Mejr via Guix-patches via]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index f4f0a16ea8..6263d8b97e 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -76,6 +76,7 @@ (define-module (gnu packages perl)
   #:use-module (gnu packages gcc)
   #:use-module (gnu packages gd)
   #:use-module (gnu packages gl)
+  #:use-module (gnu packages graphviz)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages hurd)
   #:use-module (gnu packages image)
@@ -5682,6 +5683,35 @@ (define-public perl-graph
 the abstract data structures.")
     (license (package-license perl))))
 
+(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)
+    (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 "Perl interface to Graphviz")
+    (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.  This package is deprecated in favour of
+GraphViz2.")
+    (license license:perl-license)))
+
 (define-public perl-guard
   (package
     (name "perl-guard")
-- 
2.39.2

[bug#63894] [PATCH 26/55] gnu: Add perl-log-contextual.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-log-contextual): New variable.
---
 gnu/packages/perl.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 6263d8b97e..05d112863d 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -6462,6 +6462,31 @@ (define-public perl-log-any-adapter-log4perl
 @code{Log::Any} adapter using @code{Log::Log4perl} for logging.")
     (license (package-license perl))))
 
+(define-public perl-log-contextual
+  (package
+    (name "perl-log-contextual")
+    (version "0.008001")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/F/FR/FREW/Log-Contextual-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "14qr8p4hkji0bzp4xhajq440hqx5rm1h5c736v452vbrp3xvqg5r"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-fatal))
+    (propagated-inputs (list perl-data-dumper-concise
+                             perl-exporter-declare
+                             perl-moo))
+    (home-page "https://metacpan.org/release/Log-Contextual")
+    (synopsis "Simple logging interface with a contextual log")
+    (description
+     "This module is a simple interface to extensible logging. It exists to
+abstract your logging interface so that logging is as painless as possible,
+while still allowing you to switch from one logger to another.")
+    (license license:perl-license)))
+
 (define-public perl-log-message
   (package
    (name "perl-log-message")
-- 
2.39.2

[bug#63894] [PATCH 27/55] gnu: Add perl-mail-rfc822-address.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-mail-rfc822-address): New variable.
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 05d112863d..0ee709fc3c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -6907,6 +6907,27 @@ (define-public perl-mail-sendmail
 requires Perl5 and a network connection.")
     (license license:perl-license)))
 
+(define-public perl-mail-rfc822-address
+  (package
+    (name "perl-mail-rfc822-address")
+    (version "0.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PD/PDWARREN/Mail-RFC822-Address-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "19y8hhb7hywyfpmiws1wwnkx2hw2mqzj824hwv55wryb9q8g87im"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Mail-RFC822-Address")
+    (synopsis
+     "Perl extension for validating email addresses according to RFC822")
+    (description
+     "@code{Mail::RFC822::Address} validates email addresses against the
+grammar described in RFC 822 using regular expressions.")
+    (license license:expat)))
+
 (define-public perl-math-bezier
   (package
     (name "perl-math-bezier")
-- 
2.39.2

[bug#63894] [PATCH 28/55] gnu: Add perl-meta-builder.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-meta-builder): New variable.
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 0ee709fc3c..8cf34bf78b 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -7050,6 +7050,32 @@ (define-public perl-memory-usage
 perspective, how much memory a process is using at any given time.")
     (license license:perl-license)))
 
+(define-public perl-meta-builder
+  (package
+    (name "perl-meta-builder")
+    (version "0.004")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/E/EX/EXODIST/Meta-Builder-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1zjnrwwvjxbw1baicr2amsyy7gr18nkmflxq3sr9vsq6fam9kd5c"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-fennec-lite
+                         perl-module-build
+                         perl-test-exception))
+    (home-page "https://metacpan.org/release/Meta-Builder")
+    (synopsis "Tools for creating Meta objects to track custom metrics")
+    (description
+     "@code{Meta::Builder} is designed to be a generic tool for writing Meta
+objects.  Unlike specialized tools, @code{Meta::Builder} makes no assumptions
+about what metrics you will care about.  @code{Meta::Builder} also makes it
+simple for others to extend your meta-object based tools by providing hooks
+for other packages to add metrics to your meta object.")
+    (license license:perl-license)))
+
 (define-public perl-mime-base64
   (package
     (name "perl-mime-base64")
-- 
2.39.2

[bug#63894] [PATCH 29/55] gnu: Add perl-mldbm.

[Antero Mejr via Guix-patches via]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 8cf34bf78b..afcc708458 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -7193,6 +7193,29 @@ (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))
+    (propagated-inputs (list perl-carp perl-data-dumper perl-storable))
+    (home-page "https://metacpan.org/release/MLDBM")
+    (synopsis "Store a 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.")
+    (license (package-license perl))))
+
 (define-public perl-modern-perl
   (package
     (name "perl-modern-perl")
-- 
2.39.2

[bug#63894] [PATCH 30/55] gnu: Add perl-package-variant.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-package-variant): New variable.
---
 gnu/packages/perl.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index afcc708458..714f31ccea 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -8899,6 +8899,36 @@ (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-moo perl-test-fatal perl-test-most))
+    (propagated-inputs (list perl-carp
+                             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
+else.")
+    (license license:perl-license)))
+
 (define-public perl-padwalker
   (package
     (name "perl-padwalker")
-- 
2.39.2

[bug#63894] [PATCH 31/55] gnu: Add perl-safe-hole.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-safe-hole): New variable.
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 714f31ccea..e85bdc5dd4 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9703,6 +9703,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 "Use main compartment subroutines from the Safe compartment")
+    (description
+     "@code{Safe::Hole} 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.39.2

[bug#63894] [PATCH 32/55] gnu: Add perl-spreadsheet-parseexcel.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-spreadsheet-parseexcel): New variable.
---
 gnu/packages/perl.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index e85bdc5dd4..838b64cb61 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9990,6 +9990,45 @@ (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.65")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DO/DOUGW/Spreadsheet-ParseExcel-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1v2vcz0q2xlbrh4qzij023zm2vy46ps1c8g11xj833fmkd1cpi3f"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:tests? #f ;2/32 fail (tests 10 and 11)
+           #:phases #~(modify-phases %standard-phases
+                        (add-after 'unpack 'patch-md5
+                          (lambda _
+                            (substitute* (find-files "." "\\.pm$")
+                              (("Digest::Perl::MD5")
+                               "Digest::MD5"))
+                            ;; avoid decoding-error when parsing
+                            ;; 03_regression.t
+                            (substitute* (find-files "." "\\.[1-9]\\.t$")
+                              (("Digest::Perl::MD5")
+                               "Digest::MD5")))))))
+    (native-inputs (list perl-test-most))
+    (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 "Reads information from an Excel file")
+    (description
+     "The @code{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.")
+    (license license:perl-license)))
+
 (define-public perl-want
   (package
     (name "perl-want")
-- 
2.39.2

[bug#63894] [PATCH 33/55] gnu: perl-sub-quote: Update to 2.006008.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-sub-quote): Update to 2.006008.
---
 gnu/packages/perl.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 838b64cb61..4131164022 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -10488,7 +10488,7 @@ (define-public perl-sub-name
 (define-public perl-sub-quote
   (package
     (name "perl-sub-quote")
-    (version "2.006006")
+    (version "2.006008")
     (source
      (origin
        (method url-fetch)
@@ -10496,7 +10496,7 @@ (define-public perl-sub-quote
              "mirror://cpan/authors/id/H/HA/HAARG/Sub-Quote-"
              version ".tar.gz"))
        (sha256
-        (base32 "17fq4iskrisnqs96amrz493vxikwvqbj9s7014k6vyl84gs2lkkf"))))
+        (base32 "1chm1n08l8qcqq87231pfa085bw79mcvrwm27vl64mzm198bvgll"))))
     (build-system perl-build-system)
     (native-inputs
      (list perl-test-fatal))
-- 
2.39.2

[bug#63894] [PATCH 34/55] gnu: perl-text-balanced: Update to 1.75.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-text-balanced): Update to 1.75.
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4131164022..4ac46172db 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11075,6 +11075,32 @@ (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 fundamental task of the autoformat subroutine is to identify and
+rearrange independent paragraphs in a text.  Paragraphs typically consist of a
+series of lines containing at least one non-whitespace character, followed by
+one or more lines containing only optional whitespace.  This is a more liberal
+definition than many other formatters use: most require an empty line to
+terminate a paragraph.  Paragraphs may also be denoted by bulleting, numbering,
+or quoting (see the following sections).")
+    (license license:perl-license)))
+
 (define-public perl-text-balanced
   (package
     (name "perl-text-balanced")
-- 
2.39.2

[bug#63894] [PATCH 35/55] gnu: Add perl-text-brew.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-text-brew): New variable.
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4ac46172db..324832d2c1 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11120,6 +11120,27 @@ (define-public perl-text-balanced
 text sequences from strings.")
     (license (package-license perl))))
 
+(define-public perl-text-brew
+  (package
+    (name "perl-text-brew")
+    (version "0.02")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/K/KC/KCIVEY/Text-Brew-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "0k7nxglbx5pxl693zrj1fsi094sf1a3vqsrn73inzz7r3j28a6xa"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Text-Brew")
+    (synopsis "An implementation of the Brew edit distance")
+    (description
+     "This module implements the Brew edit distance that is very close to the
+dynamic programming technique used for the Wagner-Fischer (and so for the
+Levenshtein) edit distance.")
+    (license (package-license perl))))
+
 (define-public perl-text-charwidth
   (package
     (name "perl-text-charwidth")
-- 
2.39.2

[bug#63894] [PATCH 36/55] gnu: Add perl-text-iconv.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-text-iconv): New variable.
---
 gnu/packages/perl.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 324832d2c1..503bd167c8 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11293,6 +11293,29 @@ (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)
+    (inputs (list libiconv))
+    (home-page "https://metacpan.org/release/Text-Iconv")
+    (synopsis "Perl interface to iconv() codeset conversion function")
+    (description
+     "This module provides a Perl interface to the @code{iconv()} codeset
+conversion function, as defined by the Single UNIX Specification.  For
+more details see the POD documentation embedded in the file @file{Iconv.pm},
+which will also be installed as @code{Text::Iconv(3)} man page.")
+    (license license:perl-license)))
+
 (define-public perl-text-neattemplate
   (package
     (name "perl-text-neattemplate")
-- 
2.39.2

[bug#63894] [PATCH 37/55] gnu: Add perl-text-recordparser.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-text-recordparser): New variable.
---
 gnu/packages/perl.scm | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 503bd167c8..ce6a506fb2 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11380,6 +11380,43 @@ (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 #:phases #~(modify-phases %standard-phases
+                        (add-before 'check 'set-home
+                          (lambda _
+                            (setenv "HOME" "/tmp"))))))
+    (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 example 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 may be
+delimited.")
+    (license license:gpl2)))
+
 (define-public perl-text-roman
   (package
     (name "perl-text-roman")
-- 
2.39.2

[bug#63894] [PATCH 38/55] gnu: Add perl-text-reform.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-text-reform): New variable.
---
 gnu/packages/perl.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index ce6a506fb2..25887f3a71 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11417,6 +11417,31 @@ (define-public perl-text-recordparser
 delimited.")
     (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 @code{form()} subroutine may be exported from the module.  It takes
+a series of format (or \"picture\") strings followed by replacement values,
+interpolates those values into each picture string, and returns the result.
+The effect is similar to the inbuilt perl format mechanism, although the
+field specification syntax is 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.39.2

[bug#63894] [PATCH 39/55] gnu: Add perl-text-tabulardisplay.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-text-tabulardisplay): New variable.
---
 gnu/packages/perl.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 25887f3a71..3e1cc4781c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11520,6 +11520,27 @@ (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
+     "@code{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.39.2

[bug#63894] [PATCH 40/55] gnu: Add perl-tie-hash-method.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-tie-hash-method): New variable.
---
 gnu/packages/perl.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 3e1cc4781c..ade4c00264 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11715,6 +11715,28 @@ (define-public perl-tie-handle-offset
 by modifying the @code{seek()} and @code{tell()} calls.")
     (license license:asl2.0)))
 
+(define-public perl-tie-hash-method
+  (package
+    (name "perl-tie-hash-method")
+    (version "0.02")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/Y/YV/YVES/Tie-Hash-Method-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1a9jxhg1jl5rcxnhcmgadl3wcznzjihwxgd1chgcmxqk2jszn4ym"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Tie-Hash-Method")
+    (synopsis "Tied hash with specific methods overriden by callbacks")
+    (description
+     "@code{Tie::Hash::Method} provides a way to create a tied hash with
+specific overriden behaviour without having to create a new class to do it.  A
+tied hash with no methods overriden is functionally equivalent to a normal
+hash.")
+    (license (package-license perl))))
+
 (define-public perl-tie-simple
   (package
     (name "perl-tie-simple")
-- 
2.39.2

[bug#63894] [PATCH 41/55] gnu: Add perl-time-warp.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-time-warp): New variable.
---
 gnu/packages/perl.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index ade4c00264..6c898b3c62 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11930,6 +11930,26 @@ (define-public perl-time-mock
 and time() calls.")
     (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 measurement of time")
+    (description
+     "The @code{Time::Warp} module offers developers control over the
+measurement of time.")
+    (license license:perl-license)))
+
 (define-public perl-tree-simple
   (package
     (name "perl-tree-simple")
-- 
2.39.2

[bug#63894] [PATCH 42/55] gnu: Add perl-user.

[Antero Mejr via Guix-patches via]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 6c898b3c62..df416f802c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -12304,6 +12304,28 @@ (define-public perl-universal-require
 built-in.")
     (license (package-license perl))))
 
+(define-public perl-user
+  ;; This is a trivial Perl module that appears to be maintained by Debian
+  ;; internally for use in debbugs.
+  (package
+    (name "perl-user")
+    (version "1.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "http://deb.debian.org/debian/pool/main/libu/libuser-perl/"
+             "libuser-perl_" version ".orig.tar.gz"))
+       (sha256
+        (base32
+         "1ncgr0sxkmqr33ias3yv6cnr3l6mcyxcsbr9n6y0g6mx9h1iiasv"))))
+    (build-system perl-build-system)
+    (home-page "https://tracker.debian.org/pkg/libuser-perl")
+    (synopsis "Provides user data in an OS independent manner")
+    (description "This module is allows applications to retrieve per-user
+characteristics.")
+    (license (package-license perl))))
+
 (define-public perl-variable-magic
   (package
     (name "perl-variable-magic")
-- 
2.39.2

[bug#63894] [PATCH 43/55] gnu: Add perl-text-xslate.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl.scm (perl-text-xslate): New variable.
---
 gnu/packages/perl.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index df416f802c..0a142a6e05 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -13157,6 +13157,32 @@ (define-public perl-text-wrapi18n
 words (like Chinese and Japanese) is supported.")
     (license (package-license perl))))
 
+(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 core design principle is that
+template logic does not have access outside the template without permission.")
+    (license (package-license perl))))
+
 (define-public perl-regexp-pattern
   (package
     (name "perl-regexp-pattern")
-- 
2.39.2

[bug#63894] [PATCH 44/55] gnu: Add perl-gravatar-url.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-gravatar-url): New variable.
---
 gnu/packages/perl-web.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index c3a3e17188..28cc0e6308 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -125,3 +125,29 @@ (define-public perl-uri-nested
      "@code{URI::Nested} provides support for nested URIs, where the scheme is
 a prefix, and the remainder of the URI is another URI.")
     (license license:perl-license)))
+
+(define-public perl-gravatar-url
+  (package
+    (name "perl-gravatar-url")
+    (version "1.07")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/M/MS/MSCHWERN/Gravatar-URL-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1mxnd70xsb7kxd1sf8s7phcds2nf0m8b8asmy3ikv76wzfpbvji3"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build
+                         perl-test-mockrandom
+                         perl-test-warn))
+    (propagated-inputs (list perl-net-dns perl-uri))
+    (home-page "https://metacpan.org/release/Gravatar-URL")
+    (synopsis "Make URLs for Gravatars from an email address")
+    (description
+     "This module looks up the Gravatar for any email address by constructing
+a URL to get the image from @url{gravatar.com}.  A Gravatar is a Globally
+Recognized Avatar for a given email address. This allows you to have a global
+picture associated with your email address.")
+    (license license:perl-license)))
-- 
2.39.2

[bug#63894] [PATCH 45/55] gnu: Add perl-io-sessiondata.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-io-sessiondata): New variable.
---
 gnu/packages/perl-web.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 28cc0e6308..17e9103bae 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -151,3 +151,23 @@ (define-public perl-gravatar-url
 Recognized Avatar for a given email address. This allows you to have a global
 picture associated with your email address.")
     (license license:perl-license)))
+
+(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 "Supporting module for SOAP::Lite")
+    (description
+     "Package extracted from SOAP::Lite.  Slightly modified to work on
+multiple platforms.")
+    (license license:perl-license)))
-- 
2.39.2

[bug#63894] [PATCH 46/55] gnu: Add perl-soap-lite.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-soap-lite): New variable.
---
 gnu/packages/perl-web.scm | 42 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 17e9103bae..2b8ba9e219 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -171,3 +171,45 @@ (define-public perl-io-sessiondata
      "Package extracted from SOAP::Lite.  Slightly modified to work on
 multiple platforms.")
     (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)
+    (arguments
+     (list #:phases #~(modify-phases %standard-phases
+                        (add-after 'unpack 'patch
+                          (lambda _
+                            (substitute* "t/Issues/rt53375.t"
+                              (("XML::Parser::Lite")
+                               "XML::Parser")))))))
+    (native-inputs (list perl-test-most perl-test-warn))
+    (propagated-inputs (list perl-class-inspector
+                             perl-constant
+                             perl-io-compress
+                             perl-io-sessiondata
+                             perl-io-socket-ssl
+                             perl-libwww
+                             perl-lwp-protocol-https
+                             perl-mime-base64
+                             perl-scalar-list-utils
+                             perl-task-weaken
+                             perl-uri
+                             perl-xml-parser))
+    (home-page "https://metacpan.org/release/SOAP-Lite")
+    (synopsis "Client/server interface to the Simple Object Access Protocol")
+    (description
+     "@code{SOAP::Lite} is a collection of Perl modules that provide a
+simple and lightweight interface to the
+@acronym{SOAP, Simple Object Access Protocol}, both on client and server
+side.")
+    (license license:perl-license)))
-- 
2.39.2

[bug#63894] [PATCH 47/55] gnu: Add geolite-country-data.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (geolite-country-data): New variable.
---
 gnu/packages/perl-web.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 2b8ba9e219..0bb0070cb5 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -25,6 +25,7 @@ (define-module (gnu packages perl-web)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
   #:use-module (guix download)
+  #:use-module (guix build-system copy)
   #:use-module (guix build-system perl)
   #:use-module (gnu packages web))
 
@@ -213,3 +214,30 @@ (define-public perl-soap-lite
 @acronym{SOAP, Simple Object Access Protocol}, both on client and server
 side.")
     (license license:perl-license)))
+
+(define-public geolite-country-data
+  ;; TODO: Figure out how to get an updated, free database.
+  (hidden-package
+   (package
+     (name "geolite-country-data")
+     (version "2019-12-06")
+     (source (origin
+               (method url-fetch)
+               (uri (string-append
+                     "https://web.archive.org/web/20181229152721/"
+                     "http://geolite.maxmind.com/download/geoip/database/"
+                     "GeoLiteCountry/" "GeoIP.dat.gz"))
+               (sha256
+                (base32
+                 "0j84ms2x893cpn7x8gffy082gnx882pmr0f6zpfsd46gpyw5xh5r"))))
+     (build-system copy-build-system)
+     (arguments
+      (list #:install-plan #~'(("GeoIP.dat" "share/GeoIP/"))))
+     (home-page "https://dev.maxmind.com/geoip/geolite2-free-geolocation-data")
+     (synopsis "Country-level GeoIP data (December 2018)")
+     (description
+      "This package provides an old GeoIP database in the legacy @file{.dat}
+format.  The data was collected before MaxMind changed the license and format
+of their databases.  It is intended only as a compatability package for
+SpamAssassin.")
+     (license license:cc-by-sa4.0))))
-- 
2.39.2

[bug#63894] [PATCH 48/55] gnu: Add perl-geo-ip.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-geo-ip): New variable.
---
 gnu/packages/perl-web.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 0bb0070cb5..82d6a2250a 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -241,3 +241,33 @@ (define-public geolite-country-data
 of their databases.  It is intended only as a compatability package for
 SpamAssassin.")
      (license license:cc-by-sa4.0))))
+
+(define-public perl-geo-ip
+  (package
+    (name "perl-geo-ip")
+    (version "1.51")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/M/MA/MAXMIND/Geo-IP-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1fka8fr7fw6sh3xa9glhs1zjg3s2gfkhi7n7da1l2m2wblqj0c0n"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:phases #~(modify-phases %standard-phases
+                        (add-after 'unpack 'patch
+                          (lambda _
+                            (substitute* "lib/Geo/IP.pm"
+                              (("/usr/local/share/GeoIP/GeoIP.dat")
+                               (string-append
+                                #$(this-package-input "geolite-country-data")
+                                "/share/GeoIP/GeoIP.dat"))))))))
+    (inputs (list geolite-country-data))
+    (home-page "https://metacpan.org/release/Geo-IP")
+    (synopsis "Look up location and network information by IP Address")
+    (description
+     "The Perl module @code{Geo::IP} looks up location and network information
+by IP Address.")
+    (license license:perl-license)))
-- 
2.39.2

[bug#63894] [PATCH 49/55] gnu: Add perl-net-smtps.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-net-smtps): New variable.
---
 gnu/packages/perl-web.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 82d6a2250a..787464103d 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -271,3 +271,26 @@ (define-public perl-geo-ip
      "The Perl module @code{Geo::IP} looks up location and network information
 by IP Address.")
     (license license:perl-license)))
+
+(define-public perl-net-smtps
+  (package
+    (name "perl-net-smtps")
+    (version "0.10")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/T/TO/TOMO/src/Net-SMTPS-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "1w6h7yjbk6a8xyi6rxgb0xlp2yqn55axl23wnqx687fy9y7gmzx9"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-authen-sasl
+                             perl-io-socket-ssl))
+    (home-page "https://metacpan.org/release/Net-SMTPS")
+    (synopsis "SSL/STARTTLS support for Net::SMTP")
+    (description
+     "This module implements a wrapper for @code{Net::SMTP}, enabling
+over-SSL/STARTTLS support.  This module inherits most of all the methods from
+@code{Net::SMTP}(2.X).")
+    (license license:perl-license)))
-- 
2.39.2

[bug#63894] [PATCH 50/55] gnu: Add perl-net-ip.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-net-ip): New variable.
---
 gnu/packages/perl-web.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 787464103d..86728d514f 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -294,3 +294,25 @@ (define-public perl-net-smtps
 over-SSL/STARTTLS support.  This module inherits most of all the methods from
 @code{Net::SMTP}(2.X).")
     (license license:perl-license)))
+
+(define-public perl-net-ip
+  (package
+    (name "perl-net-ip")
+    (version "1.26")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://cpan/authors/id/M/MA/MANU/Net-IP-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "0ffn2xqqbkfi7v303sp5dwgbv36jah3vg8r4nxhxfiv60vric3q4"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Net-IP")
+    (synopsis "Perl extension for manipulating IPv4/IPv6 addresses")
+    (description
+     "This module provides functions to deal with IPv4/IPv6 addresses.  The
+module can be used as a class, allowing the user to instantiate IP objects,
+which can be single IP addresses, prefixes, or ranges of addresses.  There is
+also a procedural way of accessing most of the functions. Most subroutines can
+take either IPv4 or IPv6 addresses transparently.")
+    (license license:perl-license)))
-- 
2.39.2

[bug#63894] [PATCH 51/55] gnu: Add perl-net-imap-simple.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-net-imap-simple): New variable.
---
 gnu/packages/perl-web.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 86728d514f..126dac4f6c 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -316,3 +316,25 @@ (define-public perl-net-ip
 also a procedural way of accessing most of the functions. Most subroutines can
 take either IPv4 or IPv6 addresses transparently.")
     (license license:perl-license)))
+
+(define-public perl-net-imap-simple
+  (package
+    (name "perl-net-imap-simple")
+    (version "1.2212")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/J/JE/JETTERO/Net-IMAP-Simple-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0mbzbfn0v1x1brd8nsyw8bzdkz31lw9qp7h6nrl3fcxylc5cs4lq"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-parse-recdescent))
+    (home-page "https://metacpan.org/release/Net-IMAP-Simple")
+    (synopsis "Perl extension for simple IMAP account handling.")
+    (description
+     "This package provides a class method constructs a new
+@code{Net::IMAP::Simple} object.  It takes one required parameter which is the
+server to connect to, and additional optional parameters.")
+    (license license:perl-license)))
-- 
2.39.2

[bug#63894] [PATCH 52/55] gnu: Add perl-mail-dmarc.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-mail-dmarc): New variable.
---
 gnu/packages/perl-web.scm | 60 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 58 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 126dac4f6c..bcc951d34a 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -22,12 +22,21 @@ (define-module (gnu packages perl-web)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu packages)
   #:use-module (guix packages)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages libidn)
+  #:use-module (gnu packages mail)
+  #:use-module (gnu packages networking)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
-  #:use-module (guix download)
+  #:use-module (gnu packages perl-compression)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages xml)
   #:use-module (guix build-system copy)
   #:use-module (guix build-system perl)
-  #:use-module (gnu packages web))
+  #:use-module (guix download)
+  #:use-module (guix gexp))
 
 (define-public perl-mojolicious
   (package
@@ -338,3 +347,50 @@ (define-public perl-net-imap-simple
 @code{Net::IMAP::Simple} object.  It takes one required parameter which is the
 server to connect to, and additional optional parameters.")
     (license license:perl-license)))
+
+(define-public perl-mail-dmarc
+  (package
+    (name "perl-mail-dmarc")
+    (version "1.20230215")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/M/MB/MBRADSHAW/Mail-DMARC-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "00xrgq7cz75aj2m6bpfrb162fi0kyr016579as7494nbb53zbp2p"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:tests? #f)) ;some require network, like 03.Base and 06.Result
+    (native-inputs (list perl-file-sharedir-install
+                         perl-module-build
+                         perl-test-exception
+                         perl-test-file-sharedir
+                         perl-test-output))
+    (propagated-inputs (list perl-config-tiny
+                             perl-dbd-sqlite
+                             perl-dbix-simple
+                             perl-email-mime
+                             perl-email-sender
+                             perl-email-simple
+                             perl-file-sharedir
+                             perl-io-socket-ssl
+                             perl-mail-dkim
+                             perl-net-dns
+                             perl-net-idn-encode
+                             perl-net-imap-simple
+                             perl-net-ip
+                             perl-net-smtps
+                             perl-net-ssleay
+                             perl-regexp-common
+                             perl-socket6
+                             perl-uri
+                             perl-xml-libxml))
+    (home-page "https://metacpan.org/release/Mail-DMARC")
+    (synopsis "Perl implementation of DMARC")
+    (description
+     "This module is a suite of tools for implementing DMARC. It adheres to
+the 2013 DMARC draft, intending to implement every MUST and every SHOULD.")
+    (license license:perl-license)))
+
-- 
2.39.2

[bug#63894] [PATCH 53/55] gnu: Add perl-net-libidn.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-net-libidn): New variable.
---
 gnu/packages/perl-web.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index bcc951d34a..1054b04fe6 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -394,3 +394,25 @@ (define-public perl-mail-dmarc
 the 2013 DMARC draft, intending to implement every MUST and every SHOULD.")
     (license license:perl-license)))
 
+(define-public perl-net-libidn
+  (package
+    (name "perl-net-libidn")
+    (version "0.12")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/T/TH/THOR/Net-LibIDN-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "05xvpn9z7dpv62a5wgjx1n9kxblkqsgl9kb3vk3nx1mk8aacr2ig"))))
+    (build-system perl-build-system)
+    (inputs (list libidn))
+    (home-page "https://metacpan.org/release/Net-LibIDN")
+    (synopsis "Perl bindings for GNU Libidn")
+    (description
+     "The package provides bindings for GNU Libidn, a C library for handling
+Internationalized Domain Names according to IDNA (RFC 3490), in a way very
+much inspired by Turbo Fredriksson's PHP-IDN.")
+    (license (list license:gpl1+ license:clarified-artistic))))
+
-- 
2.39.2

[bug#63894] [PATCH 54/55] gnu: Add perl-razor2-client-agent.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (perl-razor2-client-agent): New variable.
---
 gnu/packages/perl-web.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index 1054b04fe6..e558b556c9 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -416,3 +416,32 @@ (define-public perl-net-libidn
 much inspired by Turbo Fredriksson's PHP-IDN.")
     (license (list license:gpl1+ license:clarified-artistic))))
 
+(define-public perl-razor2-client-agent
+  ;; TODO: Package razor-agents and razor-agents-sdk
+  (package
+    (name "perl-razor2-client-agent")
+    (version "2.86")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/T/TO/TODDR/Razor2-Client-Agent-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0pw4jhxhm2naqkz0h3gjgdjnygf4019zmvp712vj8pmnxc12w1jy"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-digest-sha1 perl-uri))
+    (home-page "https://metacpan.org/release/Razor2-Client-Agent")
+    (synopsis "Collaborative, content-based spam filtering network agent.")
+    (description
+     "This package provides a client library for Vipul's Razor.  Vipul's Razor
+is a distributed, collaborative, spam detection and filtering network.
+Through user contribution, Razor establishes a distributed and constantly
+updating catalogue of spam in propagation that is consulted by email clients
+to filter out known spam.  Detection is done with statistical and randomized
+signatures that efficiently spot mutating spam content.  User input is
+validated through reputation assignments based on consensus on report and
+revoke assertions which in turn is used for computing confidence values
+associated with individual signatures.")
+    (license license:perl-license)))
+
-- 
2.39.2

[bug#63894] [PATCH 55/55] gnu: Add spamassassin.

[Antero Mejr via Guix-patches via]

* gnu/packages/perl-web.scm (spamassassin): New variable.
---
 gnu/packages/perl-web.scm | 87 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 87 insertions(+)

diff --git a/gnu/packages/perl-web.scm b/gnu/packages/perl-web.scm
index e558b556c9..661fa070d4 100644
--- a/gnu/packages/perl-web.scm
+++ b/gnu/packages/perl-web.scm
@@ -445,3 +445,90 @@ (define-public perl-razor2-client-agent
 associated with individual signatures.")
     (license license:perl-license)))
 
+(define-public spamassassin
+  (package
+    (name "spamassassin")
+    (version "4.0.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/S/SI/SIDNEY/Mail-SpamAssassin-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0djgm04kvgq0iab4hhv66gxhl2bhyhj1lfpjcdsw7qq3s6krv5v5"))
+              (modules '((guix build utils)))
+              (snippet #~(delete-file "spamc/configure"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:phases #~(modify-phases %standard-phases
+                        (add-before 'configure 'setup
+                          (lambda _
+                            (delete-file "t/debug.t") ;hangs
+                            (delete-file "t/dnsbl_subtests.t") ;6 failures
+                            (delete-file "t/spamc_x_e.t") ;3 failures
+                            (setenv "CONFIG_SHELL" (which "sh"))
+                            (with-directory-excursion "spamc"
+                              (invoke "autoreconf" "-vif"))))
+                        (add-after 'install 'fix-lib-path
+                          (lambda _
+                            (let ((bin (string-append #$output "/bin/")))
+                              (for-each
+                               (lambda (file)
+                                 (substitute* file
+                                   ;; TODO: Can we find a way to keep -T?
+                                   (("perl -T")
+                                    "perl"))
+                                 (wrap-program file
+                                   `("PERL5LIB" ":" prefix
+                                     (,(getenv "PERL5LIB")
+                                      ,(string-append
+                                        #$output
+                                        "/lib/perl5/site_perl")))))
+                               (map (lambda (file)
+                                      (string-append bin file))
+                                    '("spamd" "sa-awl" "sa-check_spamd"
+                                      "sa-compile" "sa-learn"
+                                      "sa-update" "spamassassin")))))))))
+    (native-inputs (list autoconf
+                         automake
+                         perl-devel-cycle
+                         perl-net-dns
+                         perl-critic
+                         perl-critic-policy-perlsecret
+                         perl-test-most
+                         perl-test-pod
+                         perl-text-diff))
+    (propagated-inputs (list perl-archive-zip
+                             perl-bsd-resource
+                             perl-dbd-sqlite
+                             perl-dbi
+                             perl-email-address-xs
+                             perl-encode-detect
+                             perl-geo-ip
+                             perl-html-parser
+                             perl-io-socket-inet6
+                             perl-io-socket-ssl
+                             perl-io-string
+                             perl-libwww
+                             perl-mail-dkim
+                             perl-mail-dmarc
+                             perl-mail-spf
+                             perl-net-cidr-lite
+                             perl-net-dns
+                             perl-net-ip
+                             perl-net-libidn
+                             perl-net-patricia
+                             perl-netaddr-ip
+                             perl-razor2-client-agent))
+    (home-page "https://metacpan.org/release/Mail-SpamAssassin")
+    (synopsis
+     "Extensible email filter used to identify spam")
+    (description
+     "Apache SpamAssassin is an anti-spam platform giving system
+administrators a filter to classify email and block spam (unsolicited bulk
+email).  It uses a robust scoring framework and plug-ins to integrate a wide
+range of advanced heuristic and statistical analysis tests on email headers
+and body text including text analysis, Bayesian filtering, DNS blocklists,
+and collaborative filtering databases.")
+    (license license:asl2.0)))
-- 
2.39.2