003';
use Digest::SHA qw/sha256_base64/;
use File::Slurp;
use HTML::TreeBuilder;
use JSON::MaybeXS qw/encode_json/;
use NetHack::NAOdash qw/naodash_user/;
use Plack::Request;
my ($dash, $css, $css_h
sh_user \%args, $name } or return reply 500, $@;
return reply 200, encode_json($result), 'application/json' if $self->{json};
return reply 200, make_html($name, $req->query_string, $result), 'text/
r;
builder {
mount '/dash/' => App::Web::NAOdash->new->to_app;
mount '/json/' => App::Web::NAOdash->new(json => 1)->to_app;
...
}
=head1 DESCRIPTION
App::Web::NAOdash is a web inter