Changeset 25455 for lang/perl/HTTP-Engine/branches

Timestamp:

11/30/08 22:20:45 (4 years ago)

Author:

yappo

Message:

fixed bug forget Types option

Location:

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

Files:

• Request.pm (modified) (1 diff)
• Response.pm (modified) (1 diff)
• Types/Core.pm (modified) (4 diffs)

lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Request.pm

@@ -2 +2 @@
 use Shika;
 use HTTP::Headers::Fast;
-use HTTP::Engine::Types::Core;
+use HTTP::Engine::Types::Core qw( Uri Handlers );
 use URI::QueryParam;
 require Carp; # Carp->import is too heavy =(

lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Response.pm

@@ -4 +4 @@
 use HTTP::Status ();
 use HTTP::Headers::Fast;
-use HTTP::Engine::Types::Core;
+use HTTP::Engine::Types::Core qw( Handlers );
 
 # Shika role merging is borked with attributes

lang/perl/HTTP-Engine/branches/shika/lib/HTTP/Engine/Types/Core.pm

@@ -27 +27 @@
             Shika::Util::load_class($module);
 
-            return $module->new( %$args );
+            $_[0] = $module->new( %$args );
         },
     };
@@ -45 +45 @@
             $uri->query(undef);
             $uri->path($base);
-            URI::WithBase->new($_[0], $uri);
+            $_[0] = URI::WithBase->new($_[0], $uri);
         },
     };
@@ -54 +54 @@
 
     coerce Header => +{
-        ArrayRef => sub { HTTP::Headers->new( @{ $_[0] } ) },
-        HashRef  => sub { HTTP::Headers->new( %{ $_[0] } ) },
+        ArrayRef => sub { $_[0] = HTTP::Headers->new( @{ $_[0] } ) },
+        HashRef  => sub { $_[0] = HTTP::Headers->new( %{ $_[0] } ) },
     };
 };
@@ -61 +61 @@
 do {
     subtype Handler => \&Shika::Util::TypeConstraints::_CodeRef;
-    coerce Handler => +{ Str => sub { \&{$_[0]} } };
+    coerce Handler => +{ Str => sub { $_[0] = \&{$_[0]} } };
 };