Move from mod_perl to being a PSGI app.
[pr0n] / perl / pr0n.psgi
1 #! /usr/bin/perl
2
3 use strict;
4 use warnings;
5 use lib qw(.);
6
7 use Plack::Request;
8 use Plack::Response;
9 use Sesse::pr0n::pr0n;
10
11 sub {
12         my $env = shift;
13         my $req = Plack::Request->new($env);
14         my $res = Sesse::pr0n::pr0n::handler($req);
15         return $res->finalize;
16 }