From 80e5249d544b318003078adbe5cee8d7543f2edd Mon Sep 17 00:00:00 2001
From: Maximilian Gass <mxey@ghosthacking.net>
Date: Mon, 30 May 2011 09:53:09 +0200
Subject: [PATCH] Add /static to PSGI app for easier testing

---
 app.psgi | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/app.psgi b/app.psgi
index 14b80b7..2cd35b6 100644
--- a/app.psgi
+++ b/app.psgi
@@ -5,6 +5,7 @@ use warnings;
 
 use Data::Random qw(rand_enum);
 use Plack::App::File;
+use Plack::Builder;
 use YAML::XS qw(LoadFile);
 use Template;
 
@@ -38,13 +39,16 @@ sub generate_genre {
   return join ' ', map { ucfirst } @genre;
 }
 
-my $app = sub {
-  my $genre = generate_genre();
-  my $out = '';
-  $template->process('index.tt', { genre => $genre }, \$out);
-  return [
-    200,
-    [ 'Content-Type' => 'text/html' ],
-    [ $out ]
-  ];
+builder {
+  mount '/static' => Plack::App::File->new(root => 'static')->to_app(),
+  mount '/' => sub {
+    my $genre = generate_genre();
+    my $out = '';
+    $template->process('index.tt', { genre => $genre }, \$out);
+    return [
+      200,
+      [ 'Content-Type' => 'text/html' ],
+      [ $out ]
+    ];
+  },
 }