HTTP::Request::AsCGI - Set up a CGI environment from an HTTP::Request

       Christian Hansen <ch@ngmedia.com> Hans Dieter Pearcey <hdp@cpan.org>

       This software is copyright (c) 2010 by Christian Hansen <ch@ngmedia.com>.

       This is free software; you can redistribute it and/or modify it under  the  same  terms  as  the  Perl  5
       programming language system itself.

perl v5.40.1                                       2025-02-18                          HTTP::Request::AsCGI(3pm)

       Provides a convenient way of setting up an CGI environment from an HTTP::Request.

       new ( $request [, key => value ] )
           Constructor.   The  first argument must be a instance of HTTP::Request, followed by optional pairs of
           environment key and value.

       environment
           Returns a hashref containing the environment that will be used in setup.  Changing the hashref  after
           setup has been called will have no effect.

       setup
           Sets up the environment and descriptors.

       restore
           Restores the environment and descriptors. Can only be called after setup.

       request
           Returns the request given to constructor.

       response
           Returns a HTTP::Response. Can only be called after restore.

       stdin
           Accessor  for  handle  that  will  be  used  for  STDIN,  must be a real seekable handle with an file
           descriptor. Defaults to a tempoary IO::File instance.

       stdout
           Accessor for handle that will be used for STDOUT, must  be  a  real  seekable  handle  with  an  file
           descriptor. Defaults to a tempoary IO::File instance.

       stderr
           Accessor  for  handle  that  will  be  used  for  STDERR, must be a real seekable handle with an file
           descriptor.

       HTTP::Request::AsCGI - Set up a CGI environment from an HTTP::Request

       examples directory in this distribution.
       WWW::Mechanize::CGI
       Test::WWW::Mechanize::CGI

           use CGI;
           use HTTP::Request;
           use HTTP::Request::AsCGI;

           my $request = HTTP::Request->new( GET => 'http://www.host.com/' );
           my $stdout;

           {
               my $c = HTTP::Request::AsCGI->new($request)->setup;
               my $q = CGI->new;

               print $q->header,
                     $q->start_html('Hello World'),
                     $q->h1('Hello World'),
                     $q->end_html;

               $stdout = $c->stdout;

               # environment and descriptors will automatically be restored
               # when $c is destructed.
           }

           while ( my $line = $stdout->getline ) {
               print $line;
           }

       Thomas L. Shinnick for his valuable win32 testing.

       version 1.2