#!/usr/bin/env perl use strict; use warnings; use lib '/Users/ask/src/ntppool/lib'; use NP::Tracing; use Plack::Builder; my $body = join '', ; 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__ Few words about Plack and PSGI

Hello World!