Commit | Line | Data |
---|---|---|
d9bb3666 | 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(); | |
458fb581 | 11 | print "Joining returned ", scalar(@results), " values: @results\n"; |