lib/Catalyst/Engine/Apache/MP20.pm

   1 package Catalyst::Engine::Apache::MP20;
   2
   3 use strict;
   4 use base qw[Catalyst::Engine::Apache::MP20::Base Catalyst::Engine::CGI];
   5
   6 =head1 NAME
   7
   8 Catalyst::Engine::Apache::MP20 - Catalyst Apache MP20 Engine
   9
  10 =head1 SYNOPSIS
  11
  12 See L<Catalyst>.
  13
  14 =head1 DESCRIPTION
  15
  16 This is the Catalyst engine specialized for Apache mod_perl version 2.0.
  17
  18 =head1 OVERLOADED METHODS
  19
  20 This class overloads some methods from C<Catalyst::Engine::Apache::MP20::Base>
  21 and C<Catalyst::Engine::CGI>.
  22
  23 =over 4
  24
  25 =item $c->prepare_body
  26
  27 =cut
  28
  29 sub prepare_body {
  30     shift->Catalyst::Engine::CGI::prepare_body(@_);
  31 }
  32
  33 =item $c->prepare_parameters
  34
  35 =cut
  36
  37 sub prepare_parameters {
  38     shift->Catalyst::Engine::CGI::prepare_parameters(@_);
  39 }
  40
  41 =item $c->prepare_request
  42
  43 =cut
  44
  45 sub prepare_request {
  46     my ( $c, $r, @arguments ) = @_;
  47
  48     $ENV{CONTENT_TYPE}   = $r->headers_in->get("Content-Type");
  49     $ENV{CONTENT_LENGTH} = $r->headers_in->get("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 );
  55 }
  56
  57 =item $c->prepare_uploads
  58
  59 =cut
  60
  61 sub prepare_uploads {
  62     shift->Catalyst::Engine::CGI::prepare_uploads(@_);
  63 }
  64
  65 =back
  66
  67 =head1 SEE ALSO
  68
  69 L<Catalyst>, L<Catalyst::Engine>, L<Catalyst::Engine::Apache::Base>.
  70
  71 =head1 AUTHOR
  72
  73 Sebastian Riedel, C<sri@cpan.org>
  74 Christian Hansen C<ch@ngmedia.com>
  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;