},
},
sub (/**/) {
- $self->structure(split '/', $_[1]);
+ $self->structure(map {
+ s{\\/}{/}g;
+ s{\\\\}{\\}g;
+ $_;
+ } split qr{(?<!\\)/}, $_[1]);
},
}
sub link_to {
my ($self, @to) = @_;
use HTML::Tags;
- my @link = map uri_escape(uri_escape($_)), @to;
+ my @link = map {
+ my $link = $_;
+ $link =~ s{\\}{\\\\}g;
+ $link =~ s{/}{\\/}g;
+ $link;
+ } @to;
my $link = join('/', @link, '');
my $to = $to[-1];
my $html = join '', HTML::Tags::to_html_string(
- <a href="${link}">, "Explore $to", </a>
+ <a href="./${link}">, "Explore $to", </a>
);
return \$html;
}
$target = $self->json->decode(scalar $target->all);
}
return $target unless @path;
- my $step = uri_unescape(uri_unescape( shift @path));
+ my $step = shift @path;
$self->descend($target->{$step}, @path);
}
<html>, <body>, "\n",
($data->{wrapper}||sub{@_})->(
'', <table>, "\n",
- (map { my $el = $_;
- ' ', ($el->{key} eq '__error__') ? <tr class="error"> : <tr>,
- (map {
- <td>, $self->render_el($el, $_, $el->{$_}), </td>
- } @{$data->{columns}}),
- </tr>, "\n"
- } @rows),
+ @rows
+ ? (map { my $el = $_;
+ ' ', ($el->{key} eq '__error__') ? <tr class="error"> : <tr>,
+ (map {
+ <td>, $self->render_el($el, $_, $el->{$_}), </td>
+ } @{$data->{columns}}),
+ </tr>, "\n"
+ } @rows)
+ : (<tr class="no-rows">,
+ <td>, 'No entries in this data structure', </td>,
+ </tr>),
'', </table>, "\n",
),
</body>, </html>, "\n",
sub render_el {
my ($self, $whole, $key, $part) = @_;
if (ref($part) eq 'ARRAY') {
- if ($key eq 'entries') {
- if (grep { ref($_) eq 'HASH' } @$part) {
+ if (grep { ref($_) eq 'HASH' } @$part) {
+ if ($whole->{key}) {
+ return $self->link_to($whole->{key})
+ } elsif ($whole->{name}) {
return $self->link_to($whole->{name}, $key);
}
}
- return join(', ', @$part);
+ return join ', ', @$part
+ if @$part < 5;
+ use HTML::Tags;
+ return <ul>, (map { (<li>, $_, </li>) } @$part), </ul>;
}
if (ref($part) eq 'HASH') {
if ($whole->{key}) {