Jonathan Steinert > POE-Wheel-Multicast-0.00_01 > POE::Wheel::Multicast

Download:
POE-Wheel-Multicast-0.00_01.tar.gz

Dependencies

Annotate this POD (1)

Module Version: 0.00_01   Source  

NAME ^

POE::Wheel::Multicast - POE Wheel for multicast handling.

SYNOPSIS ^

  use POE;
  use POE::Wheel::Multicast;
  
  POE::Session->create(
    inline_states => {
      _start => sub {
        my $wheel = $_[HEAP]->{wheel} = POE::Wheel::Multicast->new(
          LocalAddr => '10.0.0.1',
          LocalPort => 1234,
          PeerAddr => '10.0.0.2',
          PeerPort => 1235,
          InputEvent => 'input',
        );
        $wheel->put(
          {
            payload => 'This datagram will go to the default address.',
          },
          {
            payload => 'This datagram will go to the explicit address and port I have paired with it.',
            addr => '10.0.0.3',
            port => 1236,
          },
        );
      },
      input => sub {
        my ($wheel_id, $input) = @_[ARG0, ARG1];
        print "Incoming datagram from $input->{addr}:$input->{port}: '$input->{payload}'\n";
      },
    }
  );

  POE::Kernel->run;

DESCRIPTION ^

POE Wheel for multicast handling. This is a subclass of POE::Wheel::UDP

Object Methods ^

$wheel->mcast_add( MADDR [, IFADDR] )

Events ^

InputEvent

ARG0

Contains a hashref with the following keys:

addr
port

Specifies the address and port from which we received this datagram.

payload

The actual contents of the datagram.

ARG1

The wheel id for the wheel that fired this event.

UPCOMING FEATURES ^

SEE ALSO ^

POE

AUTHOR ^

Jonathan Steinert <hachi@cpan.org>

COPYRIGHT AND LICENSE ^

Copyright (C) 2006 by Jonathan Steinert... or Six Apart... I don't know who owns me when I'm at home. Oh well.

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: