This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Initial check-in of Thread module.
[perl5.git] / join.t
1 use Thread;
2 sub foo {
3     print "In foo with args: @_\n";
4     return (7, 8, 9);
5 }
6
7 print "Starting thread\n";
8 $t = new Thread \&foo, qw(foo bar baz);
9 print "Joining with $t\n";
10 @results = $t->join();
11 print "Joining returned @results\n";