UNIVERSAL::moniker
use UNIVERSAL::moniker;
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.
$ob->moniker;
Returns the moniker for $ob.
So, if $ob->isa("Big::Scary::Animal"), moniker will return "animal".
$ob->plural_moniker;
Returns the plural moniker for $ob.
So, if $ob->isa("Cephalopod::Octopus"), plural_moniker will return "octopuses".
(You need to install Lingua::EN::Inflect for this to work.)
Marty Pauley <marty+perl@kasei.com>, Tony Bowden <tony@kasei.com>, Elizabeth Mattijsen <liz@dijkmat.nl>
(Yes, 3 authors for such a small module!)
Copyright (C) 2004 Kasei
This program is free software; you can redistribute it under the same terms as Perl.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.