The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#i_img *			T_PTR_NULL
Imager::Color           T_PTROBJ
Imager::Color::Float    T_PTROBJ
Imager::ImgRaw          T_PTROBJ
Imager::Font::TT	T_PTROBJ
Imager::IO              T_PTROBJ
Imager::Font::FT2       T_PTROBJ
Imager::FillHandle      T_PTROBJ
const char *		T_PV
float			T_FLOAT
float*			T_ARRAY
undef_int		T_IV_U
HASH			T_HVREF
utf8_str		T_UTF8_STR
#############################################################################
INPUT
T_PTR_NULL
	if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
	else $var = NULL

# the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
T_AVREF
        if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
            $var = (AV*)SvRV($arg);
        else
            Perl_croak(aTHX_ \"$var is not an array reference\")

#############################################################################
OUTPUT
T_IV_U
	if ($var == 0) $arg=&PL_sv_undef;
	else sv_setiv($arg, (IV)$var);
T_PTR_NULL
	sv_setiv($arg, (IV)$var);