Exodist::Util::Alias - Yet another set of aliasing tools
All exports are run at compile time rather than run-time, the same as if they have been wrapped in a BEGIN block.
This will load all tha packages specified as arguments (require, no import). Once loaded a subroutine named after the last segmant of the package name will be created which returns the whole package name as a string.
use Exodist::Util::Alias; alias qw/ My::Package::MyA My::Package::MyB /; my $a = MyA->new(); my $b = MyB->new();
Like alias() except you provide a map of alias names and packages to which they should map. Like alias it will auto-require tho packages for you.
use Exodist::Util::Alias; alias_to MyA => My::Package::OtherA, MyB => My::Package::OtherB; my $a = MyA->new(); my $b = MyB->new();
Chad Granum firstname.lastname@example.org
Copyright (C) 2010 Chad Granum
Exodist-Util is free software; Standard perl licence.
Exodist-Util 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. See the license for more details.