- This module aims to provide a nicer syntax and method to catch errors in

Perl, similar to what is found in other languages (such as Java, Python
or C++). The standard method of using eval {}; if($@) {} is often prone
to subtle bugs, primarily that tis far too easy to stomp on the error in
error handlers. And also eval/if isn't the nicest idiom.

WWW:	http://search.cpan.org/dist/TryCatch

PR:		ports/145951
Submitted by:	Jonathan Chu <milki@rescomp.berkeley.edu>

5 files changed, 55 insertions, 0 deletions

diff --git a/lang/Makefile b/lang/Makefile
index ca879cc28cd5..b5c4782a4cf0 100644
--- a/lang/Makefile
+++ b/lang/Makefile
@@ -231,6 +231,7 @@
     SUBDIR += p5-Switch
     SUBDIR += p5-Tcl
     SUBDIR += p5-Try-Tiny
+    SUBDIR += p5-TryCatch
     SUBDIR += p5-ePerl
     SUBDIR += p5-signatures
     SUBDIR += p5-v6
diff --git a/lang/p5-TryCatch/Makefile b/lang/p5-TryCatch/Makefile
new file mode 100644
index 000000000000..be99181244fd
--- /dev/null
+++ b/lang/p5-TryCatch/Makefile
@@ -0,0 +1,37 @@
+# New ports collection makefile for:	p5-TryCatch
+# Date created:		22 April 2010
+# Whom:		milki
+#
+# $FreeBSD$
+#
+
+PORTNAME=	TryCatch
+PORTVERSION=	1.002000
+CATEGORIES=	lang perl5
+MASTER_SITES=	CPAN
+MASTER_SITE_SUBDIR=	 ../../authors/id/A/AS/ASH
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	milki@rescomp.berkeley.edu
+COMMENT=	First class try catch semantics for Perl, without source filters
+
+BUILD_DEPENDS=	p5-Test-Simple>=0.88:${PORTSDIR}/devel/p5-Test-Simple \
+		p5-Test-Exception>=0:${PORTSDIR}/devel/p5-Test-Exception \
+		p5-ExtUtils-Depends>=0.302:${PORTSDIR}/devel/p5-ExtUtils-Depends \
+		p5-B-Hooks-OP-Check>=0.18:${PORTSDIR}/devel/p5-B-Hooks-OP-Check \
+		p5-B-Hooks-OP-PPAddr>=0.03:${PORTSDIR}/devel/p5-B-Hooks-OP-PPAddr
+RUN_DEPENDS=	p5-Parse-Method-Signatures>=1.003012:${PORTSDIR}/devel/p5-Parse-Method-Signatures \
+		p5-B-Hooks-EndOfScope>=0.08:${PORTSDIR}/devel/p5-B-Hooks-EndOfScope \
+		p5-Devel-Declare>=0.005007:${PORTSDIR}/devel/p5-Devel-Declare \
+		p5-Moose>=0:${PORTSDIR}/devel/p5-Moose \
+		p5-MooseX-Types>=0:${PORTSDIR}/devel/p5-MooseX-Types \
+		p5-Scope-Upper>=0.06:${PORTSDIR}/devel/p5-Scope-Upper \
+		p5-Variable-Magic>=0.28:${PORTSDIR}/devel/p5-Variable-Magic \
+		p5-Sub-Exporter>=0.979:${PORTSDIR}/devel/p5-Sub-Exporter \
+		p5-XSLoader>=0:${PORTSDIR}/devel/p5-XSLoader
+
+PERL_CONFIGURE=	5.8.1+
+
+MAN3=	TryCatch.3
+
+.include <bsd.port.mk>
diff --git a/lang/p5-TryCatch/distinfo b/lang/p5-TryCatch/distinfo
new file mode 100644
index 000000000000..97d4bf2d7d31
--- /dev/null
+++ b/lang/p5-TryCatch/distinfo
@@ -0,0 +1,3 @@
+MD5 (TryCatch-1.002000.tar.gz) = c0069370f5cbd982872702ed4495daf4
+SHA256 (TryCatch-1.002000.tar.gz) = 1ac163e3ccaf4b445f832a80f57a89f7a5de714470732fe4613d76a5382d7960
+SIZE (TryCatch-1.002000.tar.gz) = 83199
diff --git a/lang/p5-TryCatch/pkg-descr b/lang/p5-TryCatch/pkg-descr
new file mode 100644
index 000000000000..f46efdf5fb0a
--- /dev/null
+++ b/lang/p5-TryCatch/pkg-descr
@@ -0,0 +1,7 @@
+This module aims to provide a nicer syntax and method to catch errors in
+Perl, similar to what is found in other languages (such as Java, Python
+or C++). The standard method of using eval {}; if ($@) {} is often prone
+to subtle bugs, primarily that its far too easy to stomp on the error in
+error handlers. And also eval/if isn't the nicest idiom.
+
+WWW: http://search.cpan.org/dist/TryCatch
diff --git a/lang/p5-TryCatch/pkg-plist b/lang/p5-TryCatch/pkg-plist
new file mode 100644
index 000000000000..ad6e7183ecf0
--- /dev/null
+++ b/lang/p5-TryCatch/pkg-plist
@@ -0,0 +1,7 @@
+%%SITE_PERL%%/%%PERL_ARCH%%/TryCatch.pm
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/TryCatch/.packlist
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/TryCatch/TryCatch.bs
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/TryCatch/TryCatch.so
+%%SITE_PERL%%/%%PERL_ARCH%%/bench.pl
+%%SITE_PERL%%/%%PERL_ARCH%%/bench_ok.pl
+@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/auto/TryCatch