Net::LibAsyncNS T_PTROBJ
Net::LibAsyncNS::Query Net__LibAsyncNS__Query
SysRet T_SYSRET
INPUT
T_SYSRET
$var NOT IMPLEMENTED
Net__LibAsyncNS__Query
if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
$var = query_from_sv($arg);
}
else
Perl_croak(aTHX_ \"%s: %s is not of type %s\",
${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
\"$var\", \"$ntype\")
OUTPUT
T_SYSRET
if ($var != -1) {
if ($var == 0)
sv_setpvn($arg, "0 but true", 10);
else
sv_setiv($arg, (IV)$var);
}