15/16 OK

[catagits/Catalyst-Runtime.git] / t / 16post.t

diff --git a/t/16post.t b/t/16post.t
index 45abbd3..5ff4fa9 100644 (file)
--- a/t/16post.t
+++ b/t/16post.t
@@ -2,20 +2,20 @@ package TestApp;
 
 use Catalyst qw[-Engine=Test];
 
-__PACKAGE__->action(
-    echo => sub {
-        my ( $self, $c ) = @_;
-
-        for my $field ( $c->req->headers->header_field_names ) {
-            my $header = ( $field =~ /^X-/ ) ? $field : "X-$field";
-            $c->res->headers->header(
-                $header => $c->req->headers->header($field) );
-        }
-
-        $c->res->headers->content_type('text/plain');
-        $c->res->output('ok');
+sub echo : Global {
+    my ( $self, $c ) = @_;
+
+    for my $field ( $c->req->headers->header_field_names ) {
+        my $header = ( $field =~ /^X-/ ) ? $field : "X-$field";
+        $c->res->headers->header(
+            $header => $c->req->headers->header($field) );
     }
-);
+
+    $c->res->headers->content_type('text/plain');
+    $c->res->output('ok');
+}
+
+__PACKAGE__->setup;
 
 package main;