TYPEMAP
Authen::Krb5::Ccache           T_PTROBJ_NU
Authen::Krb5::Principal        T_PTROBJ_NU
Authen::Krb5::Admin            T_PTROBJ_NU
Authen::Krb5::Admin::Config    T_PTROBJ_NU
Authen::Krb5::Admin::Key       T_PTROBJ_NU
Authen::Krb5::Keyblock         T_PTROBJ_NU
Authen::Krb5::Admin::Policy    T_PTROBJ_NU
Authen::Krb5::Admin::Principal T_PTROBJ_NU

kadm5_ret_t    T_LONG
krb5_deltat    T_INT
krb5_flags     T_INT
krb5_int16     T_INT
krb5_kvno      T_U_INT
krb5_octet *   T_PTR
krb5_timestamp T_INT
krb5_ui_4      T_U_INT

INPUT

T_PTROBJ_NU
    if ($arg == &PL_sv_undef) {
        $var = 0;
    } else if (sv_isa($arg, \"${ntype}\")) {
        IV tmp = SvIV((SV*)SvRV($arg));
        $var = INT2PTR($type, tmp);
    } else {
        croak(\"$var is not of type ${ntype}\");
    }

OUTPUT

T_PTROBJ_NU
    sv_setref_pv($arg, \"${ntype}\", (void*)$var);