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

package # hide from pause
  MyModule;

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

sub component_base_class { "MyModule::Plugin" }

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

sub new { 
  return bless {}, shift;
}

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