lib/Thread/Task/Types.pm


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

package Thread::Task::Types; 
use MooseX::Types
    -declare =>
    [qw(
           Handle_T
           Worker_T
           Task_T
           TaskRev_T
           Manager_T
           Conduit_T
           Finished_ET
           Queue_T
           Queue_Ev_T
   )];
use MooseX::Types::Moose qw(Int);
 
class_type Handle_T, { class => 'Thread::Task::Handle' };
class_type Worker_T, { class => 'Thread::Task::Worker' };
class_type Task_T, { class => 'Thread::Task' };
class_type Manager_T, { class => 'Thread::Task::Manager' };
 
subtype TaskRev_T, as Int;
 
role_type Conduit_T, { role => 'Thread::Task::Role::Conduit' };
 
class_type Finished_ET, { class => 'Thread::Task::Exception::Finished' };
 
class_type Queue_T, { class => 'Thread::Queue' };
class_type Queue_Ev_T, { class => 'Thread::Queue::Event' };
 
1;