[p5sagit/Class-C3-Componentised.git] / t / lib / MyModuleNoBase.pm

package # hide from pause
  MyModuleNoBase;

use base 'Class::C3::Componentised';

sub message { 
  my $msg = $_[0]->maybe::next::method() || '';
  
  return $msg . ' ' . __PACKAGE__;
}

sub new { 
  return bless {}, shift;
}

1;
Commit	Line	Data
b0dd4f7b	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;