TYPEMAP
int64_t	T_IV
uid2::UID2Client*	O_OBJECT
uid2::Timestamp*	O_OBJECT

INPUT
O_OBJECT
    if (sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG)) {
        $var = ($type) SvIV((SV*) SvRV($arg));
    } else {
        warn( \"${Package}::$func_name() -- $var is not a blessed SV reference\" );
        XSRETURN_UNDEF;
    }

OUTPUT
O_OBJECT
    sv_setref_pv($arg, CLASS, (void *) $var);