06/06: gnu: perl-critic: Make the perlcritic command available.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 034eb1b0b624ccd14ed846f402ce7670e6e3f317
Author: gemmaro <gemmaro.dev@gmail.com>
AuthorDate: Sat Aug 31 11:07:55 2024 +0900

    gnu: perl-critic: Make the perlcritic command available.
    
    * gnu/packages/perl.scm (perl-critic)[arguments]<#:phases>: Add phases to 
wrap
    the perlcritic command and test it works.
    [inputs]: Add bash-minimal for wrap-program.
    
    Change-Id: I8c506e655fdf2b1c33e850579c6a5adcbbd37192
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/perl.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 380cf893b2..31576dedf9 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -2294,7 +2294,22 @@ versa.")
                (base32
                 "1nzxpn71mrpp85yxrxlraj52q2skvf9ja887ls11d57h6smg1vmz"))))
     (build-system perl-build-system)
+    (arguments
+     (list
+      #:phases #~(modify-phases %standard-phases
+                   (add-after 'install 'wrap-perlcritic
+                     (lambda _
+                       (wrap-program (string-append #$output "/bin/perlcritic")
+                         `("PERL5LIB" ":" prefix
+                           (,(getenv "PERL5LIB") ,(string-append #$output
+                                                   "/lib/perl5/site_perl"))))))
+                   (add-after 'wrap-perlcritic 'check-perlcritic
+                     (lambda* (#:key tests? #:allow-other-keys)
+                       (when tests?
+                         (invoke (string-append #$output "/bin/perlcritic")
+                                 "--version")))))))
     (native-inputs (list perl-module-build perl-test-deep))
+    (inputs (list bash-minimal))
     (propagated-inputs (list perltidy
                              perl-exception-class
                              perl-io-string