how could that be different from what $class is in ($class = (caller(0))[3] ) =~ s/::[^:]+$// ?
Quoting myself:
The correct thing to look up is not [...] nor the package part of the orignal name given to the subroutine (the two things that caller can give you).
and
*My::Module::foo= \&Handy::GetOrSet;
So "Handy::GetOrSet" is the original name that uses a package name that has nothing to do with the class name of "My::Module".
- tye
In reply to Re^9: Beyond Inside-Out (no)
by tye
in thread Beyond Inside-Out
by Anno
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |