t/lib/MyModuleNoBase.pm

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