Alias of a package not working

djcp3 has asked for the wisdom of the Perl Monks concerning the following question:

I want to alias a package name. According to documents I found, the following code should work. Instead of working I get Undefined subroutine &__ANON__::test1 called at ptest10 line 16.

package Test3;

sub test1 { print "hello\n"; }

1;

package main;

*Test2:: = \*Test3:: ;



$INC{"Test2.pm"}++;

Test2::test1();

1;
[download]

Comment on Alias of a package not working Download Code

Replies are listed 'Best First'.
Re: Alias of a package not working by choroba (Cardinal) on Aug 14, 2016 at 23:40 UTC
As noted in Re: How can I use a module via a short name or alias?, what's missing is to include the aliasing into a BEGIN block. You don't need to change the %INC. `BEGIN { Test2:: = \Test3:: }` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re: Alias of a package not working by kevbot (Vicar) on Aug 14, 2016 at 23:39 UTC
Various ways of doing this are discussed in How can I use a module via a short name or alias?.	[reply]