[catagits/Catalyst-Engine-STOMP.git] / testapp / lib / StompTestApp / Controller / TestJsonController.pm

package # Hide from PAUSE
  StompTestApp::Controller::TestJsonController;
use Moose;
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller::MessageDriven' };

__PACKAGE__->config( serializer => 'JSON' );

sub testaction : Local {
    my ($self, $c, $request) = @_;

    # Reply with a minimal response message
    my $response = { type => 'testaction_response' };
    $c->stash->{response} = $response;
}

1;
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;