Move Controller::ActionRole's functionality into the core.

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / ActionRole / Boo.pm

diff --git a/t/lib/TestApp/ActionRole/Boo.pm b/t/lib/TestApp/ActionRole/Boo.pm
new file mode 100644 (file)
index 0000000..f55f9fe
--- /dev/null
+++ b/t/lib/TestApp/ActionRole/Boo.pm
@@ -0,0 +1,16 @@
+package TestApp::ActionRole::Boo;
+
+use Moose::Role;
+
+has boo => (
+    is       => 'ro',
+    required => 1,
+);
+
+around execute => sub {
+    my ($orig, $self, $controller, $ctx, @rest) = @_;
+    $ctx->stash(action_boo => $self->boo);
+    return $self->$orig($controller, $ctx, @rest);
+};
+
+1;