1SSL_CTX*       T_CTXOBJ
2SSL*	       T_SSLOBJ
3X509*	       T_X509OBJ
4
5INPUT
6T_CTXOBJ
7        if (sv_derived_from($arg, \"Crypt::SSLeay::CTX\")) {
8            IV stack_top = SvIV((SV*)SvRV($arg));
9            $var = INT2PTR($type, stack_top);
10        }
11        else
12            croak(\"$var is not an Crypt::SSLeay::CTX\")
13
14T_SSLOBJ
15        if (sv_derived_from($arg, \"Crypt::SSLeay::Conn\")) {
16            IV stack_top = SvIV((SV*)SvRV($arg));
17            $var = INT2PTR($type, stack_top);
18        }
19        else
20            croak(\"$var is not an Crypt::SSLeay::Conn\")
21
22T_X509OBJ
23        if (sv_derived_from($arg, \"Crypt::SSLeay::X509\")) {
24            IV stack_top = SvIV((SV*)SvRV($arg));
25            $var = INT2PTR($type, stack_top);
26        }
27        else
28            croak(\"$var is not an Crypt::SSLeay::X509\")
29
30OUTPUT
31T_CTXOBJ
32        sv_setref_pv($arg, \"Crypt::SSLeay::CTX\", (void*)$var);
33
34T_SSLOBJ
35        sv_setref_pv($arg, \"Crypt::SSLeay::Conn\", (void*)$var);
36
37T_X509OBJ
38        sv_setref_pv($arg, \"Crypt::SSLeay::X509\", (void*)$var);
39