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=0000000000000000000000000000000000000000;hb=3df1f3be5d21a8ff08c4564539c9b0d70590b93f;hp=9ae99d558bb5524a9f35fb4003567d06a4bda61b;hpb=1525c58383c49694856673944b2e26103a5b49df;p=catagits%2FCatalyst-Engine-STOMP.git diff --git a/testapp/lib/StompTestApp/Controller/TestController.pm b/testapp/lib/StompTestApp/Controller/TestController.pm deleted file mode 100644 index 9ae99d5..0000000 --- a/testapp/lib/StompTestApp/Controller/TestController.pm +++ /dev/null @@ -1,30 +0,0 @@ -package # Hide from PAUSE - StompTestApp::Controller::TestController; -use Moose; -use namespace::autoclean; - -BEGIN { extends 'Catalyst::Controller::MessageDriven' }; - -sub testaction : Local { - 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"; -} - -sub ping : Local { - my ($self, $c, $request) = @_; - if ($request->{type} eq 'ping') { - $c->stash->{response} = { status => 'PONG' }; - return; - } - die "not a ping request?"; -} - -1;