Chad Granum > Exodist-Util > Exodist::Util::Alias

Download:
Exodist-Util-0.008.tar.gz

Dependencies

Annotate this POD

Website

View/Report Bugs
Source  

NAME ^

Exodist::Util::Alias - Yet another set of aliasing tools

EXPORTS ^

All exports are run at compile time rather than run-time, the same as if they have been wrapped in a BEGIN block.

alias( @PACKAGES )

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();
alias_to( Alias => 'Package', ... )

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();

AUTHORS ^

Chad Granum exodist7@gmail.com

COPYRIGHT ^

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.

syntax highlighting: