[Bast-commits] r3636 - in trunk/Class-C3-Componentised/t: . lib lib/MyModule lib/MyModule/Plugin

ash at dev.catalyst.perl.org ash at dev.catalyst.perl.org
Mon Jul 30 14:44:14 GMT 2007


Author: ash
Date: 2007-07-30 14:44:14 +0100 (Mon, 30 Jul 2007)
New Revision: 3636

Added:
   trunk/Class-C3-Componentised/t/lib/
   trunk/Class-C3-Componentised/t/lib/MyModule.pm
   trunk/Class-C3-Componentised/t/lib/MyModule/
   trunk/Class-C3-Componentised/t/lib/MyModule/OwnComponent.pm
   trunk/Class-C3-Componentised/t/lib/MyModule/Plugin/
   trunk/Class-C3-Componentised/t/lib/MyModule/Plugin/Foo.pm
Log:
More work on tests

Added: trunk/Class-C3-Componentised/t/lib/MyModule/OwnComponent.pm
===================================================================
--- trunk/Class-C3-Componentised/t/lib/MyModule/OwnComponent.pm	                        (rev 0)
+++ trunk/Class-C3-Componentised/t/lib/MyModule/OwnComponent.pm	2007-07-30 13:44:14 UTC (rev 3636)
@@ -0,0 +1,12 @@
+package # hide from pause
+  MyModule::OwnComponent;
+
+use Class::C3;
+
+sub message {
+  my $self = shift;
+
+  return join(" ", "OwnComponent", $self->next::method);
+}
+
+1;

Added: trunk/Class-C3-Componentised/t/lib/MyModule/Plugin/Foo.pm
===================================================================
--- trunk/Class-C3-Componentised/t/lib/MyModule/Plugin/Foo.pm	                        (rev 0)
+++ trunk/Class-C3-Componentised/t/lib/MyModule/Plugin/Foo.pm	2007-07-30 13:44:14 UTC (rev 3636)
@@ -0,0 +1,11 @@
+package # hide from pause
+  MyModule::Plugin::Foo;
+
+use Class::C3;
+
+sub message { 
+  $DB::single = 1;
+  join(" ", "Foo", shift->next::method) 
+}
+
+1;

Added: trunk/Class-C3-Componentised/t/lib/MyModule.pm
===================================================================
--- trunk/Class-C3-Componentised/t/lib/MyModule.pm	                        (rev 0)
+++ trunk/Class-C3-Componentised/t/lib/MyModule.pm	2007-07-30 13:44:14 UTC (rev 3636)
@@ -0,0 +1,14 @@
+package # hide from pause
+  MyModule;
+
+use base 'Class::C3::Componentised';
+
+sub component_base_class { "MyModule::Plugin" }
+
+sub message { "MyModule" }
+
+sub new { 
+  return bless {}, shift;
+}
+
+1;




More information about the Bast-commits mailing list