The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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);
	}