Commit | Line | Data |
---|---|---|
111728e3 | 1 | package Catalyst::Engine::Apache::MP13; |
479d2af4 | 2 | |
3 | use strict; | |
316bf0f0 | 4 | use base qw[Catalyst::Engine::Apache::MP13::Base Catalyst::Engine::CGI]; |
479d2af4 | 5 | |
6 | =head1 NAME | |
7 | ||
329a7e51 | 8 | Catalyst::Engine::Apache::MP13 - Catalyst Apache MP13 Engine |
479d2af4 | 9 | |
10 | =head1 SYNOPSIS | |
11 | ||
12 | See L<Catalyst>. | |
13 | ||
14 | =head1 DESCRIPTION | |
15 | ||
06e1b616 | 16 | This is the Catalyst engine specialized for Apache mod_perl version 1.3x. |
479d2af4 | 17 | |
18 | =head1 OVERLOADED METHODS | |
19 | ||
316bf0f0 | 20 | This class overloads some methods from C<Catalyst::Engine::Apache::MP13::Base> |
21 | and C<Catalyst::Engine::CGI>. | |
479d2af4 | 22 | |
23 | =over 4 | |
24 | ||
316bf0f0 | 25 | =item $c->prepare_body |
e7c0c583 | 26 | |
27 | =cut | |
28 | ||
316bf0f0 | 29 | sub prepare_body { |
30 | shift->Catalyst::Engine::CGI::prepare_body(@_); | |
e7c0c583 | 31 | } |
32 | ||
316bf0f0 | 33 | =item $c->prepare_parameters |
479d2af4 | 34 | |
e7c0c583 | 35 | =cut |
36 | ||
316bf0f0 | 37 | sub prepare_parameters { |
38 | shift->Catalyst::Engine::CGI::prepare_parameters(@_); | |
e7c0c583 | 39 | } |
40 | ||
316bf0f0 | 41 | =item $c->prepare_request |
329a7e51 | 42 | |
43 | =cut | |
44 | ||
45 | sub prepare_request { | |
316bf0f0 | 46 | my ( $c, $r, @arguments ) = @_; |
47 | ||
48 | $ENV{CONTENT_TYPE} = $r->header_in("Content-Type"); | |
49 | $ENV{CONTENT_LENGTH} = $r->header_in("Content-Length"); | |
50 | $ENV{QUERY_STRING} = $r->args; | |
51 | $ENV{REQUEST_METHOD} = $r->method; | |
52 | ||
53 | $c->SUPER::prepare_request($r); | |
54 | $c->Catalyst::Engine::CGI::prepare_request( $r, @arguments ); | |
329a7e51 | 55 | } |
56 | ||
e7c0c583 | 57 | =item $c->prepare_uploads |
58 | ||
59 | =cut | |
60 | ||
316bf0f0 | 61 | sub prepare_uploads { |
62 | shift->Catalyst::Engine::CGI::prepare_uploads(@_); | |
e7c0c583 | 63 | } |
64 | ||
479d2af4 | 65 | =back |
66 | ||
67 | =head1 SEE ALSO | |
68 | ||
c2e8e6fa | 69 | L<Catalyst>, L<Catalyst::Engine>, L<Catalyst::Engine::Apache::Base>. |
479d2af4 | 70 | |
71 | =head1 AUTHOR | |
72 | ||
73 | Sebastian Riedel, C<sri@cpan.org> | |
329a7e51 | 74 | Christian Hansen C<ch@ngmedia.com> |
479d2af4 | 75 | |
76 | =head1 COPYRIGHT | |
77 | ||
78 | This program is free software, you can redistribute it and/or modify it under | |
79 | the same terms as Perl itself. | |
80 | ||
81 | =cut | |
82 | ||
83 | 1; |