Changeset 11522 for lang/perl/HTTP-Engine/trunk/examples/MiddleWare.pm

Timestamp:

05/13/08 19:05:54 (5 years ago)

Author:

tokuhirom

Message:

change middleware spec.

Files:

• lang/perl/HTTP-Engine/trunk/examples/MiddleWare.pm (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/examples/MiddleWare.pm

@@ -5 +5 @@
 sub setup {
     warn 'middleware setup';
-    sub {
-        my($next, $rp, $c) = @_;
-        warn 'middleware before';
-        $next->($rp, $c);
-        warn 'middleware after';
-        my $body = $c->res->body;
-        $body =~ s/REGEXP/MIDDLEWARE/g;
-        $c->res->body($body);
-    };
+}
+
+sub wrap {
+    my($next, $rp, $c) = @_;
+    warn 'middleware before';
+    $next->($rp, $c);
+    warn 'middleware after';
+    my $body = $c->res->body;
+    $body =~ s/REGEXP/MIDDLEWARE/g;
+    $c->res->body($body);
 }