=head1 DESCRIPTION
-This is the Catalyst engine specialized for Apache (i.e. for mod_perl).
+This is a base class engine specialized for Apache (i.e. for mod_perl).
=head1 METHODS
sub finalize_body {
my $c = shift;
- $c->apache->print( $c->response->output );
+ $c->apache->print( $c->response->body );
}
=item $c->prepare_body
$content .= $buffer;
}
- $c->request->input($content);
+ $c->request->body($content);
}
=item $c->prepare_connection
sub prepare_parameters {
my $c = shift;
- foreach my $key ( $c->apache->param ) {
- my @values = $c->apache->param($key);
- $c->req->parameters->{$key} = ( @values == 1 ) ? $values[0] : \@values;
- }
+ my @params;
+
+ $c->apache->param->do( sub {
+ my ( $field, $value ) = @_;
+ push( @params, $field, $value );
+ return 1;
+ });
+
+ $c->req->_assign_values( $c->req->parameters, \@params );
}
=item $c->prepare_path
=head1 AUTHOR
Sebastian Riedel, C<sri@cpan.org>
+Christian Hansen C<ch@ngmedia.com>
=head1 COPYRIGHT