Nicer names for your perl modules/classes
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 \*(L"customer\*(R" or \*(L"basket\*(R" when we are referring to \*(C`My::Site::User::Customer\*(C' or \*(C`My::Site::Shop::Basket\*(C'. We thought it would be nice if our classes knew what we would prefer to call them.
This module will add a \*(C`moniker\*(C' (and \*(C`plural_moniker\*(C') method to \*(C`UNIVERSAL\*(C', and so to every class or module.
$ob->moniker;
Returns the moniker for $ob. So, if $ob->isa(\*(L"Big::Scary::Animal\*(R"), \*(C`moniker\*(C' will return \*(L"animal\*(R".
$ob->plural_moniker;
Returns the plural moniker for $ob. So, if $ob->isa(\*(L"Cephalopod::Octopus\*(R"), \*(C`plural_moniker\*(C' will return \*(L"octopuses\*(R".
(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.