[bug#64486] [PATCH 00/22] Update licensecheck to 3.3.9.

[bug#64486] [PATCH 00/22] Update licensecheck to 3.3.9.

[Bruno Victal]

Some notes:
* I've put placeholder text on some of the perl modules since I couldn't
figure out what were they about. (nearly non-existent descriptions)

* Some dependencies had to be upgraded in order for licensecheck
to successfully build and pass the tests.

Bruno Victal (22):
  gnu: Add perl-xs-parse-sublike.
  gnu: Add perl-object-pad.
  gnu: Add perl-feature-compat-class.
  gnu: Add perl-feature-compat-try.
  gnu: Add perl-log-any-adapter-screen.
  gnu: Add perl-file-chdir.
  gnu: Add perl-test2-tools-command.
  gnu: Add perl-array-intspan.
  gnu: Add perl-string-license.
  gnu: perl-xs-parse-keyword: Update to 0.34.
  gnu: Add perl-extutils-cchecker.
  gnu: perl-test2-suite: Update to 0.000155.
  gnu: perl-test2-suite: Use G-Expressions.
  gnu: Add perl-string-trim-more.
  gnu: Add perl-regexp-pattern-defhash.
  gnu: Add perl-hash-defhash.
  gnu: Add perl-test-regexp-pattern.
  gnu: perl-regexp-pattern: Update to 0.2.14.
  gnu: perl-regexp-pattern-license: Update to 3.11.0.
  gnu: perl-string-copyright: Update to 0.003014.
  gnu: licensecheck: Update to 3.3.9.
  gnu: licensecheck: Use G-Expressions. Refactor phases.

 gnu/packages/license.scm    | 125 ++++++++++++-------
 gnu/packages/perl-check.scm |  62 ++++++++--
 gnu/packages/perl.scm       | 239 +++++++++++++++++++++++++++++++++++-
 3 files changed, 371 insertions(+), 55 deletions(-)


base-commit: 2426e51688d479042ea115a634c6be2d8b9f3b99
-- 
2.40.1

[bug#64486] [PATCH 01/22] gnu: Add perl-xs-parse-sublike.

[Bruno Victal]

* gnu/packages/perl.scm (perl-xs-parse-sublike): 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 15d4f3a9bc..bb9dfa2418 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -37,6 +37,7 @@
 ;;; Copyright © 2023 Mădălin Ionel Patrașcu <madalinionel.patrascu@mdc-berlin.de>
 ;;; Copyright © 2023 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2023 Jake Leporte <jakeleporte@outlook.com>
+;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -11740,6 +11741,27 @@ (define-public perl-xs-parse-keyword
 keyword plugins using the @code{PL_keyword_plugin} hook mechanism.")
     (license (package-license perl))))
 
+(define-public perl-xs-parse-sublike
+  (package
+    (name "perl-xs-parse-sublike")
+    (version "0.18")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/XS-Parse-Sublike-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0m2iv6sfkkj6ckx7nprniqrj5qg2qyir8ns8l2rwmqnvxw2pqq16"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test2-suite))
+    (home-page "https://metacpan.org/release/XS-Parse-Sublike")
+    (synopsis "XS functions to assist in parsing sub-like syntax")
+    (description "This module provides some XS functions to assist in writing
+parsers for @code{sub}-like syntax, primarily for authors of keyword plugins
+using the @code{PL_keyword_plugin} hook mechanism.")
+    (license (package-license perl))))
+
 (define-public perl-yaml
   (package
     (name "perl-yaml")

base-commit: 2426e51688d479042ea115a634c6be2d8b9f3b99
-- 
2.40.1

[bug#64486] [PATCH 02/22] gnu: Add perl-object-pad.

[Bruno Victal]

* gnu/packages/perl.scm (perl-object-pad): 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 bb9dfa2418..fc904c0b3a 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -8312,6 +8312,28 @@ (define-public perl-number-range
 number exists in a given range, and to be able to manipulate the range.")
     (license (package-license perl))))
 
+(define-public perl-object-pad
+  (package
+    (name "perl-object-pad")
+    (version "0.79")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/Object-Pad-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "1miawakw2w4q6ifygj4g03x57db0bysivckapmjl3mb2kvw102zv"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test2-suite
+                         perl-xs-parse-keyword perl-xs-parse-sublike))
+    (propagated-inputs (list perl-xs-parse-keyword perl-xs-parse-sublike))
+    (home-page "https://metacpan.org/release/Object-Pad")
+    (synopsis "Syntax for lexical field-based objects")
+    (description "This module provides a simple syntax for creating object
+classes.")
+    (license (package-license perl))))
+
 (define-public perl-object-signature
   (package
     (name "perl-object-signature")
-- 
2.40.1

[bug#64486] [PATCH 03/22] gnu: Add perl-feature-compat-class.

[Bruno Victal]

* gnu/packages/perl.scm (perl-feature-compat-class): 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 fc904c0b3a..147aed7492 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4760,6 +4760,28 @@ (define-public perl-extutils-xspp
 interface XS for C++; it is a thin layer over plain XS.")
     (license (package-license perl))))
 
+(define-public perl-feature-compat-class
+  (package
+    (name "perl-feature-compat-class")
+    (version "0.06")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/Feature-Compat-Class-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1hsyjza638pmmasyk6qjw9mbzjpm3cfjdrs09ww0ylarjk1z7s7q"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (propagated-inputs (list perl-object-pad))
+    (home-page "https://metacpan.org/release/Feature-Compat-Class")
+    (synopsis "Forward-compatible @code{class} syntax in Perl")
+    (description "This module provides the @code{class} keyword and related
+others (@code{method}, @code{field} and @code{ADJUST}) in a forward-compatible
+way.")
+    (license (package-license perl))))
+
 (define-public perl-file-changenotify
   (package
     (name "perl-file-changenotify")
-- 
2.40.1

[bug#64486] [PATCH 04/22] gnu: Add perl-feature-compat-try.

[Bruno Victal]

* gnu/packages/perl.scm (perl-feature-compat-try): 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 147aed7492..483339f951 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4782,6 +4782,27 @@ (define-public perl-feature-compat-class
 way.")
     (license (package-license perl))))
 
+(define-public perl-feature-compat-try
+  (package
+    (name "perl-feature-compat-try")
+    (version "0.05")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/Feature-Compat-Try-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0z3df58bamp1zx996mwvxy75h67p80wgl4sz3h9xnc5c7hbwg8ar"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (propagated-inputs (list perl-syntax-keyword-try))
+    (home-page "https://metacpan.org/release/Feature-Compat-Try")
+    (synopsis "@code{try/catch} syntax in Perl")
+    (description "This module provides syntactical support for
+@code{try/catch} control flows.")
+    (license (package-license perl))))
+
 (define-public perl-file-changenotify
   (package
     (name "perl-file-changenotify")
-- 
2.40.1

[bug#64486] [PATCH 05/22] gnu: Add perl-log-any-adapter-screen.

[Bruno Victal]

* gnu/packages/perl.scm (perl-log-any-adapter-screen): 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 483339f951..75d9ea9719 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -6206,6 +6206,26 @@ (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-any-adapter-screen
+  (package
+  (name "perl-log-any-adapter-screen")
+  (version "0.140")
+  (source (origin
+            (method url-fetch)
+            (uri (string-append
+                  "mirror://cpan/authors/id/P/PE/PERLANCAR/Log-Any-Adapter-Screen-"
+                  version ".tar.gz"))
+            (sha256
+             (base32
+              "1bl8n0d7wsfj3dijxi1bh65qfz75i1qbp14wkk3bsjv895fz6awr"))))
+  (build-system perl-build-system)
+  (propagated-inputs (list perl-log-any))
+  (home-page "https://metacpan.org/release/Log-Any-Adapter-Screen")
+  ;; FIXME: What does this module do? Write a better synopsis & description.
+  (synopsis "Send logs to screen, with colors and some other features")
+  (description "Lorem ipsum...")
+  (license (package-license perl))))
+
 (define-public perl-log-message
   (package
    (name "perl-log-message")
-- 
2.40.1

[bug#64486] [PATCH 06/22] gnu: Add perl-file-chdir.

[Bruno Victal]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 75d9ea9719..191f6c0df3 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -12201,6 +12201,25 @@ (define-public perl-shell-command
 
 ;;; END: Core module overrides
 
+(define-public perl-file-chdir
+  (package
+    (name "perl-file-chdir")
+    (version "0.1011")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DA/DAGOLDEN/File-chdir-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "0ybcmw1qw2spwcgyv82i8g53l7wbsy09hjzpvs0xdma8vw9gksri"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/File-chdir")
+    (synopsis "A more sensible way to change directories")
+    (description "This module provides @code{$CWD} and @code{@@CWD} as
+alternatives to @code{chdir()}.")
+    (license (package-license perl))))
+
 (define-public perl-file-find-object
  (package
   (name "perl-file-find-object")
-- 
2.40.1

[bug#64486] [PATCH 07/22] gnu: Add perl-test2-tools-command.

[Bruno Victal]

* gnu/packages/perl-check.scm (perl-test2-tools-command): 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..e78c61f71a 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -16,6 +16,7 @@
 ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
 ;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com>
 ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
+;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -118,6 +119,28 @@ (define-public perl-test2-plugin-nowarnings
 warning content is outputted via diag.")
     (license perl-license)))
 
+(define-public perl-test2-tools-command
+  (package
+    (name "perl-test2-tools-command")
+    (version "0.20")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/J/JM/JMATES/Test2-Tools-Command-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0n388mc1rqfd960yyfn74lgxwrv2b5yrijxf499g7xdvaj44crn4"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test2-suite))
+    (propagated-inputs (list perl-file-chdir perl-test2-suite))
+    (home-page "https://metacpan.org/release/Test2-Tools-Command")
+    (synopsis "Test simple Unix commands")
+    (description "This module tests that commands given particular arguments
+result in particular outputs by way of the exit status word, standard output,
+and standard error.")
+    (license bsd-3)))
+
 (define-public perl-test-base
   (package
     (name "perl-test-base")
-- 
2.40.1

[bug#64486] [PATCH 08/22] gnu: Add perl-array-intspan.

[Bruno Victal]

* gnu/packages/perl.scm (perl-array-intspan): 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 191f6c0df3..84f6b0ac67 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -642,6 +642,27 @@ (define-public perl-appconfig
 configuration files and parsing command line arguments.")
     (license (package-license perl))))
 
+(define-public perl-array-intspan
+  (package
+    (name "perl-array-intspan")
+    (version "2.004")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DD/DDUMONT/Array-IntSpan-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "168crsh363lgh2s127hnrbda37wvcq36xpcv59mywm89rspigkad"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Array-IntSpan")
+    (synopsis "Handle arrays of scalars or objects using integer ranges")
+    (description "This module brings the speed advantages of
+@code{Set::IntSpan} (written by Steven McDougall) to arrays.  Uses include
+manipulating grades, routing tables, or any other situation where you have
+mutually exclusive ranges of integers that map to given values.")
+    (license license:artistic2.0)))
+
 (define-public perl-array-utils
   (package
     (name "perl-array-utils")
-- 
2.40.1

[bug#64486] [PATCH 09/22] gnu: Add perl-string-license.

[Bruno Victal]

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

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index ca8375d19d..b619c80d1d 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
 ;;; Copyright © 2021 Tanguy Le Carrour <tanguy@bioneland.org>
 ;;; Copyright © 2022 Felix Gruber <felgru@posteo.net>
+;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -23,6 +24,7 @@
 (define-module (gnu packages license)
   #:use-module (gnu packages)
   #:use-module (gnu packages check)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
   #:use-module (gnu packages python-build)
@@ -89,6 +91,38 @@ (define-public perl-string-copyright
 statements and serializes in normalized format.")
     (license gpl3+)))
 
+(define-public perl-string-license
+  (package
+    (name "perl-string-license")
+    (version "0.0.9")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/J/JO/JONASS/String-License-v"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1dbw8rgwdlgnlvscijpb2dnw5irfd6wvca587bprq5kk19mf7jzf"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-file-basedir
+                         perl-regexp-pattern-license
+                         perl-software-license
+                         perl-test-without-module
+                         perl-test2-suite
+                         perl-yaml-libyaml))
+    (propagated-inputs (list perl-array-intspan
+                             perl-feature-compat-class
+                             perl-log-any
+                             perl-namespace-clean
+                             perl-path-tiny
+                             perl-regexp-pattern
+                             perl-regexp-pattern-license))
+    (home-page "https://metacpan.org/release/String-License")
+    (synopsis "Detect source code license statements in a text string")
+    (description "@code{String::License} identifies license statements in a
+string and serializes them in a normalized format.")
+    (license agpl3+)))
+
 (define-public perl-software-license
   (package
     (name "perl-software-license")
-- 
2.40.1

[bug#64486] [PATCH 10/22] gnu: perl-xs-parse-keyword: Update to 0.34.

[Bruno Victal]

* gnu/packages/perl.scm (perl-xs-parse-keyword): Update to 0.34.
[native-inputs]: Remove perl-test-simple. Add perl-test2-suite,
perl-extutils-cchecker.
---
 gnu/packages/perl.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 84f6b0ac67..d7352ade34 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11828,7 +11828,7 @@ (define-public perl-xs-object-magic
 (define-public perl-xs-parse-keyword
   (package
     (name "perl-xs-parse-keyword")
-    (version "0.06")
+    (version "0.34")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -11836,9 +11836,10 @@ (define-public perl-xs-parse-keyword
                     version ".tar.gz"))
               (sha256
                (base32
-                "0nnr8akkxb2h2y3d5r51pr84vvxkq89ynmi9azkbnn79jmbcbgvq"))))
+                "1hfny6bbpj5n2bmr213bpi547825jzbs2143nd19skcj16sdscqh"))))
     (build-system perl-build-system)
-    (native-inputs (list perl-module-build perl-test-simple))
+    (native-inputs (list perl-extutils-cchecker perl-module-build
+                         perl-test2-suite))
     (home-page "https://metacpan.org/dist/XS-Parse-Keyword")
     (synopsis "XS functions to assist in parsing keyword syntax")
     (description
-- 
2.40.1

[bug#64486] [PATCH 11/22] gnu: Add perl-extutils-cchecker.

[Bruno Victal]

* gnu/packages/perl.scm (perl-extutils-cchecker): 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 d7352ade34..96fa8cecdf 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4546,6 +4546,26 @@ (define-public perl-extutils-config
 it ties together a family of modern toolchain modules.")
     (license (package-license perl))))
 
+(define-public perl-extutils-cchecker
+  (package
+    (name "perl-extutils-cchecker")
+    (version "0.11")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/ExtUtils-CChecker-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1x8vafpff5nma18svxp1h3mp069fjmzlsdvnbcgn3z1pgrkkcxqi"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test-fatal))
+    (home-page "https://metacpan.org/release/ExtUtils-CChecker")
+    (synopsis "Configure time utilities for using C headers and libraries")
+    (description "This module provides configure time utilities for using
+C headers, libraries, or OS features.")
+    (license (package-license perl))))
+
 (define-public perl-extutils-cppguess
   (package
     (name "perl-extutils-cppguess")
-- 
2.40.1

[bug#64486] [PATCH 12/22] gnu: perl-test2-suite: Update to 0.000155.

[Bruno Victal]

* gnu/packages/perl-check.scm (perl-test2-suite): Update to 0.000155.
[native-inputs]: Add perl-json-maybexs.
[propagated-inputs]: Add perl-module-pluggable, perl-term-size-any,
perl-term-readkey, perl-unicode-linebreak. Remove perl-importer,
perl-sub-info.
---
 gnu/packages/perl-check.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index e78c61f71a..107d7f6a8d 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -72,7 +72,7 @@ (define-public perl-mock-config
 (define-public perl-test2-suite
   (package
     (name "perl-test2-suite")
-    (version "0.000072")
+    (version "0.000155")
     (source
       (origin
         (method url-fetch)
@@ -80,15 +80,17 @@ (define-public perl-test2-suite
                             version ".tar.gz"))
         (sha256
          (base32
-          "0hgd6n29qjh1pwqvbglm2kb852yqshmixqqjhsr2kvvibdr58qpf"))))
+          "0gfmm95xfjy5c376cl0qxqqhr7ibnn1371knd61rgh4vsv26p3n7"))))
     (build-system perl-build-system)
     (arguments
      '(#:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'set-env
            (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
+    (native-inputs (list perl-json-maybexs))
     (propagated-inputs
-     (list perl-importer perl-term-table perl-sub-info))
+     (list perl-module-pluggable perl-term-size-any perl-term-table
+           perl-term-readkey perl-unicode-linebreak))
     (home-page "https://metacpan.org/pod/Test2-Suite")
     (synopsis "Full set of tools for Test2::Suite")
     (description "This package provides a rich set of tools, plugins, bundles,
-- 
2.40.1

[bug#64486] [PATCH 13/22] gnu: perl-test2-suite: Use G-Expressions.

[Bruno Victal]

* gnu/packages/perl-check.scm (perl-test2-suite): Use G-Expressions. Drop
trailing #t.
---
 gnu/packages/perl-check.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index 107d7f6a8d..c4fa87fa24 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -38,6 +38,7 @@ (define-module (gnu packages perl-check)
   #:use-module (gnu packages)
   #:use-module (gnu packages valgrind)
   #:use-module (gnu packages web)
+  #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix build-system perl)
@@ -83,10 +84,12 @@ (define-public perl-test2-suite
           "0gfmm95xfjy5c376cl0qxqqhr7ibnn1371knd61rgh4vsv26p3n7"))))
     (build-system perl-build-system)
     (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'set-env
-           (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'set-env
+            (lambda _
+              (setenv "PERL_USE_UNSAFE_INC" "1"))))))
     (native-inputs (list perl-json-maybexs))
     (propagated-inputs
      (list perl-module-pluggable perl-term-size-any perl-term-table
-- 
2.40.1

[bug#64486] [PATCH 14/22] gnu: Add perl-string-trim-more.

[Bruno Victal]

* gnu/packages/perl.scm (perl-string-trim-more): 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 96fa8cecdf..4305d5639d 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9996,6 +9996,26 @@ (define-public perl-string-print
 a functional interface.")
     (license (package-license perl))))
 
+(define-public perl-string-trim-more
+  (package
+    (name "perl-string-trim-more")
+    (version "0.03")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/String-Trim-More-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0zsfq6350pnaxpa0g5syh3w04qx5fa6svw1idxy8k4ha7vbzp73k"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/String-Trim-More")
+    (synopsis "String trimming utilities")
+    (description "This module is an alternative to @code{String::Trim}.
+Instead of a single @code{trim} function, this module provides several from
+which you can choose on, depending on your needs.")
+    (license (package-license perl))))
+
 (define-public perl-sub-exporter
   (package
     (name "perl-sub-exporter")
-- 
2.40.1

[bug#64486] [PATCH 15/22] gnu: Add perl-regexp-pattern-defhash.

[Bruno Victal]

* gnu/packages/perl.scm (perl-regexp-pattern-defhash): New variable.
---
 gnu/packages/perl.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 4305d5639d..f4ecf6169c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9349,6 +9349,25 @@ (define-public perl-regexp-grammars
 hierarchical data from it.")
     (license license:perl-license)))
 
+(define-public perl-regexp-pattern-defhash
+  (package
+    (name "perl-regexp-pattern-defhash")
+    (version "0.001")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/Regexp-Pattern-DefHash-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1737hli8sn08rnbfckq0a7pfd8a1ihb6mnp34rlq2j8fkqldcrcq"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Regexp-Pattern-DefHash")
+    (synopsis "Regexp patterns related to DefHash")
+    ;; FIXME: What does this package do?
+    (description "Lorem Ipsum...")
+    (license (package-license perl))))
+
 (define-public perl-regexp-util
   (package
     (name "perl-regexp-util")
-- 
2.40.1

[bug#64486] [PATCH 16/22] gnu: Add perl-hash-defhash.

[Bruno Victal]

* gnu/packages/perl.scm (perl-hash-defhash): 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 f4ecf6169c..ac93a4392f 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5520,6 +5520,28 @@ (define-public perl-guard
 which are tied to the scope exit.")
     (license (package-license perl))))
 
+(define-public perl-hash-defhash
+  (package
+    (name "perl-hash-defhash")
+    (version "0.072")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/Hash-DefHash-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1kmislv2lwj66n97jqi3wvzgc4s0icz4krp239ni128awqd2k061"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-exception))
+    (propagated-inputs
+     (list perl-regexp-pattern-defhash perl-string-trim-more))
+    (home-page "https://metacpan.org/release/Hash-DefHash")
+    (synopsis "Manipulate defhash")
+    ;; FIXME: What does this package do?
+    (description "Lorem Ipsum...")
+    (license (package-license perl))))
+
 (define-public perl-hash-fieldhash
   (package
     (name "perl-hash-fieldhash")
-- 
2.40.1

[bug#64486] [PATCH 17/22] gnu: Add perl-test-regexp-pattern.

[Bruno Victal]

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

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index c4fa87fa24..cbf067cc17 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -1176,6 +1176,26 @@ (define-public perl-test-portability-files
 to execute.")
     (license perl-license)))
 
+(define-public perl-test-regexp-pattern
+  (package
+    (name "perl-test-regexp-pattern")
+    (version "0.010")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/Test-Regexp-Pattern-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "11lmwa5y41lhvk0sikn35b4l678jc2y9ybw0rfxv844cjcas0cm4"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-hash-defhash perl-regexp-pattern))
+    (home-page "https://metacpan.org/release/Test-Regexp-Pattern")
+    (synopsis "Test Regexp::Pattern patterns")
+    (description "This module performs various checks on a module's
+@code{Regexp::Pattern} patterns.")
+    (license perl-license)))
+
 (define-public perl-test-requires
   (package
     (name "perl-test-requires")
-- 
2.40.1

[bug#64486] [PATCH 18/22] gnu: perl-regexp-pattern: Update to 0.2.14.

[Bruno Victal]

* gnu/packages/perl.scm (perl-regexp-pattern) Update to 0.2.14.
---
 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 ac93a4392f..75366d69cc 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -12687,7 +12687,7 @@ (define-public perl-text-wrapi18n
 (define-public perl-regexp-pattern
   (package
     (name "perl-regexp-pattern")
-    (version "0.2.8")
+    (version "0.2.14")
     (source
      (origin
        (method url-fetch)
@@ -12695,7 +12695,7 @@ (define-public perl-regexp-pattern
              "mirror://cpan/authors/id/P/PE/PERLANCAR/Regexp-Pattern-"
              version ".tar.gz"))
        (sha256
-        (base32 "064igp2wxgsz4yb33v1r90i8clwjzs2xnpvw9niqlqrbzzrd4q1l"))))
+        (base32 "05j1fzgmv02n5qz4vyf30p1sj7v5lv2rab258aqwmb4w5gvjqaa4"))))
     (build-system perl-build-system)
     (native-inputs
      (list perl-test-exception))
-- 
2.40.1

[bug#64486] [PATCH 19/22] gnu: perl-regexp-pattern-license: Update to 3.11.0.

[Bruno Victal]

* gnu/packages/license.scm (perl-regexp-pattern-license): Update to 3.11.0.
[native-inputs]: Remove perl-test-exception. Add perl-test-regexp-pattern,
perl-test-without-module, perl-test2-suite, perl-try-tiny.
[propagated-inputs]: Remove.
---
 gnu/packages/license.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index b619c80d1d..05cd4954ea 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -45,7 +45,7 @@ (define-module (gnu packages license)
 (define-public perl-regexp-pattern-license
   (package
     (name "perl-regexp-pattern-license")
-    (version "3.1.94")
+    (version "3.11.0")
     (source
      (origin
        (method url-fetch)
@@ -53,12 +53,11 @@ (define-public perl-regexp-pattern-license
              "mirror://cpan/authors/id/J/JO/JONASS/Regexp-Pattern-License-"
              "v" version ".tar.gz"))
        (sha256
-        (base32 "0kznpv628jrndn4nw646f6pl7yqvmacwljlygvsjfdkyh0i4sr2k"))))
+        (base32 "1blkraliby1696pqici7k1pkwcrf7gbdavfxfffa2mk8lr4a6xw6"))))
     (build-system perl-build-system)
     (native-inputs
-     (list perl-regexp-pattern perl-test-exception))
-    (propagated-inputs
-     (list perl-strictures-2 perl-try-tiny))
+     (list perl-regexp-pattern perl-test-regexp-pattern
+           perl-test-without-module perl-test2-suite perl-try-tiny))
     (home-page "https://metacpan.org/release/Regexp-Pattern-License")
     (synopsis "Regular expressions for legal licenses")
     (description "Regexp::Pattern::License provides a hash of regular
-- 
2.40.1

[bug#64486] [PATCH 20/22] gnu: perl-string-copyright: Update to 0.003014.

[Bruno Victal]

* gnu/packages/license.scm (perl-string-copyright): Update to 0.003014.
[native-inputs]: Remove perl-number-range. Add perl-test-without-module,
perl-test2-suite.
[propagated-inputs]: Add perl-set-intspan.
---
 gnu/packages/license.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index 05cd4954ea..6fa9403272 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -69,7 +69,7 @@ (define-public perl-regexp-pattern-license
 (define-public perl-string-copyright
   (package
     (name "perl-string-copyright")
-    (version "0.003006")
+    (version "0.003014")
     (source
      (origin
        (method url-fetch)
@@ -78,12 +78,12 @@ (define-public perl-string-copyright
              version ".tar.gz"))
        (sha256
         (base32
-         "0fzymv065nn3glwnw34nkyadzw2dh4rcz8avmki4zrnk4k45m01a"))))
+         "0xdm0ml65r77sk1pklnq4spbmn9qid4m44rnva8hhh00b9044k9f"))))
     (build-system perl-build-system)
     (native-inputs
-     (list perl-number-range))
+     (list perl-test-without-module perl-test2-suite))
     (propagated-inputs
-     (list perl-exporter-tiny))
+     (list perl-exporter-tiny perl-set-intspan))
     (home-page "https://metacpan.org/release/String-Copyright")
     (synopsis "Representation of text-based copyright statements")
     (description "String::Copyright Parses common styles of copyright
-- 
2.40.1

[bug#64486] [PATCH 21/22] gnu: licensecheck: Update to 3.3.9.

[Bruno Victal]

Beginning 3.0.46 this package has been relicensed under the AGPL-3-or-newer.

* gnu/packages/license.scm (licensecheck): Update to 3.3.9.
[native-inputs]: Remove perl-regexp-pattern, perl-software-license,
perl-test-requires, perl-test-roo, perl-test-script, perl-universal-require,
perl-sub-quote. Add perl-encode-locale, perl-regexp-pattern-license,
perl-string-copyright, perl-test-without-module, perl-test2-suite,
perl-test2-tools-command.
[propagated-inputs]: Use new style. Remove perl-getopt-long-descriptive,
perl-moo, perl-regexp-pattern-license, perl-sort-key, perl-strictures,
perl-try-tiny, perl-module-runtime. Add perl-feature-compat-class,
perl-feature-compat-try,  perl-io-interactive, perl-log-any,
perl-log-any-adapter-screen, perl-string-license.
[license]: Change to agpl3+.
---
 gnu/packages/license.scm | 45 ++++++++++++++++++++--------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index 6fa9403272..025e1aa3bb 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -30,6 +30,7 @@ (define-module (gnu packages license)
   #:use-module (gnu packages python-build)
   #:use-module (gnu packages python-web)
   #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages web)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
@@ -148,7 +149,7 @@ (define-public perl-software-license
 (define-public licensecheck
   (package
     (name "licensecheck")
-    (version "3.0.37")
+    (version "3.3.9")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -156,31 +157,29 @@ (define-public licensecheck
                     "v" version ".tar.gz"))
               (sha256
                (base32
-                "12l83zf85zagpagizmzy3bwkc659sbzqf18cycx8g4h6d3mc5kqw"))))
+                "17sfw2cz5x339zq6xc2nfjps2vwpj3d307v90gva498fvnlk1y4y"))))
     (build-system perl-build-system)
     (native-inputs
-     (list perl-regexp-pattern
-           perl-software-license
-           perl-test-requires
-           perl-test-roo
-           perl-test-script
-           perl-universal-require
+     (list perl-encode-locale
            perl-number-range
-           perl-sub-quote))
+           perl-regexp-pattern-license
+           perl-string-copyright
+           perl-test-without-module
+           perl-test2-suite
+           perl-test2-tools-command))
     (propagated-inputs
-     `(("perl-getopt-long-descriptive" ,perl-getopt-long-descriptive)
-       ("perl-moo" ,perl-moo-2)
-       ("perl-namespace-clean" ,perl-namespace-clean)
-       ("perl-path-iterator-rule" ,perl-path-iterator-rule)
-       ("perl-path-tiny" ,perl-path-tiny)
-       ("perl-pod-constants" ,perl-pod-constants)
-       ("perl-regexp-pattern-license" ,perl-regexp-pattern-license)
-       ("perl-sort-key" ,perl-sort-key)
-       ("perl-strictures" ,perl-strictures-2)
-       ("perl-string-copyright" ,perl-string-copyright)
-       ("perl-string-escape" ,perl-string-escape)
-       ("perl-try-tiny" ,perl-try-tiny)
-       ("perl-module-runtime" ,perl-module-runtime)))
+     (list perl-feature-compat-class
+           perl-feature-compat-try
+           perl-io-interactive
+           perl-log-any
+           perl-log-any-adapter-screen
+           perl-namespace-clean
+           perl-path-iterator-rule
+           perl-path-tiny
+           perl-pod-constants
+           perl-string-copyright
+           perl-string-escape
+           perl-string-license))
     (arguments
      `(#:phases
        (modify-phases %standard-phases
@@ -198,7 +197,7 @@ (define-public licensecheck
     (description "Licensecheck attempts to determine the license that applies
 to each file passed to it, by searching the start of the file for text
 belonging to various licenses.")
-    (license (package-license perl))))
+    (license agpl3+)))
 
 (define-public reuse
   (package
-- 
2.40.1

[bug#64486] [PATCH 22/22] gnu: licensecheck: Use G-Expressions. Refactor phases.

[Bruno Victal]

* gnu/packages/license.scm (licensecheck)[arguments]: Use G-Expressions.
Drop trailing #t.
<#:phases>: Rename 'wrap-program to 'wrap-licensecheck. Add 'check-wrap.
---
 gnu/packages/license.scm | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index 025e1aa3bb..0760b6d7d2 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -35,6 +35,7 @@ (define-module (gnu packages license)
   #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix download)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module (guix licenses)
   #:use-module (guix packages))
@@ -181,17 +182,23 @@ (define-public licensecheck
            perl-string-escape
            perl-string-license))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'wrap-program
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (perllib (string-append out "/lib/perl5/site_perl/"
-                                            ,(package-version perl))))
-               (wrap-program (string-append out "/bin/licensecheck")
-                 `("PERL5LIB" ":"
-                   prefix (,(string-append perllib ":" (getenv "PERL5LIB")))))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'wrap 'wrap-licensecheck
+            (lambda _
+              (let ((licensecheck (string-append #$output "/bin/licensecheck"))
+                    (perl5lib (string-append #$output "/lib/perl5/site_perl/"
+                                             #$(package-version perl))))
+                (wrap-program licensecheck
+                  `("PERL5LIB" ":" prefix
+                    ,(list perl5lib (getenv "PERL5LIB")))))))
+          (add-after 'wrap-program 'check-wrap
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (unsetenv "PERL5LIB")
+                (invoke/quiet (string-append #$output "/bin/licensecheck")
+                              "--version")))))))
     (home-page "https://metacpan.org/release/App-Licensecheck")
     (synopsis "License checker for source files")
     (description "Licensecheck attempts to determine the license that applies
-- 
2.40.1

[bug#64486] [PATCH 00/22] Update licensecheck to 3.3.9.

[Bruno Victal]

bump

-- 
Furthermore, I consider that nonfree software must be eradicated.

Cheers,
Bruno.

[bug#64486] [PATCH v2 00/22] Update licensecheck to 3.3.9.

[Bruno Victal]

Notable changes since v1:
* Added missing descriptions.

Bruno Victal (22):
  gnu: Add perl-xs-parse-sublike.
  gnu: Add perl-object-pad.
  gnu: Add perl-feature-compat-class.
  gnu: Add perl-feature-compat-try.
  gnu: Add perl-log-any-adapter-screen.
  gnu: Add perl-file-chdir.
  gnu: Add perl-test2-tools-command.
  gnu: Add perl-array-intspan.
  gnu: Add perl-string-license.
  gnu: perl-xs-parse-keyword: Update to 0.34.
  gnu: Add perl-extutils-cchecker.
  gnu: perl-test2-suite: Update to 0.000155.
  gnu: perl-test2-suite: Use G-Expressions.
  gnu: Add perl-string-trim-more.
  gnu: Add perl-regexp-pattern-defhash.
  gnu: Add perl-hash-defhash.
  gnu: Add perl-test-regexp-pattern.
  gnu: perl-regexp-pattern: Update to 0.2.14.
  gnu: perl-regexp-pattern-license: Update to 3.11.0.
  gnu: perl-string-copyright: Update to 0.003014.
  gnu: licensecheck: Update to 3.3.9.
  gnu: licensecheck: Use G-Expressions. Refactor phases.

 gnu/packages/license.scm    | 125 ++++++++++++-------
 gnu/packages/perl-check.scm |  62 ++++++++--
 gnu/packages/perl.scm       | 239 +++++++++++++++++++++++++++++++++++-
 3 files changed, 371 insertions(+), 55 deletions(-)


base-commit: d22d2a05c389207f8cdcf824be7738b1499a987c
-- 
2.41.0

[bug#64486] [PATCH v2 01/22] gnu: Add perl-xs-parse-sublike.

[Bruno Victal]

* gnu/packages/perl.scm (perl-xs-parse-sublike): 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 8b82c272fc..e5f535d039 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -37,6 +37,7 @@
 ;;; Copyright © 2023 Mădălin Ionel Patrașcu <madalinionel.patrascu@mdc-berlin.de>
 ;;; Copyright © 2023 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2023 Jake Leporte <jakeleporte@outlook.com>
+;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -11844,6 +11845,27 @@ (define-public perl-xs-parse-keyword
 keyword plugins using the @code{PL_keyword_plugin} hook mechanism.")
     (license (package-license perl))))
 
+(define-public perl-xs-parse-sublike
+  (package
+    (name "perl-xs-parse-sublike")
+    (version "0.18")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/XS-Parse-Sublike-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0m2iv6sfkkj6ckx7nprniqrj5qg2qyir8ns8l2rwmqnvxw2pqq16"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test2-suite))
+    (home-page "https://metacpan.org/release/XS-Parse-Sublike")
+    (synopsis "XS functions to assist in parsing sub-like syntax")
+    (description "This module provides some XS functions to assist in writing
+parsers for @code{sub}-like syntax, primarily for authors of keyword plugins
+using the @code{PL_keyword_plugin} hook mechanism.")
+    (license (package-license perl))))
+
 (define-public perl-yaml
   (package
     (name "perl-yaml")
-- 
2.41.0

[bug#64486] [PATCH v2 02/22] gnu: Add perl-object-pad.

[Bruno Victal]

* gnu/packages/perl.scm (perl-object-pad): 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 e5f535d039..9432d54cfc 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -8352,6 +8352,28 @@ (define-public perl-number-range
 number exists in a given range, and to be able to manipulate the range.")
     (license (package-license perl))))
 
+(define-public perl-object-pad
+  (package
+    (name "perl-object-pad")
+    (version "0.79")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/Object-Pad-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "1miawakw2w4q6ifygj4g03x57db0bysivckapmjl3mb2kvw102zv"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test2-suite
+                         perl-xs-parse-keyword perl-xs-parse-sublike))
+    (propagated-inputs (list perl-xs-parse-keyword perl-xs-parse-sublike))
+    (home-page "https://metacpan.org/release/Object-Pad")
+    (synopsis "Syntax for lexical field-based objects")
+    (description "This module provides a simple syntax for creating object
+classes.")
+    (license (package-license perl))))
+
 (define-public perl-object-signature
   (package
     (name "perl-object-signature")
-- 
2.41.0

[bug#64486] [PATCH v2 03/22] gnu: Add perl-feature-compat-class.

[Bruno Victal]

* gnu/packages/perl.scm (perl-feature-compat-class): 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 9432d54cfc..9039b2b052 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4778,6 +4778,28 @@ (define-public perl-extutils-xspp
 interface XS for C++; it is a thin layer over plain XS.")
     (license (package-license perl))))
 
+(define-public perl-feature-compat-class
+  (package
+    (name "perl-feature-compat-class")
+    (version "0.06")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/Feature-Compat-Class-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1hsyjza638pmmasyk6qjw9mbzjpm3cfjdrs09ww0ylarjk1z7s7q"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (propagated-inputs (list perl-object-pad))
+    (home-page "https://metacpan.org/release/Feature-Compat-Class")
+    (synopsis "Forward-compatible @code{class} syntax in Perl")
+    (description "This module provides the @code{class} keyword and related
+others (@code{method}, @code{field} and @code{ADJUST}) in a forward-compatible
+way.")
+    (license (package-license perl))))
+
 (define-public perl-file-changenotify
   (package
     (name "perl-file-changenotify")
-- 
2.41.0

[bug#64486] [PATCH v2 04/22] gnu: Add perl-feature-compat-try.

[Bruno Victal]

* gnu/packages/perl.scm (perl-feature-compat-try): 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 9039b2b052..703fe382af 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4800,6 +4800,27 @@ (define-public perl-feature-compat-class
 way.")
     (license (package-license perl))))
 
+(define-public perl-feature-compat-try
+  (package
+    (name "perl-feature-compat-try")
+    (version "0.05")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/Feature-Compat-Try-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0z3df58bamp1zx996mwvxy75h67p80wgl4sz3h9xnc5c7hbwg8ar"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build))
+    (propagated-inputs (list perl-syntax-keyword-try))
+    (home-page "https://metacpan.org/release/Feature-Compat-Try")
+    (synopsis "@code{try/catch} syntax in Perl")
+    (description "This module provides syntactical support for
+@code{try/catch} control flows.")
+    (license (package-license perl))))
+
 (define-public perl-file-changenotify
   (package
     (name "perl-file-changenotify")
-- 
2.41.0

[bug#64486] [PATCH v2 05/22] gnu: Add perl-log-any-adapter-screen.

[Bruno Victal]

* gnu/packages/perl.scm (perl-log-any-adapter-screen): 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 703fe382af..506b078da4 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -6246,6 +6246,26 @@ (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-any-adapter-screen
+  (package
+  (name "perl-log-any-adapter-screen")
+  (version "0.140")
+  (source (origin
+            (method url-fetch)
+            (uri (string-append
+                  "mirror://cpan/authors/id/P/PE/PERLANCAR/Log-Any-Adapter-Screen-"
+                  version ".tar.gz"))
+            (sha256
+             (base32
+              "1bl8n0d7wsfj3dijxi1bh65qfz75i1qbp14wkk3bsjv895fz6awr"))))
+  (build-system perl-build-system)
+  (propagated-inputs (list perl-log-any))
+  (home-page "https://metacpan.org/release/Log-Any-Adapter-Screen")
+  (synopsis "Send logs to screen, with colors and some other features")
+  (description "A @code{Log::Any} adapter to send log messages to screen,
+with colors and some other features.")
+  (license (package-license perl))))
+
 (define-public perl-log-message
   (package
    (name "perl-log-message")
-- 
2.41.0

[bug#64486] [PATCH v2 06/22] gnu: Add perl-file-chdir.

[Bruno Victal]

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

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 506b078da4..0f0b66356b 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -12305,6 +12305,25 @@ (define-public perl-shell-command
 
 ;;; END: Core module overrides
 
+(define-public perl-file-chdir
+  (package
+    (name "perl-file-chdir")
+    (version "0.1011")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DA/DAGOLDEN/File-chdir-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "0ybcmw1qw2spwcgyv82i8g53l7wbsy09hjzpvs0xdma8vw9gksri"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/File-chdir")
+    (synopsis "A more sensible way to change directories")
+    (description "This module provides @code{$CWD} and @code{@@CWD} as
+alternatives to @code{chdir()}.")
+    (license (package-license perl))))
+
 (define-public perl-file-find-object
  (package
   (name "perl-file-find-object")
-- 
2.41.0

[bug#64486] [PATCH v2 07/22] gnu: Add perl-test2-tools-command.

[Bruno Victal]

* gnu/packages/perl-check.scm (perl-test2-tools-command): 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 5ef56227ce..e84728030f 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -16,6 +16,7 @@
 ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
 ;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com>
 ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
+;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -119,6 +120,28 @@ (define-public perl-test2-plugin-nowarnings
 warning content is outputted via diag.")
     (license perl-license)))
 
+(define-public perl-test2-tools-command
+  (package
+    (name "perl-test2-tools-command")
+    (version "0.20")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/J/JM/JMATES/Test2-Tools-Command-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0n388mc1rqfd960yyfn74lgxwrv2b5yrijxf499g7xdvaj44crn4"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test2-suite))
+    (propagated-inputs (list perl-file-chdir perl-test2-suite))
+    (home-page "https://metacpan.org/release/Test2-Tools-Command")
+    (synopsis "Test simple Unix commands")
+    (description "This module tests that commands given particular arguments
+result in particular outputs by way of the exit status word, standard output,
+and standard error.")
+    (license bsd-3)))
+
 (define-public perl-test-base
   (package
     (name "perl-test-base")
-- 
2.41.0

[bug#64486] [PATCH v2 08/22] gnu: Add perl-array-intspan.

[Bruno Victal]

* gnu/packages/perl.scm (perl-array-intspan): 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 0f0b66356b..ea9f72df5e 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -641,6 +641,27 @@ (define-public perl-appconfig
 configuration files and parsing command line arguments.")
     (license (package-license perl))))
 
+(define-public perl-array-intspan
+  (package
+    (name "perl-array-intspan")
+    (version "2.004")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DD/DDUMONT/Array-IntSpan-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "168crsh363lgh2s127hnrbda37wvcq36xpcv59mywm89rspigkad"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Array-IntSpan")
+    (synopsis "Handle arrays of scalars or objects using integer ranges")
+    (description "This module brings the speed advantages of
+@code{Set::IntSpan} (written by Steven McDougall) to arrays.  Uses include
+manipulating grades, routing tables, or any other situation where you have
+mutually exclusive ranges of integers that map to given values.")
+    (license license:artistic2.0)))
+
 (define-public perl-array-utils
   (package
     (name "perl-array-utils")
-- 
2.41.0

[bug#64486] [PATCH v2 09/22] gnu: Add perl-string-license.

[Bruno Victal]

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

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index ca8375d19d..b619c80d1d 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
 ;;; Copyright © 2021 Tanguy Le Carrour <tanguy@bioneland.org>
 ;;; Copyright © 2022 Felix Gruber <felgru@posteo.net>
+;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -23,6 +24,7 @@
 (define-module (gnu packages license)
   #:use-module (gnu packages)
   #:use-module (gnu packages check)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
   #:use-module (gnu packages python-build)
@@ -89,6 +91,38 @@ (define-public perl-string-copyright
 statements and serializes in normalized format.")
     (license gpl3+)))
 
+(define-public perl-string-license
+  (package
+    (name "perl-string-license")
+    (version "0.0.9")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/J/JO/JONASS/String-License-v"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1dbw8rgwdlgnlvscijpb2dnw5irfd6wvca587bprq5kk19mf7jzf"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-file-basedir
+                         perl-regexp-pattern-license
+                         perl-software-license
+                         perl-test-without-module
+                         perl-test2-suite
+                         perl-yaml-libyaml))
+    (propagated-inputs (list perl-array-intspan
+                             perl-feature-compat-class
+                             perl-log-any
+                             perl-namespace-clean
+                             perl-path-tiny
+                             perl-regexp-pattern
+                             perl-regexp-pattern-license))
+    (home-page "https://metacpan.org/release/String-License")
+    (synopsis "Detect source code license statements in a text string")
+    (description "@code{String::License} identifies license statements in a
+string and serializes them in a normalized format.")
+    (license agpl3+)))
+
 (define-public perl-software-license
   (package
     (name "perl-software-license")
-- 
2.41.0

[bug#64486] [PATCH v2 10/22] gnu: perl-xs-parse-keyword: Update to 0.34.

[Bruno Victal]

* gnu/packages/perl.scm (perl-xs-parse-keyword): Update to 0.34.
[native-inputs]: Remove perl-test-simple. Add perl-test2-suite,
perl-extutils-cchecker.
---
 gnu/packages/perl.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index ea9f72df5e..6c7fc45cac 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -11932,7 +11932,7 @@ (define-public perl-xs-object-magic
 (define-public perl-xs-parse-keyword
   (package
     (name "perl-xs-parse-keyword")
-    (version "0.06")
+    (version "0.34")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -11940,9 +11940,10 @@ (define-public perl-xs-parse-keyword
                     version ".tar.gz"))
               (sha256
                (base32
-                "0nnr8akkxb2h2y3d5r51pr84vvxkq89ynmi9azkbnn79jmbcbgvq"))))
+                "1hfny6bbpj5n2bmr213bpi547825jzbs2143nd19skcj16sdscqh"))))
     (build-system perl-build-system)
-    (native-inputs (list perl-module-build perl-test-simple))
+    (native-inputs (list perl-extutils-cchecker perl-module-build
+                         perl-test2-suite))
     (home-page "https://metacpan.org/dist/XS-Parse-Keyword")
     (synopsis "XS functions to assist in parsing keyword syntax")
     (description
-- 
2.41.0

[bug#64486] [PATCH v2 11/22] gnu: Add perl-extutils-cchecker.

[Bruno Victal]

* gnu/packages/perl.scm (perl-extutils-cchecker): 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 6c7fc45cac..23615e25e7 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -4564,6 +4564,26 @@ (define-public perl-extutils-config
 it ties together a family of modern toolchain modules.")
     (license (package-license perl))))
 
+(define-public perl-extutils-cchecker
+  (package
+    (name "perl-extutils-cchecker")
+    (version "0.11")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PEVANS/ExtUtils-CChecker-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1x8vafpff5nma18svxp1h3mp069fjmzlsdvnbcgn3z1pgrkkcxqi"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-module-build perl-test-fatal))
+    (home-page "https://metacpan.org/release/ExtUtils-CChecker")
+    (synopsis "Configure time utilities for using C headers and libraries")
+    (description "This module provides configure time utilities for using
+C headers, libraries, or OS features.")
+    (license (package-license perl))))
+
 (define-public perl-extutils-cppguess
   (package
     (name "perl-extutils-cppguess")
-- 
2.41.0

[bug#64486] [PATCH v2 12/22] gnu: perl-test2-suite: Update to 0.000155.

[Bruno Victal]

* gnu/packages/perl-check.scm (perl-test2-suite): Update to 0.000155.
[native-inputs]: Add perl-json-maybexs.
[propagated-inputs]: Add perl-module-pluggable, perl-term-size-any,
perl-term-readkey, perl-unicode-linebreak. Remove perl-importer,
perl-sub-info.
---
 gnu/packages/perl-check.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index e84728030f..5134d09496 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -73,7 +73,7 @@ (define-public perl-mock-config
 (define-public perl-test2-suite
   (package
     (name "perl-test2-suite")
-    (version "0.000072")
+    (version "0.000155")
     (source
       (origin
         (method url-fetch)
@@ -81,15 +81,17 @@ (define-public perl-test2-suite
                             version ".tar.gz"))
         (sha256
          (base32
-          "0hgd6n29qjh1pwqvbglm2kb852yqshmixqqjhsr2kvvibdr58qpf"))))
+          "0gfmm95xfjy5c376cl0qxqqhr7ibnn1371knd61rgh4vsv26p3n7"))))
     (build-system perl-build-system)
     (arguments
      '(#:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'set-env
            (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
+    (native-inputs (list perl-json-maybexs))
     (propagated-inputs
-     (list perl-importer perl-term-table perl-sub-info))
+     (list perl-module-pluggable perl-term-size-any perl-term-table
+           perl-term-readkey perl-unicode-linebreak))
     (home-page "https://metacpan.org/pod/Test2-Suite")
     (synopsis "Full set of tools for Test2::Suite")
     (description "This package provides a rich set of tools, plugins, bundles,
-- 
2.41.0

[bug#64486] [PATCH v2 13/22] gnu: perl-test2-suite: Use G-Expressions.

[Bruno Victal]

* gnu/packages/perl-check.scm (perl-test2-suite): Use G-Expressions. Drop
trailing #t.
---
 gnu/packages/perl-check.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index 5134d09496..f2b26d75b3 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -38,6 +38,7 @@ (define-module (gnu packages perl-check)
   #:use-module (gnu packages)
   #:use-module (gnu packages valgrind)
   #:use-module (gnu packages web)
+  #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix git-download)
@@ -84,10 +85,12 @@ (define-public perl-test2-suite
           "0gfmm95xfjy5c376cl0qxqqhr7ibnn1371knd61rgh4vsv26p3n7"))))
     (build-system perl-build-system)
     (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'set-env
-           (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'set-env
+            (lambda _
+              (setenv "PERL_USE_UNSAFE_INC" "1"))))))
     (native-inputs (list perl-json-maybexs))
     (propagated-inputs
      (list perl-module-pluggable perl-term-size-any perl-term-table
-- 
2.41.0

[bug#64486] [PATCH v2 14/22] gnu: Add perl-string-trim-more.

[Bruno Victal]

* gnu/packages/perl.scm (perl-string-trim-more): 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 23615e25e7..ab3b5ccd1a 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -10060,6 +10060,26 @@ (define-public perl-string-print
 a functional interface.")
     (license (package-license perl))))
 
+(define-public perl-string-trim-more
+  (package
+    (name "perl-string-trim-more")
+    (version "0.03")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/String-Trim-More-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "0zsfq6350pnaxpa0g5syh3w04qx5fa6svw1idxy8k4ha7vbzp73k"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/String-Trim-More")
+    (synopsis "String trimming utilities")
+    (description "This module is an alternative to @code{String::Trim}.
+Instead of a single @code{trim} function, this module provides several from
+which you can choose on, depending on your needs.")
+    (license (package-license perl))))
+
 (define-public perl-sub-exporter
   (package
     (name "perl-sub-exporter")
-- 
2.41.0

[bug#64486] [PATCH v2 15/22] gnu: Add perl-regexp-pattern-defhash.

[Bruno Victal]

* gnu/packages/perl.scm (perl-regexp-pattern-defhash): New variable.
---
 gnu/packages/perl.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index ab3b5ccd1a..920a690876 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -9389,6 +9389,25 @@ (define-public perl-regexp-grammars
 hierarchical data from it.")
     (license license:perl-license)))
 
+(define-public perl-regexp-pattern-defhash
+  (package
+    (name "perl-regexp-pattern-defhash")
+    (version "0.001")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/Regexp-Pattern-DefHash-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1737hli8sn08rnbfckq0a7pfd8a1ihb6mnp34rlq2j8fkqldcrcq"))))
+    (build-system perl-build-system)
+    (home-page "https://metacpan.org/release/Regexp-Pattern-DefHash")
+    (synopsis "Regexp patterns related to DefHash")
+    (description "Regexp patterns related to DefHash, a convention to define
+things more precisely and uniformly using a hash.")
+    (license (package-license perl))))
+
 (define-public perl-regexp-util
   (package
     (name "perl-regexp-util")
-- 
2.41.0

[bug#64486] [PATCH v2 16/22] gnu: Add perl-hash-defhash.

[Bruno Victal]

* gnu/packages/perl.scm (perl-hash-defhash): 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 920a690876..659b08f760 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -5538,6 +5538,28 @@ (define-public perl-guard
 which are tied to the scope exit.")
     (license (package-license perl))))
 
+(define-public perl-hash-defhash
+  (package
+    (name "perl-hash-defhash")
+    (version "0.072")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/Hash-DefHash-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1kmislv2lwj66n97jqi3wvzgc4s0icz4krp239ni128awqd2k061"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-test-exception))
+    (propagated-inputs
+     (list perl-regexp-pattern-defhash perl-string-trim-more))
+    (home-page "https://metacpan.org/release/Hash-DefHash")
+    (synopsis "Manipulate defhash")
+    (description "Routines to manipulate @dfn{defhash}, a convention to
+define things more precisely and uniformly using a hash, in Perl.")
+    (license (package-license perl))))
+
 (define-public perl-hash-fieldhash
   (package
     (name "perl-hash-fieldhash")
-- 
2.41.0

[bug#64486] [PATCH v2 17/22] gnu: Add perl-test-regexp-pattern.

[Bruno Victal]

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

diff --git a/gnu/packages/perl-check.scm b/gnu/packages/perl-check.scm
index f2b26d75b3..64605d4c05 100644
--- a/gnu/packages/perl-check.scm
+++ b/gnu/packages/perl-check.scm
@@ -1200,6 +1200,26 @@ (define-public perl-test-portability-files
 to execute.")
     (license perl-license)))
 
+(define-public perl-test-regexp-pattern
+  (package
+    (name "perl-test-regexp-pattern")
+    (version "0.010")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/P/PE/PERLANCAR/Test-Regexp-Pattern-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "11lmwa5y41lhvk0sikn35b4l678jc2y9ybw0rfxv844cjcas0cm4"))))
+    (build-system perl-build-system)
+    (propagated-inputs (list perl-hash-defhash perl-regexp-pattern))
+    (home-page "https://metacpan.org/release/Test-Regexp-Pattern")
+    (synopsis "Test Regexp::Pattern patterns")
+    (description "This module performs various checks on a module's
+@code{Regexp::Pattern} patterns.")
+    (license perl-license)))
+
 (define-public perl-test-requires
   (package
     (name "perl-test-requires")
-- 
2.41.0

[bug#64486] [PATCH v2 18/22] gnu: perl-regexp-pattern: Update to 0.2.14.

[Bruno Victal]

* gnu/packages/perl.scm (perl-regexp-pattern) Update to 0.2.14.
---
 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 659b08f760..a4f2128eaa 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -12791,7 +12791,7 @@ (define-public perl-text-wrapi18n
 (define-public perl-regexp-pattern
   (package
     (name "perl-regexp-pattern")
-    (version "0.2.8")
+    (version "0.2.14")
     (source
      (origin
        (method url-fetch)
@@ -12799,7 +12799,7 @@ (define-public perl-regexp-pattern
              "mirror://cpan/authors/id/P/PE/PERLANCAR/Regexp-Pattern-"
              version ".tar.gz"))
        (sha256
-        (base32 "064igp2wxgsz4yb33v1r90i8clwjzs2xnpvw9niqlqrbzzrd4q1l"))))
+        (base32 "05j1fzgmv02n5qz4vyf30p1sj7v5lv2rab258aqwmb4w5gvjqaa4"))))
     (build-system perl-build-system)
     (native-inputs
      (list perl-test-exception))
-- 
2.41.0

[bug#64486] [PATCH v2 19/22] gnu: perl-regexp-pattern-license: Update to 3.11.0.

[Bruno Victal]

* gnu/packages/license.scm (perl-regexp-pattern-license): Update to 3.11.0.
[native-inputs]: Remove perl-test-exception. Add perl-test-regexp-pattern,
perl-test-without-module, perl-test2-suite, perl-try-tiny.
[propagated-inputs]: Remove.
---
 gnu/packages/license.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index b619c80d1d..05cd4954ea 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -45,7 +45,7 @@ (define-module (gnu packages license)
 (define-public perl-regexp-pattern-license
   (package
     (name "perl-regexp-pattern-license")
-    (version "3.1.94")
+    (version "3.11.0")
     (source
      (origin
        (method url-fetch)
@@ -53,12 +53,11 @@ (define-public perl-regexp-pattern-license
              "mirror://cpan/authors/id/J/JO/JONASS/Regexp-Pattern-License-"
              "v" version ".tar.gz"))
        (sha256
-        (base32 "0kznpv628jrndn4nw646f6pl7yqvmacwljlygvsjfdkyh0i4sr2k"))))
+        (base32 "1blkraliby1696pqici7k1pkwcrf7gbdavfxfffa2mk8lr4a6xw6"))))
     (build-system perl-build-system)
     (native-inputs
-     (list perl-regexp-pattern perl-test-exception))
-    (propagated-inputs
-     (list perl-strictures-2 perl-try-tiny))
+     (list perl-regexp-pattern perl-test-regexp-pattern
+           perl-test-without-module perl-test2-suite perl-try-tiny))
     (home-page "https://metacpan.org/release/Regexp-Pattern-License")
     (synopsis "Regular expressions for legal licenses")
     (description "Regexp::Pattern::License provides a hash of regular
-- 
2.41.0

[bug#64486] [PATCH v2 20/22] gnu: perl-string-copyright: Update to 0.003014.

[Bruno Victal]

* gnu/packages/license.scm (perl-string-copyright): Update to 0.003014.
[native-inputs]: Remove perl-number-range. Add perl-test-without-module,
perl-test2-suite.
[propagated-inputs]: Add perl-set-intspan.
---
 gnu/packages/license.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index 05cd4954ea..6fa9403272 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -69,7 +69,7 @@ (define-public perl-regexp-pattern-license
 (define-public perl-string-copyright
   (package
     (name "perl-string-copyright")
-    (version "0.003006")
+    (version "0.003014")
     (source
      (origin
        (method url-fetch)
@@ -78,12 +78,12 @@ (define-public perl-string-copyright
              version ".tar.gz"))
        (sha256
         (base32
-         "0fzymv065nn3glwnw34nkyadzw2dh4rcz8avmki4zrnk4k45m01a"))))
+         "0xdm0ml65r77sk1pklnq4spbmn9qid4m44rnva8hhh00b9044k9f"))))
     (build-system perl-build-system)
     (native-inputs
-     (list perl-number-range))
+     (list perl-test-without-module perl-test2-suite))
     (propagated-inputs
-     (list perl-exporter-tiny))
+     (list perl-exporter-tiny perl-set-intspan))
     (home-page "https://metacpan.org/release/String-Copyright")
     (synopsis "Representation of text-based copyright statements")
     (description "String::Copyright Parses common styles of copyright
-- 
2.41.0

[bug#64486] [PATCH v2 21/22] gnu: licensecheck: Update to 3.3.9.

[Bruno Victal]

Beginning 3.0.46 this package has been relicensed under the AGPL-3-or-newer.

* gnu/packages/license.scm (licensecheck): Update to 3.3.9.
[native-inputs]: Remove perl-regexp-pattern, perl-software-license,
perl-test-requires, perl-test-roo, perl-test-script, perl-universal-require,
perl-sub-quote. Add perl-encode-locale, perl-regexp-pattern-license,
perl-string-copyright, perl-test-without-module, perl-test2-suite,
perl-test2-tools-command.
[propagated-inputs]: Use new style. Remove perl-getopt-long-descriptive,
perl-moo, perl-regexp-pattern-license, perl-sort-key, perl-strictures,
perl-try-tiny, perl-module-runtime. Add perl-feature-compat-class,
perl-feature-compat-try,  perl-io-interactive, perl-log-any,
perl-log-any-adapter-screen, perl-string-license.
[license]: Change to agpl3+.
---
 gnu/packages/license.scm | 45 ++++++++++++++++++++--------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index 6fa9403272..025e1aa3bb 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -30,6 +30,7 @@ (define-module (gnu packages license)
   #:use-module (gnu packages python-build)
   #:use-module (gnu packages python-web)
   #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages web)
   #:use-module (guix build-system perl)
   #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
@@ -148,7 +149,7 @@ (define-public perl-software-license
 (define-public licensecheck
   (package
     (name "licensecheck")
-    (version "3.0.37")
+    (version "3.3.9")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -156,31 +157,29 @@ (define-public licensecheck
                     "v" version ".tar.gz"))
               (sha256
                (base32
-                "12l83zf85zagpagizmzy3bwkc659sbzqf18cycx8g4h6d3mc5kqw"))))
+                "17sfw2cz5x339zq6xc2nfjps2vwpj3d307v90gva498fvnlk1y4y"))))
     (build-system perl-build-system)
     (native-inputs
-     (list perl-regexp-pattern
-           perl-software-license
-           perl-test-requires
-           perl-test-roo
-           perl-test-script
-           perl-universal-require
+     (list perl-encode-locale
            perl-number-range
-           perl-sub-quote))
+           perl-regexp-pattern-license
+           perl-string-copyright
+           perl-test-without-module
+           perl-test2-suite
+           perl-test2-tools-command))
     (propagated-inputs
-     `(("perl-getopt-long-descriptive" ,perl-getopt-long-descriptive)
-       ("perl-moo" ,perl-moo-2)
-       ("perl-namespace-clean" ,perl-namespace-clean)
-       ("perl-path-iterator-rule" ,perl-path-iterator-rule)
-       ("perl-path-tiny" ,perl-path-tiny)
-       ("perl-pod-constants" ,perl-pod-constants)
-       ("perl-regexp-pattern-license" ,perl-regexp-pattern-license)
-       ("perl-sort-key" ,perl-sort-key)
-       ("perl-strictures" ,perl-strictures-2)
-       ("perl-string-copyright" ,perl-string-copyright)
-       ("perl-string-escape" ,perl-string-escape)
-       ("perl-try-tiny" ,perl-try-tiny)
-       ("perl-module-runtime" ,perl-module-runtime)))
+     (list perl-feature-compat-class
+           perl-feature-compat-try
+           perl-io-interactive
+           perl-log-any
+           perl-log-any-adapter-screen
+           perl-namespace-clean
+           perl-path-iterator-rule
+           perl-path-tiny
+           perl-pod-constants
+           perl-string-copyright
+           perl-string-escape
+           perl-string-license))
     (arguments
      `(#:phases
        (modify-phases %standard-phases
@@ -198,7 +197,7 @@ (define-public licensecheck
     (description "Licensecheck attempts to determine the license that applies
 to each file passed to it, by searching the start of the file for text
 belonging to various licenses.")
-    (license (package-license perl))))
+    (license agpl3+)))
 
 (define-public reuse
   (package
-- 
2.41.0

[bug#64486] [PATCH v2 22/22] gnu: licensecheck: Use G-Expressions. Refactor phases.

[Bruno Victal]

* gnu/packages/license.scm (licensecheck)[arguments]: Use G-Expressions.
Drop trailing #t.
<#:phases>: Rename 'wrap-program to 'wrap-licensecheck. Add 'check-wrap.
---
 gnu/packages/license.scm | 29 ++++++++++++++++++-----------
 1 file changed, 18 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/license.scm b/gnu/packages/license.scm
index 025e1aa3bb..0760b6d7d2 100644
--- a/gnu/packages/license.scm
+++ b/gnu/packages/license.scm
@@ -35,6 +35,7 @@ (define-module (gnu packages license)
   #:use-module (guix build-system python)
   #:use-module (guix build-system pyproject)
   #:use-module (guix download)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module (guix licenses)
   #:use-module (guix packages))
@@ -181,17 +182,23 @@ (define-public licensecheck
            perl-string-escape
            perl-string-license))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'wrap-program
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (perllib (string-append out "/lib/perl5/site_perl/"
-                                            ,(package-version perl))))
-               (wrap-program (string-append out "/bin/licensecheck")
-                 `("PERL5LIB" ":"
-                   prefix (,(string-append perllib ":" (getenv "PERL5LIB")))))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'wrap 'wrap-licensecheck
+            (lambda _
+              (let ((licensecheck (string-append #$output "/bin/licensecheck"))
+                    (perl5lib (string-append #$output "/lib/perl5/site_perl/"
+                                             #$(package-version perl))))
+                (wrap-program licensecheck
+                  `("PERL5LIB" ":" prefix
+                    ,(list perl5lib (getenv "PERL5LIB")))))))
+          (add-after 'wrap-program 'check-wrap
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (unsetenv "PERL5LIB")
+                (invoke/quiet (string-append #$output "/bin/licensecheck")
+                              "--version")))))))
     (home-page "https://metacpan.org/release/App-Licensecheck")
     (synopsis "License checker for source files")
     (description "Licensecheck attempts to determine the license that applies
-- 
2.41.0