TYPEMAP
Epeg_Image		* 	O_OBJECT
const char		*	T_PV


OUTPUT
# The perl object is blessed into 'CLASS' which should
# be a char * having the name of the package for the blessing.
O_OBJECT
	sv_setref_pv( $arg, "Epeg_Image", (void*)$var );

#
# I have no idea what this does...
#
INPUT
O_OBJECT
	if ( sv_isobject( $arg ) && ( SvTYPE( SvRV( $arg ) ) == SVt_PVMG ) )
	{
		$var = ($type)SvIV( (SV*)SvRV( $arg ) );
	}
	else
	{
		warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
		XSRETURN_UNDEF;
	}