package New::MyModule; *Old::MyModule:: = \*New::MyModule::; ... 1;
Update: Added missing trailing colons. Tested:
use strict; use warnings; BEGIN { package New::MyModule; *Old::MyModule:: = \*New::MyModule::; sub foo { print @_ } 1; } New::MyModule::foo("new\n"); Old::MyModule::foo("old\n");
In reply to Re: Rename/Relocate A Module
by ikegami
in thread Rename/Relocate A Module
by rajib_rashid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |