Give SomeModelClass an interface role which requires a method
t0m [Mon, 25 May 2009 02:47:43 +0000 (03:47 +0100)]
t/lib/SomeModelClass.pm

index e956815..22dc3b6 100644 (file)
@@ -1,3 +1,9 @@
+package SomeModelClassInterface;
+use Moose::Role;
+use namespace::autoclean;
+
+requires 'say_hello';
+
 package SomeModelClass;
 use Moose;
 use CatalystX::ControllerGeneratingModel;
@@ -14,5 +20,7 @@ command say_hello => sub {
     return("Hello $name");
 };
 
+with 'SomeModelClassInterface';
+
 __PACKAGE__->meta->make_immutable;