diff options
Diffstat (limited to 'lib/Thread/Task/Thread.pm')
-rw-r--r-- | lib/Thread/Task/Thread.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/Thread/Task/Thread.pm b/lib/Thread/Task/Thread.pm index 401992a..d3fa27a 100644 --- a/lib/Thread/Task/Thread.pm +++ b/lib/Thread/Task/Thread.pm @@ -5,7 +5,7 @@ class Thread::Task::Thread { use threads; use threads::shared; - use MooseX::Types::Moose qw(Int); + use MooseX::Types::Moose qw(ClassName Int); use Thread::Task::Types qw(Handle_T Worker_T Task_T Finished_ET Queue_T); @@ -19,12 +19,12 @@ class Thread::Task::Thread { my $SINGLETON; - method master(Class $class:) { + method master(ClassName $class:) { $SINGLETON or $class->new->spawn; } - method import(Class $class: @rest) { + method import(ClassName $class: @rest) { if (@rest && defined $rest[0] && $rest[0] eq ':master') { $class->master; } @@ -110,14 +110,14 @@ class Thread::Task::Thread { try { $self->$method(@$method); } - catch (Finished_ET) { + catch (Finished_ET $e) { last; } } return; } - method start_child(Thread_T $thread) { + method start_child($thread) { $thread->spawn; return; } |