[p5sagit/p5-mst-13.2.git] / ext / Thread / Thread.pm

package Thread;
require Exporter;
require DynaLoader;
use vars qw($VERSION @ISA @EXPORT);

$VERSION = "1.0";

@ISA = qw(Exporter DynaLoader);
@EXPORT_OK = qw(yield cond_signal cond_broadcast cond_wait async);

#
# Methods
#

#
# Exported functions
#
sub async (&) {
    return new Thread $_[0];
}

sub eval {
    return eval { shift->join; };
}

bootstrap Thread;

1;
Commit	Line	Data
d9bb3666	1	package Thread;
	2	require Exporter;
	3	require DynaLoader;
52e1cb5e	4	use vars qw($VERSION @ISA @EXPORT);
	5
	6	$VERSION = "1.0";
	7
d9bb3666	8	@ISA = qw(Exporter DynaLoader);
8f4f90ac	9	@EXPORT_OK = qw(yield cond_signal cond_broadcast cond_wait async);
734689b1	10
	11	#
	12	# Methods
	13	#
	14
	15	#
	16	# Exported functions
	17	#
	18	sub async (&) {
	19	return new Thread $_[0];
	20	}
d9bb3666	21
458fb581	22	sub eval {
	23	return eval { shift->join; };
	24	}
	25
d9bb3666	26	bootstrap Thread;
d9bb3666	27
d9bb3666	28	1;