testapp/lib/StompTestApp/Controller/TestController.pm

   1 package StompTestApp::Controller::TestController;
   2 use Moose;
   3
   4 BEGIN { extends 'Catalyst::Controller::MessageDriven' };
   5
   6 sub testaction : Local {
   7     my ($self, $c) = @_;
   8
   9     # Reply with a minimal response message
  10     my $response = { type => 'testaction_response' };
  11     $c->stash->{response} = $response;
  12 }
  13
  14 1;