X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FEngine%2FCGI%2FNPH.pm;fp=lib%2FCatalyst%2FEngine%2FCGI%2FNPH.pm;h=0000000000000000000000000000000000000000;hb=aa64badacdc24647a55bf96f3e682fdaf9461e22;hp=30f925e59d8490bf928e850b6b31c7cbd57f9df4;hpb=6196207f8747abf0cb3ef03152102804927db557;p=catagits%2FCatalyst-Runtime.git diff --git a/lib/Catalyst/Engine/CGI/NPH.pm b/lib/Catalyst/Engine/CGI/NPH.pm deleted file mode 100644 index 30f925e..0000000 --- a/lib/Catalyst/Engine/CGI/NPH.pm +++ /dev/null @@ -1,72 +0,0 @@ -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 - -A script using the Catalyst::Engine::CGI::NPH module might look like: - - #!/usr/bin/perl -w - - BEGIN { - $ENV{CATALYST_ENGINE} = 'CGI::NPH'; - } - - use strict; - use lib '/path/to/MyApp/lib'; - use MyApp; - - MyApp->run; - -=head1 DESCRIPTION - -This Catalyst engine returns a complete HTTP response message. - -=head1 OVERLOADED METHODS - -This class overloads some methods from C. - -=over 4 - -=item $c->finalize_headers - -=cut - -sub finalize_headers { - my $c = shift; - - my $protocol = $ENV{SERVER_PROTOCOL} || 'HTTP/1.0'; - my $status = $c->response->status || 200; - my $message = HTTP::Status::status_message($status); - - printf( "%s %d %s\015\012", $protocol, $status, $message ); - - $c->SUPER::finalize_headers; -} - -=back - -=head1 SEE ALSO - -L, L. - -=head1 AUTHOR - -Sebastian Riedel, C -Christian Hansen, C - -=head1 COPYRIGHT - -This program is free software, you can redistribute it and/or modify it under -the same terms as Perl itself. - -=cut - -1;