{
  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]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.