#2969: please delete your module from CPAN

or at least stop using eval ;)
Did you look for prior art?

http://search.cpan.org/search?mode=dist&query=Alias
yields
http://search.cpan.org/author/BRENTDAX/Variable-Alias-0.01/Alias.pm
http://search.cpan.org/author/DAVIDNICO/Tie-Alias-0.01/Alias.pm
http://search.cpan.org/src/GSAR/Alias-2.32/Alias.pm

You don't need eval, since all you wanna do is alias globs

use strict;
use warnings;

package ABE;
use vars '$BEARD';
$BEARD = 6;

package LINCOLN;

package main;
{
no strict 'refs';

for( qw| GEORGE LINCONL CLINTON | ) {
*{$_."::"} = \*{"ABE::"};
}

for( qw| ABE GEORGE LINCONL CLINTON | ) {
print \${$_."::BEARD"} , qq| ${$_."::BEARD"}\n|;
}
}

__END__
SCALAR(0x1bc57bc) 6
SCALAR(0x1bc57bc) 6
SCALAR(0x1bc57bc) 6
SCALAR(0x1bc57bc) 6

[guest - Wed Jul 16 11:54:23 2003]:

> or at least stop using eval ;)
> You don't need eval, since all you wanna do is alias globs

Done. v0.04; thanks for the example.


> Did you look for prior art?
>
> http://search.cpan.org/search?mode=dist&query=Alias
> yields
> http://search.cpan.org/author/BRENTDAX/Variable-Alias-0.01/Alias.pm
> http://search.cpan.org/author/DAVIDNICO/Tie-Alias-0.01/Alias.pm
> http://search.cpan.org/src/GSAR/Alias-2.32/Alias.pm

Neither Tie::Alias nor Variable::Alias nor even Alias mention globs,
packages or namespaces.

Thanks again,
J