[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