Commit | Line | Data |
---|---|---|
b0dd4f7b | 1 | package # hide from pause |
2 | MyModuleNoBase; | |
dae1b1a5 | 3 | use strict; |
4 | use warnings; | |
b0dd4f7b | 5 | |
6 | use base 'Class::C3::Componentised'; | |
7 | ||
3a23b721 | 8 | sub message { |
b0dd4f7b | 9 | my $msg = $_[0]->maybe::next::method() || ''; |
3a23b721 | 10 | |
b0dd4f7b | 11 | return $msg . ' ' . __PACKAGE__; |
12 | } | |
13 | ||
3a23b721 | 14 | sub new { |
b0dd4f7b | 15 | return bless {}, shift; |
16 | } | |
17 | ||
18 | 1; |