Changeset 29306

Timestamp:

01/30/09 21:21:37 (4 years ago)

Author:

dann

Message:

changed implementation based on new HE::Middleware interface

Location:

lang/perl/HTTP-Engine-Middleware/branches/declare

Files:

• lib/HTTP/Engine/Middleware/Encode.pm (modified) (1 diff)
• lib/HTTP/Engine/Middleware/ModuleReload.pm (modified) (1 diff)
• t/200_middlewares/encode.t (modified) (1 diff)

lang/perl/HTTP-Engine-Middleware/branches/declare/lib/HTTP/Engine/Middleware/Encode.pm

@@ -1 +1 @@
 package HTTP::Engine::Middleware::Encode;
-use Moose;
-
+use HTTP::Engine::Middleware;
 use Data::Visitor::Encode;
 
-sub wrap {
-    my ($class, $next) = @_;
+before_handle {
+    my ( $c, $self, $req ) = @_;
 
-    sub {
-        my $req = shift;
-        if (($req->headers->header('Content-Type')||'') =~ /charset=(.+);?$/) {
-            # decode parameters
-            my $encoding = $1;
-            for my $method (qw/params query_params body_params/) {
-                $req->$method( Data::Visitor::Encode->decode($encoding, $req->$method) );
-            }
+    if (( $req->headers->header('Content-Type') || '' ) =~ /charset=(.+);?$/ )
+    {
 
-            $next->($req);
+        # decode parameters
+        my $encoding = $1;
+        for my $method (qw/params query_params body_params/) {
+            $req->$method(
+                Data::Visitor::Encode->decode( $encoding, $req->$method ) );
         }
-    };
-}
+    }
+    $req;
+};
 
-1;
+__MIDDLEWARE__

lang/perl/HTTP-Engine-Middleware/branches/declare/lib/HTTP/Engine/Middleware/ModuleReload.pm

@@ -1 +1 @@
 package HTTP::Engine::Middleware::ModuleReload;
-use Moose;
+use HTTP::Engine::Middleware;
 use Module::Reload;
 
-sub wrap {
-    my ($class, $next) = shift;
+before_handle {
+    my ( $c, $self, $req ) = @_;
+    Module::Reload->check;
+    $req;
+};
 
-    sub {
-        my $req = shift;
-        Module::Reload->check;
+__MIDDLEWARE__
 
-        $next->($req);
-    };
-}
-
-1;
 __END__
 

lang/perl/HTTP-Engine-Middleware/branches/declare/t/200_middlewares/encode.t

@@ -10 +10 @@
 plan skip_all => "HTTP::Engine is not installed: $@" if $@;
 
-eval q{ use HTTP::Engine::Middleware::Encode };
+eval q{ use HTTP::Engine::Middleware };
 
-plan tests => 3*blocks;
+plan tests => 3 * blocks;
 
 use Encode;
 use URI;
 
-filters {
-    params => [qw/eval/],
-};
+filters { params => [qw/eval/], };
 
 run {
     my $block = shift;
 
-    my $request = HTTP::Request->new( GET => $block->uri, ['Content-Type' => $block->content_type] );
+    my $mw = HTTP::Engine::Middleware->new;
+    $mw->install( 'HTTP::Engine::Middleware::Encode', );
+
+    my $request = HTTP::Request->new(
+        GET => $block->uri,
+        [ 'Content-Type' => $block->content_type ]
+    );
 
     my $do_test = sub {
         my $req = shift;
-        ok Encode::is_utf8($req->params->{'nite'});
+        ok Encode::is_utf8( $req->params->{'nite'} );
         is_deeply $req->params, $block->params, $block->name;
-        HTTP::Engine::Response->new(body => 'OK!');
+        HTTP::Engine::Response->new( body => 'OK!' );
     };
 
     my $response = HTTP::Engine->new(
         interface => {
-            module => 'Test',
-            request_handler => HTTP::Engine::Middleware::Encode->wrap($do_test),
+            module          => 'Test',
+            request_handler => $mw->handler($do_test),
         },
     )->run($request);