TYPEMAP BIGNUM* O_OBJECT BN_CTX* O_OBJECT INPUT O_OBJECT if( ! SvROK( $arg ) ) { croak( \"argument is not a ${type} object\" ); } $var = (${type}) SvIV( SvRV( $arg ) ); OUTPUT O_OBJECT sv_setsv( $arg, new_obj( p_proto, $var ) );