t/lib/MyModule.pm

   1 package # hide from pause
   2   MyModule;
   3
   4 use base 'Class::C3::Componentised';
   5
   6 sub component_base_class { "MyModule::Plugin" }
   7
   8 sub message {
   9   my $msg = $_[0]->maybe::next::method() || '';
  10
  11   return $msg . " MyModule";
  12 }
  13
  14 sub new {
  15   return bless {}, shift;
  16 }
  17
  18 1;