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 ) );