Commit | Line | Data |
609f3ea9 |
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 | sleep 2; |
10 | print "Joining with $t\n"; |
11 | @results = $t->join(); |
12 | print "Joining returned @results\n"; |