diff options
author | dakkar <dakkar@thenautilus.net> | 2010-07-11 21:01:28 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2010-07-11 21:01:28 +0100 |
commit | c2d0c48a19f33c5145350c52d115c4b8b17a8a54 (patch) | |
tree | 71cee3f517e00080daff115921c247f65929bf0c /lib/Thread/Task/Thread.pm | |
parent | start (diff) | |
download | Thread-Task-c2d0c48a19f33c5145350c52d115c4b8b17a8a54.tar.gz Thread-Task-c2d0c48a19f33c5145350c52d115c4b8b17a8a54.tar.bz2 Thread-Task-c2d0c48a19f33c5145350c52d115c4b8b17a8a54.zip |
now it compiles
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; } |