view release on metacpan or  search on metacpan

Holy.xs  view on Meta::CPAN

		** OK, so we have a blessed reference - an object - so
		** we should extract the name of the stash.
		*/

		sv		= SvRV( rv );
		name	= HvNAME( SvSTASH( sv ) );

		/* return the name of the package */
		RETVAL	= newSVpv( name , 0 );

	OUTPUT:
		RETVAL