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 {
($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}}),