[Catalyst-commits] r7569 - in trunk/Catalyst-Engine-HTTP-Prefork: . lib/Catalyst/Engine/HTTP

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2008-04-05 02:27:24 +0100 (Sat, 05 Apr 2008)
New Revision: 7569

Modified:
   trunk/Catalyst-Engine-HTTP-Prefork/Changes
   trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL
   trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork.pm
Log:
HTTP::Prefork engine release 0.01

Modified: trunk/Catalyst-Engine-HTTP-Prefork/Changes
===================================================================
--- trunk/Catalyst-Engine-HTTP-Prefork/Changes	2008-04-04 20:53:35 UTC (rev 7568)
+++ trunk/Catalyst-Engine-HTTP-Prefork/Changes	2008-04-05 01:27:24 UTC (rev 7569)
@@ -1,4 +1,4 @@
 This file documents the revision history for Catalyst::Engine::HTTP::Prefork.
 
-0.01 
+0.01    2008-04-04 21:30:00
         - Initial release.

Modified: trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL
===================================================================
--- trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL	2008-04-04 20:53:35 UTC (rev 7568)
+++ trunk/Catalyst-Engine-HTTP-Prefork/Makefile.PL	2008-04-05 01:27:24 UTC (rev 7569)
@@ -7,8 +7,7 @@
 requires 'Cookie::XS'               => '0.08';
 requires 'HTTP::Body'               => '1.01';
 requires 'Net::Server'              => '0.97';
-# XXX: not released and may change namespaces
-requires 'Perlbal::XS::HTTPHeaders' => '0.20';
+requires 'HTTP::HeaderParser::XS'   => '0.20';
 
 tests 't/0*.t';
 

Modified: trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork.pm
===================================================================
--- trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork.pm	2008-04-04 20:53:35 UTC (rev 7568)
+++ trunk/Catalyst-Engine-HTTP-Prefork/lib/Catalyst/Engine/HTTP/Prefork.pm	2008-04-05 01:27:24 UTC (rev 7569)
@@ -10,7 +10,7 @@
 use HTTP::Status qw(status_message);
 use IO::Select;
 use IO::Socket qw(:crlf);
-use Perlbal::XS::HTTPHeaders;
+use HTTP::HeaderParser::XS;
 use Socket;
 
 use constant DEBUG        => $ENV{CATALYST_PREFORK_DEBUG} || 0;
@@ -97,7 +97,7 @@
         last if !$self->_read_headers;
     
         # Parse headers
-        my $h = Perlbal::XS::HTTPHeaders->new( \delete $self->{client}->{headerbuf} );
+        my $h = HTTP::HeaderParser::XS->new( \delete $self->{client}->{headerbuf} );
     
         if ( !$h ) {
             # Bad request
@@ -378,22 +378,6 @@
 requests.  This is a limitation of Net::Server and may be fixed in a future
 version.
 
-=head1 PERFORMANCE
-
-Benchmarks were performend on all the HTTP engines serving the Catalyst
-welcome message, which is about 5.5K of data.  These numbers are from my
-2Ghz Core Duo MacBook Pro.
-
-    Engine           Req/s [1]   [2]   [3]
-    ------------------------------------------
-    HTTP
-    HTTP::POE
-    HTTP::Prefork
-    
-[1] ab -n 10000 -c 1 -k
-[2] ab -n 10000 -c 5 -k
-[3] ab -n 10000 -c 10 -k
-
 =head1 AUTHOR
 
 Andy Grundman, <andy at hybridized.org>
@@ -403,4 +387,4 @@
 This program is free software, you can redistribute it and/or modify it under
 the same terms as Perl itself.
 
-=cut
\ No newline at end of file
+=cut