view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/Plack/Handler/FCGI/Async.pm
LICENSE
Makefile.PL
MANIFEST			This list of files
META.yml
README
t/00use.t
t/01test.t
t/02fcgi-async.t
t/03psgi.t
t/04psgi-streaming.t
t/99pod.t
t/lib/TestFCGI.pm

lib/FCGI/Async/PSGI.pm  view on Meta::CPAN

   my %env = (
      %{ $req->params },
      'psgi.version'      => [1,0],
      'psgi.url_scheme'   => ($req->param("HTTPS")||"off") =~ m/^(?:on|1)/i ? "https" : "http",
      'psgi.input'        => $req->stdin,
      'psgi.errors'       => $req->stderr,
      'psgi.multithread'  => 0,
      'psgi.multiprocess' => 0,
      'psgi.run_once'     => 0,
      'psgi.nonblocking'  => 1,
      'psgi.streaming'    => 1,

      # Extensions
      'fcgi.async'      => $self,
      'fcgi.async.req'  => $req,
      'fcgi.async.loop' => $self->get_loop,
      'io.async.loop'   => $self->get_loop,
   );

   my $resp = $self->{app}->( \%env );

t/03psgi.t  view on Meta::CPAN

      SCRIPT_NAME     => "",
      SERVER_NAME     => "localhost",
      SERVER_PORT     => "80",
      SERVER_PROTOCOL => "HTTP/1.1",

      'psgi.version'      => [1,0],
      'psgi.url_scheme'   => "http",
      'psgi.run_once'     => 0,
      'psgi.multiprocess' => 0,
      'psgi.multithread'  => 0,
      'psgi.streaming'    => 1,
      'psgi.nonblocking'  => 1,
   },
   'received $env in PSGI app' );

my $CRLF = "\x0d\x0a";
my $expect_stdout = join( "", map "$_$CRLF",
      "Status: 200",
      "Content-Type: text/plain",
      '' ) .
   "Hello, world";