perl-throwable: New package (#41597)

1 files changed, 31 insertions, 0 deletions

diff --git a/var/spack/repos/builtin/packages/perl-throwable/package.py b/var/spack/repos/builtin/packages/perl-throwable/package.py
new file mode 100644
index 0000000000..4d143e0a68
--- /dev/null
+++ b/var/spack/repos/builtin/packages/perl-throwable/package.py
@@ -0,0 +1,31 @@
+# Copyright 2013-2023 Lawrence Livermore National Security, LLC and other
+# Spack Project Developers. See the top-level COPYRIGHT file for details.
+# Copyright 2023 EMBL-European Bioinformatics Institute
+#
+# SPDX-License-Identifier: (Apache-2.0 OR MIT)
+
+from spack.package import *
+
+
+class PerlThrowable(PerlPackage):
+    """A role for classes that can be thrown"""
+
+    homepage = "https://metacpan.org/pod/Throwable"
+    url = "https://cpan.metacpan.org/authors/id/R/RJ/RJBS/Throwable-1.001.tar.gz"
+
+    maintainers("EbiArnie")
+
+    version("1.001", sha256="d0cb5e9d7d06d70f2cc56eecf857a83a45eaca43850dcdda91d3feb4ddde4c51")
+
+    depends_on("perl-devel-stacktrace@1.32:", type=("run", "test"))
+    depends_on("perl-module-runtime@0.002:", type=("run"))
+    depends_on("perl-moo@1.000001:", type=("run"))
+    depends_on("perl-sub-quote", type=("run"))
+
+    def test_use(self):
+        """Test 'use module'"""
+        options = ["-we", 'use strict; use Throwable; print("OK\n")']
+
+        perl = self.spec["perl"].command
+        out = perl(*options, output=str.split, error=str.split)
+        assert "OK" in out