File Coverage

blib/lib/Maypole/HTTPD/Frontend.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package Maypole::HTTPD::Frontend;
use base 'CGI::Maypole';
our $ct;
our $output;
our $cgi;

sub get_request { shift->{cgi} = new CGI; }
sub send_output {
    my $r = shift;
    my %headers = (
        -type            => $r->{content_type},
        -charset         => $r->{document_encoding},
        -content_length  => do { use bytes; length $r->{output} },
    );
    foreach ($r->headers_out->field_names) {
        next if /^Content-(Type|Length)/;
        $headers{"-$_"} = $r->headers_out->get($_);
    }

    $output=$r->{cgi}->header(%headers) . $r->{output};
}

sub output_now {
    print $output;
}

1;

=head1 NAME

Maypole::HTTP::Frontend - Maypole driver class for Maypole::HTTPD

=head1 DESCRIPTION

This is a simple CGI based maypole driver for L. It's used
automatically by the Maypole::HTTPD 'steal' function.

It overrides the following functions in L:

=over 4

=item get_request

=item send_output

=back

=head2 output_now

Actually output what's been buffered by send_output. Used by L

=head1 SEE ALSO

L,L

=cut