abstract for applyhooks
[p5sagit/Class-C3-Componentised.git] / t / lib / MyModule.pm
CommitLineData
c7e9a452 1package # hide from pause
2 MyModule;
3
4use base 'Class::C3::Componentised';
5
6sub component_base_class { "MyModule::Plugin" }
7
3a23b721 8sub message {
0c205e9c 9 my $msg = $_[0]->maybe::next::method() || '';
3a23b721 10
b0dd4f7b 11 return $msg . ' ' . __PACKAGE__;
0c205e9c 12}
c7e9a452 13
3a23b721 14sub new {
c7e9a452 15 return bless {}, shift;
16}
17
181;