t/lib/ScriptTestApp/TraitFor/Script/Foo.pm

   1 package ScriptTestApp::TraitFor::Script::Foo;
   2 use Moose::Role;
   3 use namespace::clean -except => [ 'meta' ];
   4
   5 around run => sub {
   6     my ($orig, $self, @args) = @_;
   7     return $self->$orig(@args) . '42';
   8 };
   9
  10 1;