t/lib/MyModule/OwnComponent.pm

   1 package # hide from pause
   2   MyModule::OwnComponent;
   3
   4 use Class::C3;
   5
   6 sub message {
   7   my $self = shift;
   8
   9   return join(" ", "OwnComponent", $self->next::method);
  10 }
  11
  12 1;