Add a util for generating a stub doc for a new type

Author: moritz

util/new-type.p6

@@ -0,0 +1,40 @@
+use v6;
+
+sub MAIN($typename, :$kind='class') {
+    my @path-chunks =  $typename.split('::');
+    my $filename = @path-chunks.pop ~ '.pod';
+    my $path = 'lib/Type';
+    for @path-chunks -> $c {
+        $path ~= "/$c";
+        unless $path.IO.d {
+            mkdir $path.IO.mkdir;
+        }
+    }
+
+    $path ~= "/$filename";
+
+    spurt $path.IO, Q:s:to/TEMPLATE/;
+        =begin pod
+
+        =TITLE $kind $typename
+
+        =SUBTITLE ...
+
+            $kind $typename is SuperClass { ... }
+
+        Synopsis goes here
+
+        =head1 Methods
+
+        =head2 method flurb
+
+            method flurb($typename:D: *@args --> Str)
+
+        method description here
+
+        =end pod
+        TEMPLATE
+
+    say "'$path' written";
+    say "(remeber to 'git add $path')";
+}