Added HTML::Mason

ray1729 · Oct 1, 2009 · 13bd46c · 13bd46c
1 parent 37dd970
commit 13bd46c
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/eg/dot-psgi/frameworks/HTML-Mason.psgi b/eg/dot-psgi/frameworks/HTML-Mason.psgi
@@ -0,0 +1,8 @@
+use HTML::Mason::PSGIHandler;
+use HTTP::Response;
+
+my $h = HTML::Mason::PSGIHandler->new(
+    comp_root => $ENV{DOCUMENT_ROOT} || "$ENV{HOME}/Sites",
+);
+
+my $handler = sub { $h->handle_psgi(@_) };