blob: f0ec3e608edb8e09b511644c181ae40612b3f52b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
use 5.008003; use MooseX::Declare; class Thread::Task::Worker extends Thread::Task::Thread { use TryCatch; use MooseX::Types::Moose qw(Object Bool Int ArrayRef); use Thread::Task::Types qw(Handle_T Worker_T Task_T Conduit_T Finished_ET); has hid => ( isa => Int, is => 'rw', predicate => 'has_hid', clearer => 'clear_hid', required => 0, ); method task(ArrayRef $task_array) { require Thread::Task::Handle; my $handle = Thread::Task::Handle->from_array($task_array); try { $handle->started; $handle->run; $handle->stopped; } catch {
} return; } } 1;
|