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] / Thread.pm
CommitLineData
d9bb3666
MB
1package Thread;
2require Exporter;
3require DynaLoader;
4@ISA = qw(Exporter DynaLoader);
5@EXPORT_OK = qw(sync fast yield);
6
7warn "about to bootstrap Thread\n";
8bootstrap Thread;
9
10my $cv;
11foreach $cv (\&yield, \&sync, \&join, \&fast,
12 \&waituntil, \&signal, \&broadcast) {
13 warn "Thread.pm: calling fast($cv)\n";
14 fast($cv);
15}
16
17sync(\&new); # not sure if this needs to be sync'd
18sync(\&Thread::Cond::new); # this needs syncing because of condpair_table
19
201;