[cookbook] pass dir to process as command line arg

Raku · Jun 19, 2015 · 1fea69c · 1fea69c
1 parent ae590ca
commit 1fea69c
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/categories/cookbook/09directories/09-05-all-files-dir.pl b/categories/cookbook/09directories/09-05-all-files-dir.pl
@@ -10,8 +10,11 @@
 
 =end pod
 
-for dir(".") -> $f {
-    say $f.perl;
+sub MAIN(:$dir = ".") {
+    # print Perl's representation of each file
+    for dir($dir) -> $f {
+        say $f.perl;
+    }
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6