To achieve such aliasing in code simply qualify the package name with a trailing :: e.g

{
  package foo;

  sub meth {
    printf "I was declared in %s, but called with %s\n",
           __PACKAGE__, $_[0];
  }
}

*bar:: = *foo::;
bar->meth;

__output__
I was declared in foo, but called with bar
[download]