t/lib/ScriptTestApp/TraitFor/Script.pm

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