POE::Component::Lightspeed POE::Component::Lightspeed - the romping grounds of IKC2.
Download

POE::Component::Lightspeed Ranking & Summary

POE::Component::Lightspeed Tags

Perl module component Poe POE Component romping grounds IKC2

POE::Component::Lightspeed Description

POE::Component::Lightspeed - the romping grounds of IKC2. POE::Component::Lightspeed - the romping grounds of IKC2.SYNOPSIS use POE; use POE::Component::Lightspeed::Client; # Create a new client session POE::Component::Lightspeed::Client->spawn( 'KERNEL' => 'testbox', 'ADDRESS' => '192.168.1.100', ); # Create our own session to communicate with Lightspeed POE::Session->create( inline_states => { _start => sub { $_->alias_set( 'mysession' ); # Yes, a better way to "monitor" Lightspeed is on the way... # For now, just give POE some time to connect $_->delay_set( 'do_stuff', 5 ); # Demonstration of Lightspeed hackery $_->delay_set( 'confused', 1 ); }, 'do_stuff' => sub { # Perfect $_->post( 'poe://otherbox/mysession/ping', 'how are you?' ); # Wrong #$_->post( 'poe://otherbox/mysession', 'ping', 'how are you?' ); }, 'pong' => sub { print "Received 'pong' from " . $_->ID . "n"; }, 'confused' => sub { # Is this a lightspeed session? if ( $_->is_lightspeed ) { # Yay! print "Received Lightspeed request from: '"; } else { print "Received regular request from: '"; } print $_->ID . "' State '" . $_ . "' File '" . $_ . "' Line '" . $_ . "'n"; }, ); -------- use POE; use POE::Component::Lightspeed::Server; # Create a new server session POE::Component::Lightspeed::Server->spawn( 'KERNEL' => 'otherbox', 'ADDRESS' => '192.168.1.100', ); # Create our own session to listen for requests from Lightspeed POE::Session->create( inline_states => { _start => sub { $_->alias_set( 'mysession' ); }, 'ping' => sub { print "Received 'ping' from " . $_->ID . " -> " . $_ . "n"; # Perfect $_->post( $_, 'pong', 'wassup!' ); $_->post( $_->ID, 'pong', 'wazzup!' ); # Wrong #$_->post( "$_", 'ping', 'wassup!' ); # Demonstration of Lightspeed hackery $_->post( 'poe://testbox/mysession/confused', 'huH!' ); }, }, );Requirements:· PerlWhat's New in This Release:· Added POE-0.3101 support· Bumped versions of modules so the PAUSE indexer won't complain about it being a lower version

POE::Component::Lightspeed Related Software