ref($_[0][0]) eq 'HASH' ? $self->render_table($_[0][0]) : $_[0]
}
},
+ sub (/) {
+ [ $self->structure($self->root) ];
+ },
sub (/**/) {
- $self->structure($self->descend($self->root, split '/', $_[1]));
+ [ $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,
- } ];
+ 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 ],
+ };
+ } elsif (blessed($data) and $data->isa('IO::All::Dir')) {
+ return {
+ columns => [ 'name', 'explore' ],
+ data => [
+ map +{ name => $_, explore => $self->link_to($_) }, keys %$data,
+ ]
+ };
} else {
die "Confused by $data";
}
}
+sub link_to {
+ my ($self, $to) = @_;
+ use HTML::Tags;
+ my $html = join '', HTML::Tags::to_html_string(
+ <a href="${to}/">, "Explore $to", </a>
+ );
+ return \$html;
+}
+
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);
+ return $target unless @path;
+ my $step = shift @path;
+ $self->descend($target->{$step}, @path);
}
sub render_table {
my ($self, $data) = @_;
use HTML::Tags;
my @rows = (
- $data->{columns},
- map [ @{$_}{@{$data->{columns}}} ], @{$data->{data}}
+ $data->{show_columns} ? { map +($_ => $_), @{$data->{columns}} } : (),
+ @{$data->{data}}
);
[ 200, [ 'Content-type' => 'text/html' ], [
HTML::Tags::to_html_string(
<html>, <body>, "\n",
<table>, "\n",
- (map {;
- ' ', <tr>, (map { <td>, $_, </td> } @$_), </tr>, "\n"
+ (map { my $el = $_;
+ ' ', <tr>,
+ (map {
+ <td>, $self->render_el($el, $_), </td>
+ } @{$el}{@{$data->{columns}}}),
+ </tr>, "\n"
} @rows),
</table>, "\n",
</body>, </html>, "\n",
] ];
}
+sub render_el {
+ my ($self, $whole, $part) = @_;
+ if (ref($part) eq 'ARRAY') {
+ return join(', ', @$part);
+ }
+ if (ref($part) eq 'HASH') {
+ return $self->link_to($whole->{key});
+ }
+ return $part;
+}
+
__PACKAGE__->run_if_script;