In Perl, special tokens like __PACKAGE__, __SUB__, __FILE__, __LINE__ exists and are available from the script.
I may get a value of __PACKAGE__ from XS as HvNAME( PL_currstash ), I suppose. How do I access the others?
Is there a special interface to access all of them from XS? Like: CTX->package, CTX->sub, etc.