Mobile_P2kMoto_FS_FileInfo *    O_PTROBJ
Mobile_P2kMoto_Java_Midlet *    O_PTROBJ

INPUT
O_PTROBJ
        if (sv_derived_from($arg, \"${local$_=$ntype;s/_/::/g;s/Ptr$//;\$_}\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = INT2PTR($type,tmp);
        }
        else
            Perl_croak(aTHX_ \"$var is not of type ${local$_=$ntype;s/_/::/g;s/Ptr$//;\$_}\")

OUTPUT
O_PTROBJ
	sv_setref_pv($arg, \"${local$_=$ntype;s/_/::/g;s/Ptr$//;\$_}\", (void*)$var);
