package TestApp::Controller::Queue;
use Moose;
use namespace::autoclean;
use Data::Printer;
BEGIN { extends 'Catalyst::Controller::JMS' }
__PACKAGE__->config(
namespace => 'queue/myq',
);
sub foo :MessageTarget {
my ($self,$c) = @_;
$c->log->debug('Message received "foo"'.p($c->req->data))
if $c->debug;
$c->stash->{message} = $c->req->data;
return;
}
sub bar :MessageTarget {
my ($self,$c) = @_;
$c->log->debug('Message received "bar"'.p($c->req->data))
if $c->debug;
$c->stash->{message} = {my=>'return'};
return;
}
sub default :Default {
my ($self,$c) = @_;
$c->log->debug('Message dispatched to default'.p($c->req->data))
if $c->debug;
return;
}
1;