fixed 12, 50% on 13/14 - 15 converted, but not working.
[catagits/Catalyst-Runtime.git] / t / 15connection.t
index 54ead9d..c9a9ac9 100644 (file)
@@ -2,16 +2,14 @@ package TestApp;
 
 use Catalyst qw[-Engine=Test];
 
-__PACKAGE__->action(
-    hostname => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->req->hostname );
-    },
-    address => sub {
-        my ( $self, $c ) = @_;
-        $c->res->output( $c->req->address );
-    }
-);
+sub hostname : Global {
+    my ( $self, $c ) = @_;
+    $c->res->output( $c->req->hostname );
+}
+sub address : Global {
+    my ( $self, $c ) = @_;
+    $c->res->output( $c->req->address );
+}
 
 package main;