Fixed server and client examples for IO::Socket::Async (#1628)

Jarkko Haapalainen · zoffixznet · commit 7679a0cef167 · 2017-10-25T15:04:19.000-04:00
* IO::Socket::Async server example using heredoc

and maybe more clearer for newcomers

* IO::Socket::Async client example tweaks

Couple of tweaks:
- There are issues with libuv when it defaults ipv6 when using localhost name. We can workaround that just using 127.0.0.1 instead of localhost name.
- Added newline for print
diff --git a/doc/Type/IO/Socket/Async.pod6 b/doc/Type/IO/Socket/Async.pod6
@@ -15,35 +15,40 @@ http server that listens on port 3333:
 =begin code :skip-test<IO>
 react {
     whenever IO::Socket::Async.listen('0.0.0.0', 3333) -> $conn {
-        whenever $conn.Supply.lines {
-            say .Str;
-
-            { try $conn.print(.Str ~ "\n") } for
-            "HTTP/1.1 200 OK",
-            "Content-Type: text/html; charset=UTF-8",
-            "Content-Encoding: UTF-8",
-            "",
-            "<html><body>Hello World!</body></html>";
-
+        whenever $conn.Supply.lines -> $line {
+            $conn.print: qq:heredoc/END/;
+                HTTP/1.1 200 OK
+                Content-Type: text/html; charset=UTF-8
+                Content-Encoding: UTF-8
+
+                <html>
+                <body>
+                    <h1>Hello World!</h1>
+                    <p>{ $line }</p>
+                </body>
+                </html>
+                END
             $conn.close;
         }
-        CLOSE {
-            note „{now} connection closed“;
+    }
+    CATCH {
+        default {
+            say .^name, ': ', .Str;
+            say "handled in $?LINE";
         }
     }
-    CATCH { default { say .^name, ': ', .Str; say "handled in $?LINE"; } }
 }
 =end code
 
 And a client that connects to it, and prints out what the server answers:
 
 =begin code
-await IO::Socket::Async.connect('localhost', 3333).then( -> $promise {
+await IO::Socket::Async.connect('127.0.0.1', 3333).then( -> $promise {
     given $promise.result {
-        .print('Hello, Perl 6');
+        .print("Lorem ipsum dolor sit amet, consectetur adipiscing elit.\n");
         react {
             whenever .Supply() -> $v {
-                $v.say;
+                $v.print;
                 done;
             }
         }
