| Subject: | 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