Commit | Line | Data |
2d51e42f |
1 | NAME |
2 | HTTP::Request::AsCGI - Setup a CGI enviroment from a HTTP::Request |
3 | |
005ca024 |
4 | VERSION |
5 | 0.5_02 |
6 | |
2d51e42f |
7 | SYNOPSIS |
8 | use CGI; |
9 | use HTTP::Request; |
10 | use HTTP::Request::AsCGI; |
11 | |
12 | my $request = HTTP::Request->new( GET => 'http://www.host.com/' ); |
13 | my $stdout; |
14 | |
15 | { |
16 | my $c = HTTP::Request::AsCGI->new($request)->setup; |
17 | my $q = CGI->new; |
18 | |
19 | print $q->header, |
20 | $q->start_html('Hello World'), |
21 | $q->h1('Hello World'), |
22 | $q->end_html; |
23 | |
24 | $stdout = $c->stdout; |
25 | |
26 | # enviroment and descriptors will automatically be restored |
27 | # when $c is destructed. |
28 | } |
29 | |
30 | while ( my $line = $stdout->getline ) { |
31 | print $line; |
32 | } |
33 | |
34 | DESCRIPTION |
35 | Provides a convinient way of setting up an CGI enviroment from a |
36 | HTTP::Request. |
37 | |
38 | METHODS |
39 | new ( $request [, key => value ] ) |
40 | Contructor, first argument must be a instance of HTTP::Request |
7bbffdcb |
41 | followed by optional pairs of environment key and value. |
2d51e42f |
42 | |
43 | enviroment |
44 | Returns a hashref containing the environment that will be used in |
45 | setup. Changing the hashref after setup has been called will have no |
46 | effect. |
47 | |
48 | setup |
49 | Setups the environment and descriptors. |
50 | |
51 | restore |
52 | Restores the enviroment and descriptors. Can only be called after |
53 | setup. |
54 | |
55 | request |
56 | Returns the request given to constructor. |
57 | |
58 | response |
59 | Returns a HTTP::Response. Can only be called after restore. |
60 | |
61 | stdin |
62 | Accessor for handle that will be used for STDIN, must be a real |
63 | seekable handle with an file descriptor. Defaults to a tempoary |
64 | IO::File instance. |
65 | |
66 | stdout |
67 | Accessor for handle that will be used for STDOUT, must be a real |
68 | seekable handle with an file descriptor. Defaults to a tempoary |
69 | IO::File instance. |
70 | |
71 | stderr |
72 | Accessor for handle that will be used for STDERR, must be a real |
73 | seekable handle with an file descriptor. |
74 | |
7bbffdcb |
75 | SEE ALSO |
76 | examples directory in this distribution. |
77 | WWW::Mechanize::CGI |
78 | Test::WWW::Mechanize::CGI |
79 | |
2d51e42f |
80 | THANKS TO |
81 | Thomas L. Shinnick for his valuable win32 testing. |
82 | |
83 | AUTHOR |
84 | Christian Hansen, "ch@ngmedia.com" |
85 | |
86 | LICENSE |
87 | This library is free software. You can redistribute it and/or modify it |
88 | under the same terms as perl itself. |
89 | |