'p6doc -l' now lists some documents

bin/p6doc

@@ -81,6 +81,9 @@ multi sub MAIN() {
     say "          $me Str.split";
     say "          $me faq";
 
+    say "\nYou can list some top level documents:";
+    say "          $me -l";
+
     say "\nYou can also look up specific method/routine definitions:";
     say "          $me -f push";
 
@@ -100,6 +103,15 @@ multi sub MAIN($docee, Bool :$n) {
     show-docs(locate-module($docee), :no-pager($n));
 }
 
+multi sub MAIN(Bool :$l!) {
+    my @paths = search-paths() X~ <Type/ Language/> ;
+    for @paths -> $dir {
+        for dir($dir).sort -> $file {
+            say Str($file).IO.basename.subst('.pod','') if $file.IO.f;
+        }
+    }
+}
+
 multi sub MAIN($docee, Bool :$f!, Bool :$n) {
     my ($package, $method) = $docee.split('.');
     if ! $method {