package CatalystX::ConsumesJMS; {
$CatalystX::ConsumesJMS::VERSION = '1.05'; } {
$CatalystX::ConsumesJMS::DIST = 'CatalystX-ConsumesJMS'; } use
Moose::Role; use namespace::autoclean; with
'CatalystX::RouteMaster'; use Catalyst::Utils (); # ABSTRACT:
role for components providing Catalyst actions consuming
messages sub _controller_base_classes {
'Catalyst::Controller::JMS' } sub _action_extra_params { my
($self,$c,$destination,$type,$route) = @_; return attributes =>
{ MessageTarget => [$type] }; } 1; __END__ =pod =encoding utf-8
=head1 NAME CatalystX::ConsumesJMS - role for components
providing Catalyst actions consuming messages =head1 VERSION
version 1.05 =head1 SYNOPSIS package MyApp::Base::MyConsumer;
use Moose; extends 'Catalyst::Component'; with
'CatalystX::ConsumesJMS'; sub _kind_name {'MyConsumer'} sub
_wrap_code { my ($self,$c,$destination_name,$msg_type,$route) =
@_; my $code = $route->{code}; my $extra_config =
$route->{extra_config}; return sub { my ($controller,$ctx) = @_;
my $message = $ctx->req