projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
AIX patch (including Configure support for {sched,pthread}_yield,
[p5sagit/p5-mst-13.2.git]
/
ext
/
Thread
/
Thread.pm
1
package Thread;
2
require Exporter;
3
require DynaLoader;
4
use vars qw($VERSION @ISA @EXPORT);
5
6
$VERSION = "1.0";
7
8
@ISA = qw(Exporter DynaLoader);
9
@EXPORT_OK = qw(yield cond_signal cond_broadcast cond_wait async);
10
11
#
12
# Methods
13
#
14
15
#
16
# Exported functions
17
#
18
sub async (&) {
19
return new Thread $_[0];
20
}
21
22
sub eval {
23
return eval { shift->join; };
24
}
25
26
bootstrap Thread;
27
28
1;