lib/Catalyst/Engine/Apache/MP13/Apreq.pm

   1 package Catalyst::Engine::Apache::MP13::Apreq;
   2
   3 use strict;
   4 use base 'Catalyst::Engine::Apache::MP13::Base';
   5
   6 use Apache::Request ();
   7
   8 =head1 NAME
   9
  10 Catalyst::Engine::Apache::MP13::Apreq - Apreq class for MP 1.3 Engines
  11
  12 =head1 SYNOPSIS
  13
  14 See L<Catalyst>.
  15
  16 =head1 DESCRIPTION
  17
  18 This is the Catalyst engine specialized for Apache mod_perl version 1.3x.
  19
  20 =head1 OVERLOADED METHODS
  21
  22 This class overloads some methods from C<Catalyst::Engine::Apache::MP13::Base>.
  23
  24 =over 4
  25
  26 =item $c->prepare_parameters
  27
  28 =cut
  29
  30 sub prepare_parameters {
  31     my $c = shift;
  32
  33     my @params;
  34
  35     $c->apache->param->do( sub {
  36         my ( $field, $value ) = @_;
  37         push( @params, $field, $value );
  38         return 1;
  39     });
  40
  41     $c->request->param(@params);
  42 }
  43
  44 =item $c->prepare_request($r)
  45
  46 =cut
  47
  48 sub prepare_request {
  49     my ( $c, $r ) = @_;
  50     $c->apache( Apache::Request->new($r) );
  51 }
  52
  53 =item $c->prepare_uploads
  54
  55 =cut
  56
  57 sub prepare_uploads {
  58     my $c = shift;
  59
  60     my @uploads;
  61
  62     for my $upload ( $c->apache->upload ) {
  63
  64         my $object = Catalyst::Request::Upload->new(
  65             filename => $upload->filename,
  66             size     => $upload->size,
  67             tempname => $upload->tempname,
  68             type     => $upload->type
  69         );
  70
  71         push( @uploads, $upload->name, $object );
  72     }
  73
  74     $c->request->upload(@uploads);
  75 }
  76
  77 =back
  78
  79 =head1 SEE ALSO
  80
  81 L<Catalyst>, L<Catalyst::Engine>, L<Catalyst::Engine::Apache::MP13::Base>.
  82
  83 =head1 AUTHOR
  84
  85 Sebastian Riedel, C<sri@cpan.org>
  86 Christian Hansen C<ch@ngmedia.com>
  87
  88 =head1 COPYRIGHT
  89
  90 This program is free software, you can redistribute it and/or modify it under
  91 the same terms as Perl itself.
  92
  93 =cut
  94
  95 1;