Changeset 25457

Timestamp:

11/30/08 22:29:06 (5 years ago)

Author:

yappo

Message:

fixed many Header type problem

Location:

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

Files:

• Request.pm (modified) (2 diffs)
• Response.pm (modified) (2 diffs)
• Types/Core.pm (modified) (2 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 qw( Uri Handlers );
+use HTTP::Engine::Types::Core qw( Uri Header );
 use URI::QueryParam;
 require Carp; # Carp->import is too heavy =(
@@ -145 +145 @@
 has headers => (
     is      => 'rw',
-    isa => 'Headers',
+    isa => 'Header',
     coerce  => 1,
     lazy_build => 1,

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 qw( Handlers );
+use HTTP::Engine::Types::Core qw( Header );
 
 # Shika role merging is borked with attributes
@@ -47 +47 @@
 has headers => (
     is      => 'rw',
-     isa    => 'Headers',
+    isa     => 'Header',
     coerce  => 1,
     default => sub { HTTP::Headers::Fast->new },

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

@@ -9 +9 @@
 use URI::WithBase;
 use URI::QueryParam;
-use HTTP::Headers;
+use HTTP::Headers::Fast;
 
 do {
@@ -51 +51 @@
 
 do {
-    class_type Header => { class => "HTTP::Headers" };
+    class_type Header => { class => "HTTP::Headers::Fast" };
 
     coerce Header => +{
-        ArrayRef => sub { $_[0] = HTTP::Headers->new( @{ $_[0] } ) },
-        HashRef  => sub { $_[0] = HTTP::Headers->new( %{ $_[0] } ) },
+        ArrayRef => sub { $_[0] = HTTP::Headers::Fast->new( @{ $_[0] } ) },
+        HashRef  => sub { $_[0] = HTTP::Headers::Fast->new( %{ $_[0] } ) },
     };
 };