IO::Socket::SSL prototype added

lib/IO/Socket/SSL.pm6

@@ -27,8 +27,12 @@ has Str $.input-line-separator is rw = "\n";
 has Int $.ins = 0;
 
 has int32 $.fd;
+has OpenSSL::SSL_CTX $.ctx;
+has OpenSSL::SSL $.ssl;
 
-method new() { ... }
+method new() {
+    ...
+}
 
 method !initialize {
     if $.host && $.port {
@@ -37,10 +41,22 @@ method !initialize {
 
         if $.fd > 0 {
             # do some SSL here
+            OpenSSL::SSL_library_init();
+            OpenSSL::SSL_load_error_strings();
+            $.ctx = OpenSSL::SSL_CTX_new( OpenSSL::SSLv23_client_method() );
+            $.ssl = OpenSSL::SSL_new($.ctx);
+            OpenSSL::SSL_set_connect_state($.ssl);
+            OpenSSL::SSL_set_fd($.ssl, $.fd);
+            OpenSSL::SSL_connect($.ssl);
         }
     }
     self;
 }
 
-method recv() { ... }
-method send() { ... }
+method recv() {
+    ...
+}
+
+method send() {
+    ...
+}