add builder.psgi example

stash · Nov 11, 2010 · b8d6951 · b8d6951
1 parent 1875a40
commit b8d6951
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/builder.psgi b/builder.psgi
@@ -0,0 +1,17 @@
+use warnings;
+use strict;
+use Plack::Builder;
+use Plack::App::File;
+my $proc_req = 0;
+my $my_app = sub {
+    return [
+        200,['Content-Type'=>'text/html'],
+        ['<html><head><title>ohai</title></head><body>o hai ',$proc_req++,'</body></html>']
+    ];
+};
+builder {
+    enable "Debug", panels => [qw(Memory)];
+    mount "/static" => Plack::App::File->new(root=>'htdocs/');
+    mount "/favicon.ico" => sub { [200,[],['']] };
+    mount "/" => $my_app;
+};