1TYPEMAP
2BIGNUM* O_OBJECT
3BN_CTX* O_OBJECT
4
5INPUT
6O_OBJECT
7 if( ! SvROK( $arg ) ) { croak( \"argument is not a ${type} object\" ); }
8 $var = (${type}) SvIV( SvRV( $arg ) );
9
10OUTPUT
11O_OBJECT
12 sv_setsv( $arg, new_obj( p_proto, $var ) );
13