use CGI::Simple;
use Maypole::Headers;
-our $VERSION = '2.05';
+our $VERSION = '2.09';
sub run {
my $self = shift;
-charset => $r->{document_encoding},
-content_length => do { use bytes; length $r->{output} },
);
- foreach ($r->headers_out->header_field_names) {
- next if /^Content-/;
+ foreach ($r->headers_out->field_names) {
+ next if /^Content-(Type|Length)/;
$headers{"-$_"} = $r->headers_out->get($_);
}
=head1 DESCRIPTION
-This is a handler for Maypole which will use the CGI instead of Apache's
-C<mod_perl> 1.x. This handler can also be used for Apache 2.0.
+This is a CGI platform driver for Maypole. Your application can inherit from
+CGI::Maypole directly, but it is recommended that you use
+L<Maypole::Application>.
+
=head1 METHODS
=head1 Implementation
-This class overrides a set of methods in the base Maypole class to provide it's
+This class overrides a set of methods in the base Maypole class to provide it's
functionality. See L<Maypole> for these:
=over
Dave Ranney C<dave@sialia.com>
Simon Cozens C<simon@cpan.org>
+
+=cut