5 files changed, 55 insertions, 0 deletions

diff --git a/devel/Makefile b/devel/Makefile
index 0821d2bb5ad6..7d68d3082d1a 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -949,6 +949,7 @@
     SUBDIR += p5-DateTime-TimeZone-LMT
     SUBDIR += p5-Decision-ACL
     SUBDIR += p5-Devel-Arena
+    SUBDIR += p5-Devel-Caller
     SUBDIR += p5-Devel-Constants
     SUBDIR += p5-Devel-CoreStack
     SUBDIR += p5-Devel-Cover
diff --git a/devel/p5-Devel-Caller/Makefile b/devel/p5-Devel-Caller/Makefile
new file mode 100644
index 000000000000..4901aa43faa6
--- /dev/null
+++ b/devel/p5-Devel-Caller/Makefile
@@ -0,0 +1,32 @@
+# ex:ts=8
+# Ports collection makefile for:	Devel-Caller
+# Date created:			Jul. 11, 2006
+# Whom:				Ying-Chieh Chen
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Devel-Caller
+PORTVERSION=	0.11
+CATEGORIES=	devel perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Devel
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	yinjieh@csie.nctu.edu.tw
+COMMENT=	A perl module which is meatier versions of caller
+
+BUILD_DEPENDS=	${SITE_PERL}/${PERL_ARCH}/PadWalker.pm:${PORTSDIR}/devel/p5-PadWalker
+RUN_DEPENDS=	${BUILD_DEPENDS}
+
+PERL_MODBUILD=	yes
+
+MAN3=		Devel::Caller.3
+
+.include <bsd.port.pre.mk>
+
+.if ${PERL_LEVEL} < 500800
+IGNORE=		requires perl 5.8.0 or later. Install lang/perl5.8 then try again
+.endif
+
+.include <bsd.port.post.mk>
diff --git a/devel/p5-Devel-Caller/distinfo b/devel/p5-Devel-Caller/distinfo
new file mode 100644
index 000000000000..9bdb8d48da18
--- /dev/null
+++ b/devel/p5-Devel-Caller/distinfo
@@ -0,0 +1,3 @@
+MD5 (Devel-Caller-0.11.tar.gz) = 56c7ed8204be4e7c63d524d21fa56050
+SHA256 (Devel-Caller-0.11.tar.gz) = 575e5e4162516bb0c9b06a9c63134f801ba9444c080e156681d297ebb8bde31a
+SIZE (Devel-Caller-0.11.tar.gz) = 7247
diff --git a/devel/p5-Devel-Caller/pkg-descr b/devel/p5-Devel-Caller/pkg-descr
new file mode 100644
index 000000000000..bd44fe00445b
--- /dev/null
+++ b/devel/p5-Devel-Caller/pkg-descr
@@ -0,0 +1,13 @@
+Devel::Caller - meatier versions of caller
+
+SYNOPSIS
+
+ use Devel::Caller qw(caller_cv);
+ $foo = sub { print "huzzah\n" if $foo == caller_cv(0) };
+ $foo->();  # prints huzzah
+
+ use Devel::Caller qw(called_with);
+ sub foo { print called_with(0,1); }
+ foo( my @foo ); # should print '@foo'
+
+WWW: http://search.cpan.org/dist/Devel-Caller/
diff --git a/devel/p5-Devel-Caller/pkg-plist b/devel/p5-Devel-Caller/pkg-plist
new file mode 100644
index 000000000000..51a198d32aea
--- /dev/null
+++ b/devel/p5-Devel-Caller/pkg-plist
@@ -0,0 +1,6 @@
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Devel/Caller/Caller.bs
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/Devel/Caller/Caller.so
+%%SITE_PERL%%/%%PERL_ARCH%%/Devel/Caller.pm
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Devel/Caller
+@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/auto/Devel
+@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/Devel