git.sesse.net Git - pr0n/blob - 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 }