X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FFoo.pm;h=662f0aca6fcd6bdbda7f38218084aeb9c78408f5;hb=5fb5cef1de975c4a85d20e2b51b383912652bf80;hp=60f2a18935fd19f9406a3457e63d9960151463c0;hpb=918fb36e205417237d2837adadf590832d06667e;p=catagits%2FCatalystX-Declare.git

diff --git a/t/lib/TestApp/Controller/Foo.pm b/t/lib/TestApp/Controller/Foo.pm
index 60f2a18..662f0ac 100644
--- a/t/lib/TestApp/Controller/Foo.pm
+++ b/t/lib/TestApp/Controller/Foo.pm
@@ -1,23 +1,241 @@
-use CatalystX::Declarative;
+use CatalystX::Declare;
 
-controller TestApp::Controller::Foo {
 
-    has bar => (is => 'rw');
+controller TestApp::Controller::Foo with TestApp::TestRole {
 
-    method baz { }
+    use constant MyActionNo => 'TestApp::Try::Aliasing::MyActionNo';
 
-    under '/', action base, as '';
+    class ::Messenger {
 
-    action root under base as '' is final { }
+        has message => (is => 'rw');
 
-    action list under base is final { }
+        method format { uc $self->message }
+    }
 
-    under base, as 'id', action object ($id) { }
+    role MyActionYes {
+        around match (@args) { $ENV{TESTAPP_ACTIONROLE} ? $self->$orig(@args) : undef }
+    }
 
-    action view under object is final { $ctx->res->body('Hello World!') }
+    role TestApp::Try::Aliasing::MyActionNo {
+        around match (@args) { $ENV{TESTAPP_ACTIONROLE} ? undef : $self->$orig(@args) }
+    }
 
-    action edit under object is final { }
+    class TestApp::Action::Page extends Catalyst::Action {
 
-    action tag (@tags) under object is final { }
+        around execute ($controller, $ctx, @args) {
+            my $page = $ctx->request->params->{page} || 1;
+            return $self->$orig($controller, $ctx, @args, page => $page);
+        }
+    }
+
+    #
+    #   look, a Moose!
+    #
+
+    has title => (
+        is      => 'ro',
+        isa     => 'Str',
+        default => 'TestApp',
+    );
+
+
+    #
+    #   normal methods are very useful too
+    #
+
+    method welcome_message { sprintf 'Welcome to %s!', $self->title }
+
+    method greet (Str $name) { "Hello, $name!" }
+
+
+    #
+    #   the simple stuff
+    #
+
+    action base under '/base' as 'foo';
+
+    action root under base as '' is final {
+        $ctx->response->body( $self->welcome_message );
+    }
+
+    
+    #
+    #   with arguments
+    #
+
+    action with_args under base;
+
+    action hello (Str $name) under with_args is final {
+        $ctx->response->body($self->greet(ucfirst $name));
+    }
+
+    action at_end (Int $x, Int $y) under with_args is final { 
+        $ctx->response->body( $x * $y );
+    }
+
+    action in_the_middle (Int $x, Int $y) under with_args {
+        $ctx->stash(result => $x * $y);
+    }
+    action end_of_the_middle under in_the_middle is final {
+        $ctx->response->body($ctx->stash->{result} * 2);
+    }
+
+    action all_the_way (Int $x) under with_args as '' {
+        $ctx->stash(x => $x);
+    }
+    action through_the_sky (Int $y) under all_the_way as '' {
+        $ctx->stash(y => $y);
+    }
+    action and_beyond (@rest) under through_the_sky as fhtagn is final {
+        $ctx->response->body(join ', ', 
+            $ctx->stash->{x},
+            $ctx->stash->{y},
+            @rest,
+        );
+    }
+
+
+    #
+    #   under is also a valid keyword
+    #
+
+    under base action under_base as under;
+
+    under under_base as '' action even_more_under (Int $i) is final {
+        $ctx->response->body("under $i");
+    }
+
+
+    #
+    #   too many words? go comma go!
+    #
+
+    action comma_base, as '', under base;
+
+    under comma_base, is final, action comma ($str), as ',comma' {
+        $ctx->response->body($str);
+    }
+
+
+    #
+    #   subnamespacing
+    #
+
+    action lower under base;
+
+    under lower {
+
+        action down;
+
+        under down {
+
+            action the;
+
+            under the {
+
+                action stream is final {
+                    $ctx->response->body($ctx->action->reverse);
+                }
+            }
+        }
+    }
+
+
+    #
+    #   action roles
+    #
+
+    action with_role_yes 
+        is final 
+        as with_role 
+     under base 
+      with MyActionYes 
+           { $ctx->res->body('YES') };
+
+    action with_role_no 
+        is final 
+        as with_role 
+     under base 
+      with MyActionNo 
+           { $ctx->res->body('NO') };
+
+
+    #
+    #   action classes
+    #
+
+    action book (Str $title) under base {
+        $ctx->stash(title => $title);
+    }
+
+    action view (Str $format, Int :$page) under book isa Page is final {
+        $ctx->response->body(
+            sprintf 'Page %d of "%s" as %s',
+                $page,
+                $ctx->stash->{title},
+                uc($format),
+        );
+    }
+
+
+    #
+    #   using final as syntax element
+    #
+
+    action final_base as 'finals' under base;
+
+    final action in_front under final_base { $ctx->response->body($ctx->action->reverse) }
+
+    under final_base, final action final_middle { $ctx->response->body($ctx->action->reverse) }
+
+    action final_at_end, final under final_base { $ctx->response->body($ctx->action->reverse) }
+
+
+    #
+    #   privates
+    #
+
+    action not_really_here is private { $ctx->stash(foo => 23) }
+
+    action expose_not_really_here under base is final { 
+        $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!") }
+
+
+    #
+    #   targets for action modifiers
+    #
+
+    action modifier_target under base is final { $ctx->response->body($ctx->action->reverse) }
+
+    action surrounded_target under base is final { 
+        $ctx->response->body(join ' ', $ctx->action->reverse, $ctx->response->body || ());
+    }
+
+
+    #
+    #   inline classes
+    #
+
+    final action inline_class under base {
+        $ctx->response->body( TestApp::Controller::Foo::Messenger->new(message => 'Hello')->format );
+    }
+
+
+    #
+    #   validation test
+    #
+
+    final action wants_integer (Int $x) under base {
+        $ctx->response->body($x);
+    }
 }