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