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 83f7271..1b1d539 100644 (file)
--- a/t/lib/SomeModelClass.pm
+++ b/t/lib/SomeModelClass.pm
@@ -21,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',