X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FSomeModelClass.pm;h=1b1d53951508af184ba5ae72174fb260136cfcf5;hb=3765b9eed41ccf7d3fa26c6cfb3ee168d5848659;hp=83f7271302f40af6f79ae23164bdfaa903df8475;hpb=e36ac2860af760b347657caeb1b2fccfd3353323;p=catagits%2FCatalystX-DynamicComponent.git

diff --git a/t/lib/SomeModelClass.pm b/t/lib/SomeModelClass.pm
index 83f7271..1b1d539 100644
--- 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',