introduce Perl6::Documentable::Registry, and start to populate it. No way to retrieve those objects yet

Author: moritz

htmlify.pl

@@ -9,6 +9,7 @@
 use lib 'lib';
 use Perl6::TypeGraph;
 use Perl6::TypeGraph::Viz;
+use Perl6::Documentable::Registry;
 
 sub url-munge($_) {
     return $_ if m{^ <[a..z]>+ '://'};
@@ -88,6 +89,7 @@ (Bool :$debug, Bool :$typegraph = False)
     }
     say "... done";
 
+    my $dr = Perl6::Documentable::Registry.new;
 
     for (@source) {
         my $podname  = .key;
@@ -110,21 +112,35 @@ (Bool :$debug, Bool :$typegraph = False)
                     next unless $heading ~~ / ^ [in | pre | post | circum | postcircum ] fix /;
                     my $what = ~$/;
                     my $operator = $heading.split(' ', 2)[1];
+                    $dr.add-new(
+                        :kind<operator>,
+                        :subkind($what),
+                        :pod($chunk),
+                        :!pod-is-complete,
+                        :name($operator),
+                    );
                     %names{$operator}{$what} = "/language/operators#$what%20" ~ uri_escape($operator);
                     if %operators{$what}{$operator} {
                         die "Operator $what $operator defined twice in lib/operators.pod";
                     }
                     %operators{$what}{$operator} = $chunk;
                 }
             }
+            $dr.add-new(
+                :kind<language>,
+                :name($podname),
+                :$pod,
+                :pod-is-complete,
+            );
+
             next;
         }
         $pod = $pod[0];
 
         say pod-gist($pod) if $*DEBUG;
         my @chunks = chunks-grep($pod.content,
                 :from({ $_ ~~ Pod::Heading and .level == 2}),
-                :to({ $^b ~~ Pod::Heading and $^b.level <= $^a.level}),
+                :to({  $^b ~~ Pod::Heading and $^b.level <= $^a.level}),
             );
         for @chunks -> $chunk {
             my $name = $chunk[0].content[0].content[0];

lib/Perl6/Documentable.pm

@@ -10,6 +10,8 @@ class Perl6::Documentable {
     method human-kind() {   # SCNR
         $.kind eq 'operator'
             ?? "$.subkind operator"
+            !! $.kind eq 'language'
+            ?? 'language documentation'
             !! $.subkind // $.kind;
     }
 

lib/Perl6/Documentable/Registry.pm

@@ -0,0 +1,10 @@
+use v6;
+use Perl6::Documentable;
+
+class Perl6::Documentable::Registry {
+    has @!documentables;
+    method add-new(*%args) {
+        @!documentables.push: Perl6::Documentable.new(|%args);
+        1;
+    }
+}