Thread::Queue模块的应用

殇19921011

    while (! $TERM) {
        # Check queue
        while (my $tid = $queue->dequeue_nb()) {
            if (! ($timers{$tid}{'timeout'} = $queue->dequeue()) ||
                ! ($timers{$tid}{'thread'}  = threads->object($tid)))
            {
                # No timeout - unregister thread
                delete($timers{$tid});
            }
        }

        # Cancel timed out threads
        foreach my $tid (keys(%timers)) {
            if (--$timers{$tid}{'timeout'} < 0) {
                $timers{$tid}{'thread'}->kill('KILL');
                delete($timers{$tid});
            }
        }
while (my $tid = $queue->dequeue_nb())这个地方应该是赋值，不知道   if (! ($timers{$tid}{'timeout'} = $queue->dequeue())这里是赋值还是判断，如果是赋值的话
dequeue_nb后在dequeue这样做有什么意义呢