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

package # hide from pause
  MyModule;
use strict;
use warnings;

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

sub component_base_class { "MyModule::Plugin" }

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

  return $msg . ' ' . __PACKAGE__;
}

sub new {
  return bless {}, shift;
}

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