Commit | Line | Data |
0a3e5ca2 |
1 | use Thread 'async'; |
2 | use Config; |
3 | use Tie::Hash; |
4 | |
d9bb3666 |
5 | sub start_here { |
6 | my $i; |
7 | print "In start_here with args: @_\n"; |
8 | for ($i = 1; $i <= 5; $i++) { |
9 | print "start_here: $i\n"; |
10 | sleep 1; |
11 | } |
12 | } |
13 | |
0a3e5ca2 |
14 | async { |
15 | tie my(%h), 'Tie::StdHash'; |
16 | %h = %Config; |
17 | print "running on $h{archname}\n"; |
18 | }; |
19 | |
d9bb3666 |
20 | print "Starting new thread now\n"; |
21 | $t = new Thread \&start_here, qw(foo bar baz); |
22 | print "Started thread $t\n"; |
23 | for ($count = 1; $count <= 5; $count++) { |
24 | print "main: $count\n"; |
25 | sleep 1; |
26 | } |