view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.11  Thu Feb  4 12:16:58 PST 2010
        - Changed the API to work just like HTTP::Server::Simple::PSGI
        - Moved the code to adapt to Plack::Handler interface to Plack core

0.10  Thu Feb  4 10:38:06 PST 2010
        - Renamed the distribution to HTTP::Server::Simple::PSGI
        - Dropped Plack and LWP dependencies

0.03  Tue Jan  5 05:22:04 PST 2010
        - Added psgi.streaming support (rafl)

0.02  Mon Oct 19 19:31:35 PDT 2009
        - Bump up HTTP::Server::Simple req to fix the multi header bug

0.01  Mon Oct 12 23:57:08 2009
        - original version

lib/HTTP/Server/Simple/PSGI.pm  view on Meta::CPAN

        SERVER_PROTOCOL => $ENV{SERVER_PROTOCOL},
        REMOTE_ADDR     => $ENV{REMOTE_ADDR},
        HTTP_COOKIE     => $ENV{COOKIE}, # HTTP::Server::Simple bug
        'psgi.version'    => [1,1],
        'psgi.url_scheme' => 'http',
        'psgi.input'      => $self->stdin_handle,
        'psgi.errors'     => *STDERR,
        'psgi.multithread'  => 0,
        'psgi.multiprocess' => 0,
        'psgi.run_once'     => 0,
        'psgi.streaming'    => 1,
        'psgi.nonblocking'  => 0,
        'psgix.io'          => $self->stdio_handle,
    };

    while (my ($k, $v) = each %ENV) {
        $env->{$k} = $v if $k =~ /^HTTP_/;
    }

    my $res = eval { $self->{psgi_app}->($env) }
        || [ 500, [ 'Content-Type', 'text/plain' ], [ "Internal Server Error" ] ];