t/lib/MyModuleNoBase.pm

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