app.psgi 468 Bytes
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 
#!/usr/bin/perl
use strict;
use warnings;
use CoprStatus;
use Plack::Builder;
use Plack::Request;

my $app = sub {
  my $env = shift;

  my $request = Plack::Request->new($env);
  my $route = $CoprStatus::ROUTING{$request->path_info};
  if ($route) {
    return $route->($env);
  }
  return [
    '404',
    [ 'Content-Type' => 'text/html' ],
    [ '404 Not Found' ],
    ];
};

builder {
    enable "Static", path => qr!^(/css|/js)!, pass_through => 1;
      $app;
}