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 | ||
b0dd4f7b | 11 | return $msg . ' ' . __PACKAGE__; |
0c205e9c | 12 | } |
c7e9a452 | 13 | |
14 | sub new { | |
15 | return bless {}, shift; | |
16 | } | |
17 | ||
18 | 1; |