t/lib/TestApp/ViewRole/TestRole.pm

   1 use MooseX::Declare;
   2
   3 role TestApp::ViewRole::TestRole {
   4
   5     around render (Object $ctx) {
   6
   7         if (my $tag = $ctx->stash->{role_tag}) {
   8             return join ' ' => $self->$orig($ctx), $tag;
   9         }
  10
  11         return $self->$orig($ctx);
  12     }
  13 }