in reply to find the package name of an inherited object from inside the parent
__PACKAGE__ is a constant like __FILE__ and __LINE__. What you might want is ref, which returns the class a reference is blessed into.
Just be advised that outside of debugging, there is very little you should do based on the class name.
In Section
Seekers of Perl Wisdom