The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

TODDR / Crypt-OpenSSL-RSA-0.33 / typemap 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13

              
TYPEMAP
BIGNUM*      T_PTR
rsaData*     O_OBJECT
INPUT
O_OBJECT
    if (!(SvROK($arg) && sv_derived_from($arg, PACKAGE_NAME)))
    {
        croak(\"argument is not a ${type} object\");
    }
    $var = (${type}) SvIV(SvRV($arg));
OUTPUT