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

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

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

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

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

1;
Commit	Line	Data
cb2c6d47	1	package # Hide from PAUSE
cb2c6d47	2	StompTestApp::Controller::TestController;
0a663589	3	use Moose;
cb2c6d47	4	use namespace::autoclean;
0a663589	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;