uulist * T_UULIST INPUT T_UULIST if (sv_derived_from ($arg, \"Convert::UUlib::Item\")) { IV tmp = SvIV ((SV*)SvRV ($arg)); $var = ($type)tmp; } else croak (\"$var is not of type Convert::UUlib::Item\") OUTPUT T_UULIST sv_setref_pv ($arg, \"Convert::UUlib::Item\", (void*)$var);