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 <[email protected]>, Tony Bowden <[email protected]>, Elizabeth Mattijsen <[email protected]>
(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.