IO::Socket::Async server example using heredoc

Jarkko Haapalainen · Jarkko Haapalainen · commit 5a49f8b0e600 · 2017-10-25T18:12:12.000+03:00
and maybe more clearer for newcomers
diff --git a/doc/Type/IO/Socket/Async.pod6 b/doc/Type/IO/Socket/Async.pod6
@@ -15,23 +15,28 @@ 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
 
