moved to CatalystX::Declare

[catagits/CatalystX-Declare.git] / t / lib / TestApp / Controller / Foo.pm

diff --git a/t/lib/TestApp/Controller/Foo.pm b/t/lib/TestApp/Controller/Foo.pm
index 9c7c085..b8715ae 100644 (file)
--- a/t/lib/TestApp/Controller/Foo.pm
+++ b/t/lib/TestApp/Controller/Foo.pm
@@ -1,4 +1,4 @@
-use CatalystX::Declarative;
+use CatalystX::Declare;
 
 role MyActionYes {
     around match (@args) { $ENV{TESTAPP_ACTIONROLE} ? $self->$orig(@args) : undef }
@@ -193,5 +193,12 @@ controller TestApp::Controller::Foo {
         $ctx->forward('not_really_here');
         $ctx->response->body($ctx->stash->{foo});
     }
+
+
+    #
+    #   chain target specified via action
+    #
+
+    action pointed <- base ($what) is final { $ctx->response->body("Your $what is pointed!") }
 }