#!/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')};
}