This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename perl_thread to perl_os_thread.
[perl5.git] / ext / Thread / Thread.pm
... / ...
CommitLineData
1package Thread;
2require Exporter;
3require DynaLoader;
4@ISA = qw(Exporter DynaLoader);
5@EXPORT_OK = qw(yield cond_signal cond_broadcast cond_wait async);
6
7#
8# Methods
9#
10
11#
12# Exported functions
13#
14sub async (&) {
15 return new Thread $_[0];
16}
17
18sub eval {
19 return eval { shift->join; };
20}
21
22bootstrap Thread;
23
241;