| Hoppy documentation | Contained in the Hoppy distribution. |
Hoppy::TCPHandler::Send - TCP handler class that will be used when Hoppy should send data to client.
TCP handler class that will be used when Hoppy should send data to client.
Takeshi Miki <miki@cpan.org>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Hoppy documentation | Contained in the Hoppy distribution. |
package Hoppy::TCPHandler::Send; use strict; use warnings; use base qw( Hoppy::Base ); sub do_handle { my $self = shift; my $poe = shift; my $message = shift; $message ||= $poe->args->[0]; my $heap = $poe->heap; if ( $heap->{client} ) { $heap->{client}->put($message); } } 1; __END__