1 2 3 4 5 6 7 8 9 10 11 12 13 14
TYPEMAP BIGNUM* T_PTR pkcs10Data* O_OBJECT Crypt__OpenSSL__RSA* 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