projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
48ca3047b98b7949ca474b4307c54c88b7723cdb
[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;