Kevin L. Esteb > XAS-0.04 > XAS::Collector::Connector

Download:
XAS-0.04.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.01   Source   Latest Release: XAS-0.05

NAME ^

XAS::Collector::Connector - Perl extension for the XAS environment

SYNOPSIS ^

  use XAS::Collector::Connector;

  my $types = [
     { 'xas-alert', 'alert' },
  ];

  my $queues = [
      '/queue/alert',
  ];

  XAS::Collector::Connector->spawn(
      RemoteAddress => $host,
      RemotePort    => $port,
      Alias         => 'collector',
      Logger        => 'logger',
      Login         => 'collector',
      Passcode      => 'ddc',
      Queues        => $queues,
      Types         => $types
  );

DESCRIPTION ^

This module is used for monitoring queues on the message server. When messages are received, they are then passed off to the appropriate message handler.

METHODS ^

spawn

The module uses the configuration items from POE::Component::Client::Stomp along with this additional items.

Queues

The queues that the connector will subscribe too. This can be a string or an array of strings.

Types

This is a list of XAS packet types that this connector can handle. The list consists of hashes with the following values: XAS packet type, name of the session handler for that packet type.

PUBLIC EVENTS ^

handle_connected($kernel, $self, $frame)

Subscribe to the appropriate queue(s) after authentication.

$kernel

A handle to the POE kernel

$self

A handle to the current object.

$frame

The received STOMP frame.

handle_message($kernel, $self, $frame)

Decode the packet type and pass it off to the appropriate message handler.

$kernel

A handle to the POE kernel

$self

A handle to the current object.

$frame

The received STOMP frame.

SEE ALSO ^

 POE::Component::Client::Stomp

XAS

AUTHOR ^

Kevin L. Esteb, <kevin@kesteb.us>

COPYRIGHT AND LICENSE ^

Copyright (C) 2012 by Kevin L. Esteb

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.

syntax highlighting: