Fix up pod. I was being mad.

[p5sagit/Class-C3-Componentised.git] / t / lib / MyModule.pm

diff --git a/t/lib/MyModule.pm b/t/lib/MyModule.pm
index 51295ef..3aa04a3 100644 (file)
--- a/t/lib/MyModule.pm
+++ b/t/lib/MyModule.pm
@@ -5,7 +5,11 @@ use base 'Class::C3::Componentised';
 
 sub component_base_class { "MyModule::Plugin" }
 
-sub message { "MyModule" }
+sub message { 
+  my $msg = $_[0]->maybe::next::method() || '';
+  
+  return $msg . " MyModule";
+}
 
 sub new { 
   return bless {}, shift;