Changeset 11007 for lang/perl/HTTP-Engine

Timestamp:

05/03/08 13:36:54 (5 years ago)

Author:

tokuhirom

Message:

dry.

Location:

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine

Files:

• Interface/CGI.pm (modified) (1 diff)
• Interface/ServerSimple.pm (modified) (2 diffs)
• Role/Interface.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Interface/CGI.pm

@@ -2 +2 @@
 use Moose;
 with 'HTTP::Engine::Role::Interface';
-
-has request_processor => (
-    is      => 'ro',
-    isa     => 'HTTP::Engine::RequestProcessor',
-    lazy    => 1,
-    default => sub {
-        my $self = shift;
-        HTTP::Engine::RequestProcessor->new(
-            handler                    => $self->handler,
-            should_write_response_line => 0,
-        );
-    },
-    handles => [qw/handle_request/],
-);
+use constant should_write_response_line => 0;
 
 sub run {

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Interface/ServerSimple.pm

@@ -2 +2 @@
 use Moose;
 with 'HTTP::Engine::Role::Interface';
-
+use constant should_write_response_line => 1;
 use HTTP::Server::Simple 0.33;
 use HTTP::Server::Simple::CGI;
-use HTTP::Request;
 
 has port => (
@@ -11 +10 @@
     isa     => 'Int',
     default => 80,
-);
-
-has request_processor => (
-    is      => 'ro',
-    isa     => 'HTTP::Engine::RequestProcessor',
-    lazy    => 1,
-    default => sub {
-        my $self = shift;
-        HTTP::Engine::RequestProcessor->new(
-            handler                    => $self->handler,
-            should_write_response_line => 1,
-        );
-    },
-    handles => [qw/handle_request/],
 );
 

lang/perl/HTTP-Engine/branches/moose/lib/HTTP/Engine/Role/Interface.pm

@@ -4 +4 @@
 with 'MooseX::Object::Pluggable';
 
-requires qw(run);
+requires qw(run should_write_response_line);
 
 has handler => (
@@ -10 +10 @@
     isa      => 'CodeRef',
     required => 1,
+);
+
+has request_processor => (
+    is      => 'ro',
+    isa     => 'HTTP::Engine::RequestProcessor',
+    lazy    => 1,
+    default => sub {
+        my $self = shift;
+        HTTP::Engine::RequestProcessor->new(
+            handler                    => $self->handler,
+            should_write_response_line => $self->should_write_response_line,
+        );
+    },
+    handles => [qw/handle_request/],
 );