@@ -9363,6 +9363,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 "Make a hole to the original main compartment in the Safe compartment")
+ (description "From the Safe compartment, one can call outside defined subroutines or
+methods through the object that is copied into the Safe compartment, but they too
+run in the Safe compartment. Through Safe::Hole, we 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")