Commit | Line | Data |
---|---|---|
0a663589 | 1 | package TestApp::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; |