arrays as hash value data

[scpubgit/JSON-Tree-Viewer.git] / br.pl

diff --git a/br.pl b/br.pl
index 88de96b..8f29ef2 100644 (file)
--- a/br.pl
+++ b/br.pl
@@ -11,7 +11,7 @@ has root => (is => 'lazy');
 has json => (is => 'lazy');
 
 sub _build_root {
-  io->dir("/home/matthewt/tmp/introspection-data/host/services-dev/stable/node/host/")
+  io->dir( $ENV{JTV_ROOT} || die "JTV_ROOT env var not set" )
 }
 
 sub _build_json {
@@ -128,6 +128,17 @@ sub mangle_structure {
       columns => [ 'key', 'value' ],
       data => [ map +{ key => $_, value => $data->{$_} }, sort keys %$data ],
     }];
+  } elsif (ref($data) eq 'ARRAY') {
+    if (not grep { not ref($_) eq 'HASH' } @$data) {
+      my %key;
+      $key{$_} = 1
+        for map { keys %$_ } @$data;
+      return [{
+        columns => [sort keys %key],
+        show_columns => 1,
+        data => $data,
+      }];
+    }
   } elsif (blessed($data) and $data->isa('IO::All::Dir')) {
     return [{
       columns => [ 'name', 'explore' ],
@@ -176,7 +187,7 @@ sub render_table {
       ($data->{wrapper}||sub{@_})->(
         '', <table>, "\n",
           (map { my $el = $_;
-            '  ', <tr>,
+            '  ', ($el->{key} eq '__error__') ? <tr class="error"> : <tr>,
               (map {
                 <td>, $self->render_el($el, $_, $el->{$_}), </td>
               } @{$data->{columns}}),
@@ -192,6 +203,11 @@ sub render_table {
 sub render_el {
   my ($self, $whole, $key, $part) = @_;
   if (ref($part) eq 'ARRAY') {
+    if ($key eq 'entries') {
+      if (grep { ref($_) eq 'HASH' } @$part) {
+        return $self->link_to($whole->{name}, $key);
+      }
+    }
     return join(', ', @$part);
   }
   if (ref($part) eq 'HASH') {