[nethack-naodash.git] / app.psgi

#!/usr/bin/perl
use 5.014000;
use warnings;

use App::Web::NAOdash;
use Plack::Builder;

builder {
	mount '/dash/' => App::Web::NAOdash->new->to_app;
	mount '/json/' => App::Web::NAOdash->new(json => 1)->to_app;
	mount '/ok' => sub { [200, [], []] };
	mount '/' => sub { App::Web::NAOdash::reply(404, 'Try /dash/USERNAME or /json/USERNAME')};
}
Commit	Line	Data
01ba3ddc MG	1	#!/usr/bin/perl
	2	use 5.014000;
	3	use warnings;
	4
	5	use App::Web::NAOdash;
	6	use Plack::Builder;
	7
	8	builder {
	9	mount '/dash/' => App::Web::NAOdash->new->to_app;
	10	mount '/json/' => App::Web::NAOdash->new(json => 1)->to_app;
	11	mount '/ok' => sub { [200, [], []] };
	12	mount '/' => sub { App::Web::NAOdash::reply(404, 'Try /dash/USERNAME or /json/USERNAME')};
	13	}