4 @ISA = qw(Exporter DynaLoader);
5 @EXPORT_OK = qw(sync fast yield);
7 warn "about to bootstrap Thread\n";
11 foreach $cv (\&yield, \&sync, \&join, \&fast,
12 \&waituntil, \&signal, \&broadcast) {
13 warn "Thread.pm: calling fast($cv)\n";
17 sync(\&new); # not sure if this needs to be sync'd
18 sync(\&Thread::Cond::new); # this needs syncing because of condpair_table