POE-Component-Server-SimpleHTTP-PreFork
view release on metacpan or search on metacpan
t/03_prefork_stream.t view on Meta::CPAN
}
sub quit {
POE::Kernel->call('HTTPD', 'SHUTDOWN');
exit;
}
sub GOT_STREAM {
my ( $kernel, $heap, $response ) = @_[KERNEL, HEAP, ARG0];
# lets go on streaming ...
if ($heap->{'count'} <= 2) {
my $text = "Hello World ".$heap->{'count'}." \n";
# print "send ".$text."\n";
$response->content($text);
$heap->{'count'}++;
POE::Kernel->post('HTTPD', 'STREAM', $response);
}
else {
POE::Kernel->post('HTTPD', 'CLOSE', $response );
( run in 0.252 second using v1.01-cache-2.11-cpan-4d50c553e7e )