Permalink
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (13 sloc) 317 Bytes
perl_uuid_t* T_PV
uuid_context_t* T_PTRUUID
INPUT
T_PTRUUID
if (SvROK($arg) && sv_derived_from($arg, \"Data::UUID\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type,tmp);
}
else
croak(\"$var is not of type Data::UUID\")
OUTPUT
T_PTRUUID
sv_setref_pv($arg, \"Data::UUID\", (void*)$var);