5 files changed, 48 insertions, 0 deletions

diff --git a/devel/Makefile b/devel/Makefile
index f2c70f244e0f..a7375b472c4a 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -775,6 +775,7 @@
     SUBDIR += p5-TraceFuncs
     SUBDIR += p5-Tree-DAG_Node
     SUBDIR += p5-UNIVERSAL-exports
+    SUBDIR += p5-UNIVERSAL-moniker
     SUBDIR += p5-VCS
     SUBDIR += p5-VCS-CVS
     SUBDIR += p5-Want
diff --git a/devel/p5-UNIVERSAL-moniker/Makefile b/devel/p5-UNIVERSAL-moniker/Makefile
new file mode 100644
index 000000000000..deb7e3a57c34
--- /dev/null
+++ b/devel/p5-UNIVERSAL-moniker/Makefile
@@ -0,0 +1,25 @@
+# New ports collection makefile for:	UNIVERSAL-moniker
+# Date created:	   01 September 2003
+# Whom:		   Sergey Skvortsov <skv@protey.ru>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	UNIVERSAL-moniker
+PORTVERSION=	0.03
+CATEGORIES=	devel perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	UNIVERSAL
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	skv@FreeBSD.org
+COMMENT=	Moniker for classes
+
+BUILD_DEPENDS=	${SITE_PERL}/Lingua/EN/Inflect.pm:${PORTSDIR}/textproc/p5-Lingua-EN-Inflect
+RUN_DEPENDS=	${BUILD_DEPENDS}
+
+PERL_CONFIGURE=	yes
+
+MAN3=		UNIVERSAL::moniker.3
+
+.include <bsd.port.mk>
diff --git a/devel/p5-UNIVERSAL-moniker/distinfo b/devel/p5-UNIVERSAL-moniker/distinfo
new file mode 100644
index 000000000000..49dfb5f310c3
--- /dev/null
+++ b/devel/p5-UNIVERSAL-moniker/distinfo
@@ -0,0 +1 @@
+MD5 (UNIVERSAL-moniker-0.03.tar.gz) = 281ec7f40432bb100f36ebe38632ec66
diff --git a/devel/p5-UNIVERSAL-moniker/pkg-descr b/devel/p5-UNIVERSAL-moniker/pkg-descr
new file mode 100644
index 000000000000..014687091aed
--- /dev/null
+++ b/devel/p5-UNIVERSAL-moniker/pkg-descr
@@ -0,0 +1,16 @@
+Class names in Perl often don't sound great when spoken, or look good
+when written in prose.  For this reason, we tend to say things like
+"customer" or "basket" when we are referring to My::Site::User::Customer
+or My::Site::Shop::Basket.  We thought it would be nice if our classes
+knew what we would prefer to call them.
+
+This module will add a moniker (and plural_moniker) method to UNIVERSAL,
+and so to every class or module.
+
+So, if $ob->isa("Big::Scary::Animal"), moniker will return "animal";
+$ob->isa("Cephalopod::Octopus"), plural_moniker will return "octopuses".
+
+WWW: http://search.cpan.org/dist/UNIVERSAL-moniker/
+
+-- Sergey Skvortsov
+skv@FreeBSD.org
diff --git a/devel/p5-UNIVERSAL-moniker/pkg-plist b/devel/p5-UNIVERSAL-moniker/pkg-plist
new file mode 100644
index 000000000000..f678c3d4a840
--- /dev/null
+++ b/devel/p5-UNIVERSAL-moniker/pkg-plist
@@ -0,0 +1,5 @@
+%%SITE_PERL%%/%%PERL_ARCH%%/auto/UNIVERSAL/moniker/.packlist
+%%SITE_PERL%%/UNIVERSAL/moniker.pm
+@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/UNIVERSAL/moniker
+@unexec rmdir %D/%%SITE_PERL%%/UNIVERSAL 2>/dev/null || true
+@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/UNIVERSAL 2>/dev/null || true