t/lib/TestApp/ActionRole/Boo.pm

   1 package TestApp::ActionRole::Boo;
   2
   3 use Moose::Role;
   4
   5 has boo => (
   6     is       => 'ro',
   7     required => 1,
   8 );
   9
  10 around execute => sub {
  11     my ($orig, $self, $controller, $ctx, @rest) = @_;
  12     $ctx->stash(action_boo => $self->boo);
  13     return $self->$orig($controller, $ctx, @rest);
  14 };
  15
  16 1;