const char *		T_PV
pam_handle_t *		T_PAMH

INPUT

T_PAMH
#        if (sv_isa($arg, \"${ntype}\"))
            $var = ($type)SvIV((SV*)SvRV($arg));
#        else
#            croak(\"$var is not of type ${ntype}\")

OUTPUT

T_PAMH
	sv_setiv(newSVrv($arg, 0 /* "Authen::PAM" */), (IV)$var);

