Gianni Ceccarelli > Catalyst-ActionRole-JMS-1.1 > Catalyst::ActionRole::JMS

Download:
Catalyst-ActionRole-JMS-1.1.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 1.1   Source   Latest Release: Catalyst-ActionRole-JMS-1.3

NAME ^

Catalyst::ActionRole::JMS - role for actions to dispatch based on JMSType

VERSION ^

version 1.1

SYNOPSIS ^

  sub an_action : Does('Catalyst::ActionRole::JMS') JMSType('some_type') {
    # do whatever
  }

DESCRIPTION ^

Apply this role to your actions (via Catalyst::Controller::ActionRole and the Does attribute) to have the dispatch look at the JMSType of incoming requests (that should really be messages from some queueing system, see Plack::Handler::Stomp for an example). The requests / messages should be dispatched to the namespace of the action.

You should look at Catalyst::Controller::JMS for a more integrated solution using this module together with automatic (de-)serialization.

ATTRIBUTES ^

jmstype

The type to match against. Defaults to the value of a JMSType action attribute, or the action name if such attribute is not present.

METHODS ^

match

around modifier for the match method of the action class. Extracts the request / message type by calling "_extract_jmstype", and compares it with the value of the "jmstype" attribute by calling "_match_jmstype". If it matches, delegates to the normal match method, otherwise signals a non-match to the dispatched by returning false.

_extract_jmstype

  my $type = $self->_extract_jmstype($ctx);

Gets the type of the request / message. It first looks in the request headers for jmstype or type keys, then looks into the PSGI environment for a jms.type key.

_match_jmstype

  my $ok = $self->_match_jmstype($request_type);

Simple string equality comparison. Override this if you need more complicated matching semantics.

EXAMPLES ^

You can find examples of use in the tests, or at https://github.com/dakkar/CatalystX-StompSampleApps

AUTHOR ^

Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>

COPYRIGHT AND LICENSE ^

This software is copyright (c) 2011 by Net-a-porter.com.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

syntax highlighting: