ext/Thread/join.tx

   1 BEGIN {
   2     eval { require Config; import Config };
   3     if ($@) {
   4         print "1..0 # Skip: no Config\n";
   5         exit(0);
   6     }
   7 }
   8
   9 use Thread;
  10 sub foo {
  11     print "In foo with args: @_\n";
  12     return (7, 8, 9);
  13 }
  14
  15 print "Starting thread\n";
  16 $t = new Thread \&foo, qw(foo bar baz);
  17 print "Joining with $t\n";
  18 @results = $t->join();
  19 print "Joining returned ", scalar(@results), " values: @results\n";