testapp/lib/StompTestApp/Controller/TestJsonController.pm

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