Lines Matching refs:Thread

15 use Thread qw(:DEFAULT async yield);
33         my $self = Thread->self;
41         $thr = Thread->new(\&thr_sub);
43         isa_ok($thr, 'Thread');
45         ok(! $thr->done(), 'Thread running');
48         my ($thr2) = Thread->list;
54     ok($thr->done(), 'Thread done');
60     my $thr = async { Thread->self->tid; };
61     isa_ok($thr, 'Thread');
72         return Thread->self->tid;
78         $thr = Thread->new(\&thr_wait);
79         isa_ok($thr, 'Thread');
80         ok(! $thr->done(), 'Thread running');
92     ok($thr->done(), 'Thread done');