Help for this page

Select Code to Download

Select or download this

  my $thr_pm    = threads->create( \&print_manager )->detach();
  my $thr_tm    = threads->create( \&thread_timer )->detach();

Select or download this

  for ( 1..$DEFAULTS->{'max_threads'} ) {
    my $q_work = Thread::Queue->new();
    my $thr = threads->create( \&thread_worker, $q_work );
    $work_queues{$thr->tid()} = $q_work;
  } ## end for max_threads.