Changeset 18182

Timestamp:

08/24/08 18:44:55 (5 months ago)

Author:

tokuhirom

Message:

more readable

Location:

lang/perl/HTTP-Engine/branches/interface-declare/lib/HTTP/Engine

Files:

• Interface.pm (modified) (1 diff)
• Interface/CGI.pm (modified) (1 diff)
• Interface/FCGI.pm (modified) (1 diff)
• Interface/POE.pm (modified) (1 diff)
• Interface/ServerSimple.pm (modified) (1 diff)
• Interface/Standalone.pm (modified) (1 diff)
• Interface/Test.pm (modified) (1 diff)

lang/perl/HTTP-Engine/branches/interface-declare/lib/HTTP/Engine/Interface.pm

@@ -13 +13 @@
 sub builder {
     my ($caller, $builder ) = @_;
+    $builder = ($builder =~ s/^\+(.+)$//) ? $1 : "HTTP::Engine::RequestBuilder::$builder";
     Class::MOP::load_class($builder);
     $caller->meta->add_method(

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

@@ -2 +2 @@
 use HTTP::Engine::Interface;
 
-builder 'HTTP::Engine::RequestBuilder::CGI';
+builder 'CGI';
 
 writer {

lang/perl/HTTP-Engine/branches/interface-declare/lib/HTTP/Engine/Interface/FCGI.pm

@@ -50 +50 @@
 );
 
-builder 'HTTP::Engine::RequestBuilder::CGI';
+builder 'CGI';
 
 # XXX: We can't use Engine's write() method because syswrite

lang/perl/HTTP-Engine/branches/interface-declare/lib/HTTP/Engine/Interface/POE.pm

@@ -26 +26 @@
 );
 
-builder 'HTTP::Engine::RequestBuilder::NoEnv';
+builder 'NoEnv';
 
 writer {

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

@@ -23 +23 @@
 no Moose;
 
-builder 'HTTP::Engine::RequestBuilder::CGI';
+builder 'CGI';
 
 writer {

lang/perl/HTTP-Engine/branches/interface-declare/lib/HTTP/Engine/Interface/Standalone.pm

@@ -58 +58 @@
  no Moose;
 
-builder 'HTTP::Engine::RequestBuilder::NoEnv';
+builder 'NoEnv';
 
 writer {

lang/perl/HTTP-Engine/branches/interface-declare/lib/HTTP/Engine/Interface/Test.pm

@@ -5 +5 @@
 use IO::Scalar;
 
-builder 'HTTP::Engine::RequestBuilder::NoEnv';
+builder 'NoEnv';
 
 writer {