in reply to Re: POE modules advice
in thread POE modules advice
sub worker{ my $self = shift; while( my $task = $some_queue->dequeue ) { # do_something() can print debug output to STDOUT my $result = $self->do_something(); my $status = { result => $result, time => time(), worker_id => + $self->id}; $self->update_status( $status); } }
sub parent { my $self = shift; $some_queue->enqueue( $new_task); } sub update_status_event{ my $status = shift; # do something with status #... }
|
|---|