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

   1 package Catalyst::Engine::Apache::MP13::APR;
   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::APR - APR 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_request($r)
  27
  28 =cut
  29
  30 sub prepare_request {
  31     my ( $c, $r ) = @_;
  32     $c->apache( Apache::Request->new($r) );
  33 }
  34
  35
  36 =item $c->prepare_parameters
  37
  38 =cut
  39
  40 sub prepare_parameters {
  41     my $c = shift;
  42
  43     my @params;
  44
  45     $c->apache->param->do( sub {
  46         my ( $field, $value ) = @_;
  47         push( @params, $field, $value );
  48         return 1;
  49     });
  50
  51     $c->request->param(@params);
  52 }
  53
  54 =item $c->prepare_uploads
  55
  56 =cut
  57
  58 sub prepare_uploads {
  59     my $c = shift;
  60
  61     my @uploads;
  62
  63     for my $upload ( $c->apache->upload ) {
  64
  65         my $object = Catalyst::Request::Upload->new(
  66             filename => $upload->filename,
  67             size     => $upload->size,
  68             tempname => $upload->tempname,
  69             type     => $upload->type
  70         );
  71
  72         push( @uploads, $upload->name, $object );
  73     }
  74
  75     $c->request->upload(@uploads);
  76 }
  77
  78 =back
  79
  80 =head1 SEE ALSO
  81
  82 L<Catalyst>, L<Catalyst::Engine>, L<Catalyst::Engine::Apache::MP13::Base>.
  83
  84 =head1 AUTHOR
  85
  86 Sebastian Riedel, C<sri@cpan.org>
  87 Christian Hansen C<ch@ngmedia.com>
  88
  89 =head1 COPYRIGHT
  90
  91 This program is free software, you can redistribute it and/or modify it under
  92 the same terms as Perl itself.
  93
  94 =cut
  95
  96 1;