view release on metacpan or  search on metacpan

t/thread.t  view on Meta::CPAN

  my $ret = $threads[$i]->join();
  ok($ret, "Thread $i Test");
}

for my $i (1..5) {
  my $key = "key_$i";
  my $value = "value_from_thread_$i";
  is($cache->get($key), $value, "Main: get $key");
}

sub update_worker {
  my ($thread_id) = @_;
  $cache->set("key", $thread_id);
  return 1;
}

my @update_threads;
my $num_threads = 5;
for my $i (1..$num_threads) {
  push @update_threads, threads->create(\&update_worker, $i);
}