contrib/perl5/ext/Thread/die.t

   1 use Thread 'async';
   2
   3 $t = async {
   4     print "here\n";
   5     die "success";
   6     print "shouldn't get here\n";
   7 };
   8
   9 sleep 1;
  10 print "joining...\n";
  11 eval { @r = $t->join; };
  12 if ($@) {
  13     print "thread died with message: $@";
  14 } else {
  15     print "thread failed to die successfully\n";
  16 }