ext/Thread/create.tx

BEGIN {
    eval { require Config; import Config };
    if ($@) {
        print "1..0 # Skip: no Config\n";
        exit(0);
    }
}

use Thread 'async';
use Config;
use Tie::Hash;

sub start_here {
    my $i;
    print "In start_here with args: @_\n";
    for ($i = 1; $i <= 5; $i++) {
        print "start_here: $i\n";
        sleep 1;
    }
}

async {
    tie my(%h), 'Tie::StdHash';
    %h = %Config;
    print "running on $h{archname}\n";
};

print "Starting new thread now\n";
$t = new Thread \&start_here, qw(foo bar baz);
print "Started thread $t\n";
for ($count = 1; $count <= 5; $count++) {
    print "main: $count\n";
    sleep 1;
}
Revision:	1.1
Committed:	Thu Jun 30 14:27:05 2005 UTC (21 years, 3 months ago) by root
Branch:	MAIN
CVS Tags:	PERL-5-8-7, HEAD
Branch point for:	PERL
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.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 'async';
10			use Config;
11			use Tie::Hash;
12
13			sub start_here {
14			my $i;
15			print "In start_here with args: @_\n";
16			for ($i = 1; $i <= 5; $i++) {
17			print "start_here: $i\n";
18			sleep 1;
19			}
20			}
21
22			async {
23			tie my(%h), 'Tie::StdHash';
24			%h = %Config;
25			print "running on $h{archname}\n";
26			};
27
28			print "Starting new thread now\n";
29			$t = new Thread \&start_here, qw(foo bar baz);
30			print "Started thread $t\n";
31			for ($count = 1; $count <= 5; $count++) {
32			print "main: $count\n";
33			sleep 1;
34			}