Commit | Line | Data |
d1d9793f |
1 | package Catalyst::Engine::FastCGI::Base; |
c2e8e6fa |
2 | |
3 | use strict; |
e2fd5b5f |
4 | use base 'Catalyst::Engine::CGI::Base'; |
5 | |
c2e8e6fa |
6 | use FCGI; |
7 | |
e2fd5b5f |
8 | __PACKAGE__->mk_accessors('fastcgi'); |
9 | |
c2e8e6fa |
10 | =head1 NAME |
11 | |
d1d9793f |
12 | Catalyst::Engine::FastCGI::Base - Base class for FastCGI Engines |
c2e8e6fa |
13 | |
14 | =head1 DESCRIPTION |
15 | |
16 | This is a base class for FastCGI engines. |
17 | |
18 | =head1 METHODS |
19 | |
20 | =over 4 |
21 | |
e2fd5b5f |
22 | =item $c->fastcgi |
23 | |
24 | Contains the C<FCGI::Request> object. |
25 | |
26 | =back |
27 | |
28 | =head1 OVERLOADED METHODS |
29 | |
30 | This class overloads some methods from C<Catalyst::Engine::CGI::Base>. |
31 | |
32 | =over 4 |
33 | |
34 | =item $c->prepare_request |
35 | |
36 | =cut |
37 | |
38 | sub prepare_request { |
39 | my ( $c, $fastcgi ) = @_; |
40 | $c->fastcgi($fastcgi); |
41 | } |
42 | |
c2e8e6fa |
43 | =item $c->run |
44 | |
45 | =cut |
46 | |
47 | sub run { |
e2fd5b5f |
48 | my ( $class, @arguments ) = @_; |
49 | |
c2e8e6fa |
50 | my $request = FCGI::Request(); |
e2fd5b5f |
51 | |
52 | while ( $request->Accept >= 0 ) { |
53 | $class->handler( $request, @arguments ); |
c2e8e6fa |
54 | } |
55 | } |
56 | |
57 | =back |
58 | |
59 | =head1 SEE ALSO |
60 | |
e2fd5b5f |
61 | L<Catalyst>, L<FCGI>, L<Catalyst::Engine::CGI::Base>. |
c2e8e6fa |
62 | |
63 | =head1 AUTHOR |
64 | |
65 | Sebastian Riedel, C<sri@cpan.org> |
66 | Christian Hansen, C<ch@ngmedia.com> |
67 | |
68 | =head1 COPYRIGHT |
69 | |
70 | This program is free software, you can redistribute it and/or modify it under |
71 | the same terms as Perl itself. |
72 | |
73 | =cut |
74 | |
75 | 1; |