From c2d0c48a19f33c5145350c52d115c4b8b17a8a54 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 11 Jul 2010 21:01:28 +0100
Subject: now it compiles

---
 lib/Thread/Task/Thread.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'lib/Thread/Task/Thread.pm')

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;
     }
-- 
cgit v1.2.3