t/lib/MyModule.pm

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