[catagits/HTTP-Request-AsCGI.git] / examples / synopsis.pl

#!/usr/bin/perl

use strict;
use warnings;

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;

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

while ( my $line = $stdout->getline ) {
    print $line;
}
Commit	Line	Data
3cdea3c7	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use CGI;
	7	use HTTP::Request;
	8	use HTTP::Request::AsCGI;
	9
	10	my $request = HTTP::Request->new( GET => 'http://www.host.com/' );
	11	my $stdout;
	12
	13	{
	14	my $c = HTTP::Request::AsCGI->new($request)->setup;
	15	my $q = CGI->new;
	16
	17	print $q->header,
	18	$q->start_html('Hello World'),
	19	$q->h1('Hello World'),
	20	$q->end_html;
	21
	22	$stdout = $c->stdout;
	23
b332ee65	24	# enviroment and descriptors will automatically be restored when $c is destructed.
3cdea3c7	25	}
	26
	27	while ( my $line = $stdout->getline ) {
	28	print $line;
	29	}