[bug#63866] [PATCH 01/16] gnu: Add perl-ref-util.

[gemmaro]

* gnu/packages/perl.scm (perl-ref-util): New variable.
---
 gnu/packages/perl.scm | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index d7312372de0..63144f27b2d 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -33,7 +33,7 @@
 ;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name>
 ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
 ;;; Copyright © 2022 Evgeny Pisemsky <evgeny@pisemsky.com>
-;;; Copyright © 2022 gemmaro <gemmaro.dev@gmail.com>
+;;; Copyright © 2022, 2023 gemmaro <gemmaro.dev@gmail.com>
 ;;; 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>
@@ -9153,6 +9153,36 @@ (define-public perl-readonly-xs
 the scalar's @code{FLAGS} structure.")
     (license license:perl-license)))
 
+(define-public perl-ref-util
+  (package
+    (name "perl-ref-util")
+    (version "0.204")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/A/AR/ARC/Ref-Util-" version
+                    ".tar.gz"))
+              (sha256
+               (base32
+                "1q85y5lzgl8wz5qnz3j6mch2fmllr668h54wszaz6i6gp8ysfps1"))))
+    (build-system perl-build-system)
+    (native-inputs (list perl-readonly))
+    (propagated-inputs (list perl-ref-util-xs))
+    (home-page "https://metacpan.org/release/Ref-Util";)
+    (synopsis "Utility functions for checking references")
+    (description
+     "@code{Ref::Util} introduces several functions to help identify 
references in
+a smarter (and usually faster) way.  The difference with conventional approach:
+@itemize
+@item No comparison against a string constant
+@item Supports blessed variables
+@item Supports tied variables and magic
+@item Ignores overloading
+@item Ignores subtle types
+@item Usually faster
+@end itemize")
+    (license license:x11)))
+
 (define-public perl-ref-util-xs
   (package
     (name "perl-ref-util-xs")
-- 
2.40.1