1 package TB_Temp_Packname;
4 use Scalar::Util qw(blessed);
8 has root => (is => 'lazy');
10 has json => (is => 'lazy');
13 io->dir("/home/matthewt/tmp/introspection-data/host/services-dev/stable/node/host/")
17 JSON->new->relaxed->pretty
20 sub dispatch_request {
24 ref($_[0][0]) eq 'HASH' ? $self->render_table($_[0][0]) : $_[0]
28 [ $self->structure($self->root) ];
31 [ $self->structure($self->descend($self->root, split '/', $_[1])) ];
36 my ($self, $data) = @_;
38 if (ref($data) eq 'HASH') {
40 and values %$data == grep ref($_) eq 'HASH', values %$data) {
42 $tmp{join '|', keys %$_} = 1 for values %$data;
44 $data->{$_}->{name} ||= $_ for keys %$data;
45 my @cols = grep $_ ne 'name', sort keys %{(values %$data)[0]};
46 unshift @cols, 'name';
50 data => [ @{$data}{sort keys %$data} ],
55 columns => [ 'key', 'value' ],
56 data => [ map +{ key => $_, value => $data->{$_} }, sort keys %$data ],
58 } elsif (blessed($data) and $data->isa('IO::All::Dir')) {
60 columns => [ 'name', 'explore' ],
62 map +{ name => $_, explore => $self->link_to($_) }, keys %$data,
66 die "Confused by $data";
73 s/\//\./g for my @link = @to;
74 my $link = join('/', @link, '');
76 my $html = join '', HTML::Tags::to_html_string(
77 <a href="${link}">, "Explore $to", </a>
83 my ($self, $target, @path) = @_;
84 return unless $target;
85 if (blessed($target) and $target->isa('IO::All::File')) {
86 $target = $self->json->decode(scalar $target->all);
88 return $target unless @path;
89 (my $undot = my $step = shift @path) =~ s/\./\//g;
90 $self->descend($target->{$step}||$target->{$undot}, @path);
94 my ($self, $data) = @_;
97 $data->{show_columns} ? { map +($_ => $_), @{$data->{columns}} } : (),
100 [ 200, [ 'Content-type' => 'text/html' ], [
101 HTML::Tags::to_html_string(
102 <html>, <body>, "\n",
107 <td>, $self->render_el($el, $_), </td>
108 } @{$el}{@{$data->{columns}}}),
112 </body>, </html>, "\n",
118 my ($self, $whole, $key, $part) = @_;
119 if (ref($part) eq 'ARRAY') {
120 return join(', ', @$part);
122 if (ref($part) eq 'HASH') {
124 return $self->link_to($whole->{key})
125 } elsif ($whole->{name}) {
126 return $self->link_to($whole->{name}, $key);
131 return $part =~ /\n/ ? (<pre>, $part, </pre>) : $part;
134 __PACKAGE__->run_if_script;