summaryrefslogtreecommitdiff
path: root/lib/Thread/Task/Thread.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Thread/Task/Thread.pm')
-rw-r--r--lib/Thread/Task/Thread.pm10
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;
}