Fix tests, add autobox to flatten interface roles so you can use a string or array...

[catagits/CatalystX-DynamicComponent.git] / t / lib / SomeModelClass.pm

diff --git a/t/lib/SomeModelClass.pm b/t/lib/SomeModelClass.pm
index f3184f8..1b1d539 100644 (file)
--- a/t/lib/SomeModelClass.pm
+++ b/t/lib/SomeModelClass.pm
@@ -7,8 +7,6 @@ requires 'say_hello';
 package SomeModelClass;
 use Moose;
 use CatalystX::ControllerGeneratingModel;
-use DemoTypeLibrary qw/MessageDocument/;
-use MooseX::Lexical::Types qw/MessageDocument/;
 use namespace::autoclean;
 
 # Note trivial calling convention.
@@ -23,6 +21,7 @@ use namespace::autoclean;
 command say_hello => sub {
     my ($self, $document) = @_;
 
+    confess("Not a hash") unless (ref($document) eq 'HASH');
     my $name = $document->{name};
     return({ type => 'say_hello_response',
 
@@ -31,10 +30,5 @@ command say_hello => sub {
 
 with 'SomeModelClassInterface';
 
-before 'say_hello' => sub {
-    my $self = shift;
-    my MessageDocument $message = shift;
-};
-
 __PACKAGE__->meta->make_immutable;