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;