--- /dev/null
+TYPEMAP
+SSL_METHOD * T_IV
+SSL_CTX * T_IV
+SSL_SESSION * T_IV
+SSL * T_IV
+RSA * T_IV
+DH * T_IV
+X509 * T_IV
+X509_CRL * T_IV
+X509_LOOKUP * T_IV
+X509_NAME * T_IV
+X509_EXTENSION * T_IV
+BIO * T_IV
+BIO_METHOD * T_IV
+EVP_PKEY * T_IV
+CERT * T_IV
+LHASH * T_IV
+struct cert_st * T_IV
+X509_STORE_CTX * T_IV
+ASN1_UTCTIME * T_IV
+ASN1_OCTET_STRING * T_IV
+EVP_PKEY * T_IV
+const char * T_PV
+const unsigned char * T_PV
+CRYPTO_EX_new * T_IV
+CRYPTO_EX_dup * T_IV
+CRYPTO_EX_free * T_IV
+SSL_CIPHER * T_IV
+int * T_IV
+COMP_METHOD * T_IV
+X509_STORE * T_IV
+X509_NAME_STACK * T_IV
+ENGINE * T_IV
+pem_password_cb * T_IV
+generate_key_cb * T_IV
+callback_ret_int * T_IV
+callback_no_ret * T_IV
+cb_ssl_int_int_ret_void * T_IV
+cb_ssl_int_int_ret_RSA * T_IV
+cb_ssl_int_int_ret_DH * T_IV
+perl_filehandle_t T_PERL_IO_HANDLE
+
+INPUT
+
+T_PERL_IO_HANDLE
+ if ($arg && SvOK($arg) && SvROK($arg)) {
+ $var = ($type)PerlIO_fileno( IoIFP( sv_2io(SvRV($arg)) ) );
+ } else {
+ $var = ($type)SvIV($arg);
+ }