|
Packit |
fc16e3 |
perl_uuid_t* T_PV
|
|
Packit |
fc16e3 |
uuid_context_t* T_PTRUUID
|
|
Packit |
fc16e3 |
|
|
Packit |
fc16e3 |
INPUT
|
|
Packit |
fc16e3 |
T_PTRUUID
|
|
Packit |
fc16e3 |
if (SvROK($arg) && sv_derived_from($arg, \"Data::UUID\")) {
|
|
Packit |
fc16e3 |
IV tmp = SvIV((SV*)SvRV($arg));
|
|
Packit |
fc16e3 |
$var = INT2PTR($type,tmp);
|
|
Packit |
fc16e3 |
}
|
|
Packit |
fc16e3 |
else
|
|
Packit |
fc16e3 |
croak(\"$var is not of type Data::UUID\")
|
|
Packit |
fc16e3 |
OUTPUT
|
|
Packit |
fc16e3 |
T_PTRUUID
|
|
Packit |
fc16e3 |
sv_setref_pv($arg, \"Data::UUID\", (void*)$var);
|