From 2dca669e45a233ec1391897b65faf51e347ace05 Mon Sep 17 00:00:00 2001 From: Alex Sassmannshausen Date: Wed, 29 Jun 2016 16:43:16 +0200 Subject: [PATCH] gnu: Add perl-guard. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/perl.scm (perl-guard): New variable. Signed-off-by: Ludovic Courtès --- gnu/packages/perl.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index 1a0c8783d1..ae6ad8f18e 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -2530,6 +2530,29 @@ vaguely inspired by John Ousterhout's Tk_ParseArgv.") "Getopt-Tabular-" version)) (license (package-license perl)))) +(define-public perl-guard + (package + (name "perl-guard") + (version "1.023") + (source (origin + (method url-fetch) + (uri (string-append "mirror://cpan/authors/id/M/ML/MLEHMANN/Guard-" + version ".tar.gz")) + (sha256 + (base32 + "1p6i9mfmbs9cw40jqdv71ihv2xfi0vvlv8bdv2810gf93zwxvi1l")))) + (build-system perl-build-system) + (home-page "http://search.cpan.org/dist/Guard") + (synopsis "Safe cleanup blocks implemented as guards") + (description "@code{Guard} implements so-called @dfn{guards}. A guard is +something (usually an object) that \"guards\" a resource, ensuring that it is +cleaned up when expected. + +Specifically, this module supports two different types of guards: guard +objects, which execute a given code block when destroyed, and scoped guards, +which are tied to the scope exit.") + (license (package-license perl)))) + (define-public perl-hash-merge (package (name "perl-hash-merge")