t/lib/MyModule/OwnComponent.pm

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