aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/perl.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2017-08-21 15:56:30 +0100
committerChristopher Baines <mail@cbaines.net>2017-09-13 18:19:30 +0100
commit3d74955842d5e6d5db531a0588e13e34bb73e6d6 (patch)
treee60d8df03a58a92d96ce021d189a2eba0fbc574d /gnu/packages/perl.scm
parentb4387d868b5a2edc973e6aac024e81f6a06a8368 (diff)
downloadpatches-3d74955842d5e6d5db531a0588e13e34bb73e6d6.tar
patches-3d74955842d5e6d5db531a0588e13e34bb73e6d6.tar.gz
gnu: Add perl-test-memory-cycle.
* gnu/packages/perl.scm (perl-test-memory-cycle): New variable.
Diffstat (limited to 'gnu/packages/perl.scm')
-rw-r--r--gnu/packages/perl.scm36
1 files changed, 36 insertions, 0 deletions
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index 44f85da5e1..0627db119c 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -7397,6 +7397,42 @@ file to find out which tests you want to run and the order in which you want to
It constructs the right value for the build system to do the right thing.")
(license (package-license perl))))
+(define-public perl-test-memory-cycle
+ (package
+ (name "perl-test-memory-cycle")
+ (version "1.06")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/P/PE/PETDANCE/Test-Memory-Cycle-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "00ijmgx1r3cxrcs1qa9rb2s4gbm3nsawd90drda89kb4r7yxslwx"))))
+ (build-system perl-build-system)
+ (inputs
+ `(("perl-padwalker" ,perl-padwalker)))
+ (propagated-inputs
+ `(("perl-devel-cycle" ,perl-devel-cycle)))
+ (home-page
+ "http://search.cpan.org/dist/Test-Memory-Cycle")
+ (synopsis
+ "Verifies code hasn't left circular references")
+ (description
+ "@code{Test::Memory::Cycle} is built on top of @code{Devel::Cycle} to
+give you an easy way to check for these circular references.
+
+@example
+use Test::Memory::Cycle;
+
+my $object = new MyObject;
+# Do stuff with the object.
+memory_cycle_ok( $object );
+@end example")
+ (license artistic2.0)))
+
(define-public perl-test-mockobject
(package
(name "perl-test-mockobject")