testapp/lib/StompTestApp/Controller/TestController.pm

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