1TYPEMAP 2struct authensasl * AuthenSASLtype 3 4INPUT 5AuthenSASLtype 6 if ((SvTYPE($arg) != SVt_RV) && (SvTYPE($arg) != SVt_PVMG)) { 7 printf(\"First parameter was not a reference. It was type %d\\n\", SvTYPE($arg)); 8 XSRETURN(0); 9 } 10 $var = (struct authensasl *)SvIV(SvRV($arg)); 11 12OUTPUT 13AuthenSASLtype 14 sv_setref_iv($arg, "Authen::SASL::Cyrus", (int)$var); 15