cleaning up Catalyst::Engine::CGI::NPH

[catagits/Catalyst-Runtime.git] / lib / Catalyst / Engine / CGI / NPH.pm

package Catalyst::Engine::CGI::NPH;

use strict;
use base 'Catalyst::Engine::CGI';

use HTTP::Status ();

=head1 NAME

Catalyst::Engine::CGI::NPH - Catalyst CGI Engine

=head1 SYNOPSIS

See L<Catalyst>.

=head1 DESCRIPTION

This Catalyst engine returns a complete HTTP response message.

=head1 OVERLOADED METHODS

This class overloads some methods from C<Catalyst::Engine::CGI>.

=over 4

=item $c->finalize_headers

=cut

sub finalize_headers {
    my $c = shift;

    my $status = $c->response->status || 200;
    printf( "%d %s\n", $status, HTTP::Status::status_message($status) );
    $c->SUPER::finalize_headers;
}

=back

=head1 SEE ALSO

L<Catalyst>, L<Catalyst::Engine::CGI>.

=head1 AUTHOR

Sebastian Riedel, C<sri@cpan.org>
Christian Hansen, C<ch@ngmedia.com>

=head1 COPYRIGHT

This program is free software, you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut

1;