Commit | Line | Data |
---|---|---|
c7e9a452 | 1 | package # hide from pause |
2 | MyModule; | |
dae1b1a5 | 3 | use strict; |
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; |