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; |