t/lib/MyModule/OwnComponent.pm

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