Commit | Line | Data |
---|---|---|
a5ae1e8c | 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; |