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 | ||
3a23b721 | 8 | sub message { |
0c205e9c | 9 | my $msg = $_[0]->maybe::next::method() || ''; |
3a23b721 | 10 | |
b0dd4f7b | 11 | return $msg . ' ' . __PACKAGE__; |
0c205e9c | 12 | } |
c7e9a452 | 13 | |
3a23b721 | 14 | sub new { |
c7e9a452 | 15 | return bless {}, shift; |
16 | } | |
17 | ||
18 | 1; |