add 15interactivity to HTML and tweak it

Author: stmuk

categories/cookbook/15interactivity/15-01-parse-program-args.pl

@@ -10,18 +10,10 @@
 
 =end pod
 
-# output is required parameter
-sub MAIN (Str :$output!, Bool :$debug = False )  {
-    say @*ARGS.perl; # direct way
-    say :$output.perl, :$debug.perl; # better way
+#| open file, whatever
+sub MAIN (Str :$output!, Bool :$debug = False )  { # False can be ommitted
+    warn "debugging" if $debug;
+    dd $output;
 }
 
-# %  perl6 15-01-parse-program-args.pl             
-# Usage:
-#   15-01-parse-program-args.pl --output=<Str> [--debug] 
-
-# %  perl6 15-01-parse-program-args.pl --output=foo
-# Array.new("--output=foo")
-# "output" => "foo""debug" => Bool::False
-
 # vim: expandtab shiftwidth=4 ft=perl6

categories/cookbook/15interactivity/15-02-test-interactive-program.pl

@@ -11,7 +11,10 @@
 
 =end pod
 
+# this doesn't currently (Aug 2015) work on MoarVM since
+# isatty isn't implemented
 # https://rt.perl.org/Ticket/Display.html?id=123347 
+#
 sub I-am-interactive {
     return  $*IN.t && -t $*OUT.t;
 }

categories/cookbook/15interactivity/15-03-clear-screen.pl

@@ -8,7 +8,8 @@
 
 =end pod
 
-# TODO fix on windows
+# TODO check on windows
+# TODO control code sequence probably better
 
 shell "clear";
 

htmlify.pl

@@ -53,6 +53,7 @@ (:$no-highlight = False)
         "10subroutines"              => "10. Subroutines",
         "13classes-objects-and-ties" => "13. Classes, Objects and Ties",
         "14database-access"          => "14. Database Access",
+        "15interactivity"            => "15. Interactivity",
         "16processes"                => "16. Processes",
         "17sockets"                  => "17. Sockets",
         "19cgi-programming"          => "19. CGI programming",