The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
TYPEMAP
SednaConnection*		SEDNA_CONN

OUTPUT

SEDNA_CONN
	sv_setref_pv( $arg, "Sedna", (void*)$var );


INPUT

SEDNA_CONN
	if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) ) {
           $var = (struct SednaConnection*)(SvIV((SV*)SvRV( $arg )));
        } else if ($arg == 0) {
           XSRETURN(0);
        } else {
           XSRETURN_UNDEF;
        }