use strict;
use base 'Catalyst::Engine::Apache';
-use Apache2 ();
use Apache2::Connection ();
use Apache2::Const ();
use Apache2::RequestIO ();
=head1 DESCRIPTION
-This is the Catalyst engine specialized for Apache mod_perl version 2.
+This is the Catalyst engine specialized for Apache mod_perl version 2.0.
=head1 OVERLOADED METHODS
shift->SUPER::handler(@_);
}
+=item $c->prepare_request($r)
+
+=cut
+
+sub prepare_request {
+ my ( $c, $r ) = @_;
+ $c->apache( Apache2::Request->new($r) );
+}
+
=item $c->prepare_uploads
=cut
my @uploads;
- for my $field ( $c->apache->upload ) {
+ $c->apache->upload->do( sub {
+ my ( $field, $upload ) = @_;
- for my $upload ( $c->apache->upload($field) ) {
+ my $object = Catalyst::Request::Upload->new(
+ filename => $upload->filename,
+ size => $upload->size,
+ tempname => $upload->tempname,
+ type => $upload->type
+ );
- my $object = Catalyst::Request::Upload->new(
- filename => $upload->filename,
- size => $upload->size,
- tempname => $upload->tempname,
- type => $upload->type
- );
+ push( @uploads, $field, $object );
- push( @uploads, $field, $object );
- }
- }
+ return 1;
+ });
- $c->req->_assign_values( $c->req->uploads, \@uploads );
+ $c->request->upload(@uploads);
}
=back
=head1 AUTHOR
Sebastian Riedel, C<sri@cpan.org>
+Christian Hansen C<ch@ngmedia.com>
=head1 COPYRIGHT