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

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