X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=br.pl;h=0bb29b6e2003a9a2103070386b153731a185e1e3;hb=a6694990cb6556bfcd42988e88e9e5fe5b8f46d4;hp=8f7a4369a26e5da2e7e6021f3fc6bb0869dc4833;hpb=2ff9773be4f6c4684628fa14a0a56fabd7c49760;p=scpubgit%2FJSON-Tree-Viewer.git

diff --git a/br.pl b/br.pl
index 8f7a436..0bb29b6 100644
--- a/br.pl
+++ b/br.pl
@@ -35,6 +35,19 @@ sub dispatch_request {
 sub structure {
   my ($self, $data) = @_;
   if (ref($data) eq 'HASH') {
+    if (keys %$data > 1
+        and values %$data == grep ref($_) eq 'HASH', values %$data) {
+      my %tmp;
+      $tmp{join '|', keys %$_} = 1 for values %$data;
+      if (keys %tmp == 1) {
+        $data->{$_}->{name} ||= $_ for keys %$data;
+        return {
+          columns => [ sort keys %{(values %$data)[0]} ],
+          show_columns => 1,
+          data => [ @{$data}{sort keys %$data} ],
+        }
+      }
+    }
     return {
       columns => [ 'key', 'value' ],
       data => [ map +{ key => $_, value => $data->{$_} }, sort keys %$data ],