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