Help for this page

Select Code to Download


  1. or download this
    use Thread::Queue;

...
#    now do yer thang...when you get a "shutdown event":
#
$queues{$killtid}->enqueue('Kill job');
  2. or download this
    sub run {
    my $q = shift;
...
#
    }
}
  3. or download this
    
package WorkerResource;
...

my $result = $q->wait($msgid);