app.psgi

   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 }