show dwarn

diff --git a/br.pl b/br.pl

index 604dc59..7751f0f 100644 (file)
--- a/br.pl
+++ b/br.pl
@@ -1,6 +1,21 @@
 package TB_Temp_Packname;
 
 use Web::Simple;
+use Scalar::Util qw(blessed);
+use IO::All;
+use JSON;
+
+has root => (is => 'lazy');
+
+has json => (is => 'lazy');
+
+sub _build_root {
+  io->dir("/home/matthewt/tmp/introspection-data/host/services-dev/stable/node/host/")
+}
+
+sub _build_json {
+  JSON->new->relaxed
+}
 
 sub dispatch_request {
   my ($self) = @_;
@@ -9,14 +24,31 @@ sub dispatch_request {
       ref($_[0][0]) eq 'HASH' ? $self->render_table($_[0][0]) : $_[0]
     }
   },
-  sub (/) {
-    return [{
-      columns => [ qw(one two three) ],
-      data => [
-        { one => 1, two => 2, three => 3 }
-      ],
-    }]
+  sub (/**/) {
+    $self->structure($self->descend($self->root, split '/', $_[1]));
+  },
+}
+
+sub structure {
+  my ($self, $data) = @_;
+  if (ref($data) eq 'ARRAY') {
+    my @cols = sort keys %{$data->[0]};
+    return [ {
+      columns => \@cols,
+      data => $data,
+    } ];
+  } else {
+    die "Confused by $data";
+  }
+}
+
+sub descend {
+  my ($self, $target, @path) = @_;
+  my $step = shift @path;
+  if (blessed($target) and $target->isa('IO::All::File')) {
+    $target = $self->json->decode(scalar $target->all);
   }
+  $self->descend(::Dwarn($target->{$step}), @path);
 }
 
 sub render_table {
@@ -28,11 +60,13 @@ sub render_table {
   );
   [ 200, [ 'Content-type' => 'text/html' ], [
     HTML::Tags::to_html_string(
+      <html>, <body>, "\n",
       <table>, "\n",
         (map {;
           '  ', <tr>, (map { <td>, $_, </td> } @$_), </tr>, "\n"
         } @rows),
       </table>, "\n",
+      </body>, </html>, "\n",
     )
   ] ];
 }