X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=testapp%2Flib%2FStompTestApp%2FController%2FTestController.pm;fp=testapp%2Flib%2FStompTestApp%2FController%2FTestController.pm;h=d0866376955391ac2fd6a0d66869b9fa34ea608d;hb=bf8937b70eb1aabe53e63e2e6c70f569056e609a;hp=a3b83b201b8703458691c74447925053c65ec313;hpb=b044cf9b67638aabfea36c19afee14dabc0b65ba;p=catagits%2FCatalyst-Engine-STOMP.git

diff --git a/testapp/lib/StompTestApp/Controller/TestController.pm b/testapp/lib/StompTestApp/Controller/TestController.pm
index a3b83b2..d086637 100644
--- a/testapp/lib/StompTestApp/Controller/TestController.pm
+++ b/testapp/lib/StompTestApp/Controller/TestController.pm
@@ -6,11 +6,16 @@ use namespace::autoclean;
 BEGIN { extends 'Catalyst::Controller::MessageDriven' };
 
 sub testaction : Local {
-    my ($self, $c) = @_;
+    my ($self, $c, $request) = @_;
 
     # Reply with a minimal response message
     my $response = { type => 'testaction_response' };
     $c->stash->{response} = $response;
 }
 
+sub badaction : Local {
+    my ($self, $c, $request) = @_;
+    die "oh noes";
+}
+
 1;