TYPEMAP
struct authensasl * AuthenSASLtype
INPUT
AuthenSASLtype
if ((SvTYPE($arg) != SVt_RV) && (SvTYPE($arg) != SVt_PVMG)) {
printf(\"First parameter was not a reference. It was type %d\\n\", SvTYPE($arg));
XSRETURN(0);
}
$var = (struct authensasl *)SvIV(SvRV($arg));
OUTPUT
AuthenSASLtype
sv_setref_iv($arg, "Authen::SASL::Cyrus", (int)$var);