TYPEMAP
RDB_parser *    T_REDISDB_PARSER
INPUT
T_REDISDB_PARSER
        if(sv_derived_from($arg, \"RedisDB::Parser::XS\")) {
                IV tmp = SvIV((SV*)SvRV($arg));
                $var = INT2PTR($type, tmp);
        }
        else {
                croak(\"$var is not of type RedisDB::Parser::XS\");
        }
OUTPUT
T_REDISDB_PARSER
        sv_setref_pv($arg, \"RedisDB::Parser::XS\", (void *)$var);