t/lib/TestApp/ControllerRole/ModifierSignatures.pm

   1 use CatalystX::Declare;
   2
   3 controller_role TestApp::ControllerRole::ModifierSignatures {
   4
   5     around foo (@args) {
   6         $self->$orig(@args);
   7         $args[0]->response->body( $args[0]->response->body . ' modified' );
   8     }
   9 }