1perl_uuid_t* T_PV 2uuid_context_t* T_PTRUUID 3 4INPUT 5T_PTRUUID 6 if (SvROK($arg) && sv_derived_from($arg, \"Data::UUID\")) { 7 IV tmp = SvIV((SV*)SvRV($arg)); 8 $var = INT2PTR($type,tmp); 9 } 10 else 11 croak(\"$var is not of type Data::UUID\") 12OUTPUT 13T_PTRUUID 14 sv_setref_pv($arg, \"Data::UUID\", (void*)$var); 15