#!/usr/bin/env perl
use strict;
use warnings;
use lib '/Users/ask/src/ntppool/lib';
use NP::Tracing;
use Plack::Builder;
my $body = join '', <DATA>;
my $app = sub {
my $self = shift;
warn "REQ: $self->{REQUEST_URI}";
if ( $self->{REQUEST_URI} eq "/slow") { sleep 10 }
return [200, ['Content-Type' => 'text/html'], [ $body ]];
};
builder {
# Precious debug info. Right on your page!
enable 'Debug';
# Make Plack middleware render some static for you
enable "Static",
path => qr{\.(?:js|css|jpe?g|gif|ico|png|html?|swf|txt)$},
root => './htdocs';
# Let Plack care about length header
enable "ContentLength";
$app;
}
__DATA__
<!doctype html>
<html>
<head>
<title>Few words about Plack and PSGI</title>
</head>
<body>
<h1>Hello World!</h1>
</body>
</html>