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.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/lib/Thread/Task.pm b/lib/Thread/Task.pm
index 9966634..35976c6 100644
--- a/lib/Thread/Task.pm
+++ b/lib/Thread/Task.pm
@@ -2,8 +2,8 @@ use 5.008003;
 use MooseX::Declare;
 
 class Thread::Task {
-    use MooseX::Types::Moose qw(Object);
-    use Thread::Task::Types qw(Handle_T);
+    use MooseX::Types::Moose qw(ClassName Str Int);
+    use Thread::Task::Types qw(Handle_T Task_T);
 
     require Storable;
 
@@ -36,7 +36,7 @@ class Thread::Task {
         clearer => 'clear_handle',
     );
 
-    around BUILDARGS (Class $class,@rest) {
+    around BUILDARGS(ClassName $class: @rest) {
         my $params = $class->$orig(@rest);
 
         if (exists $params->{owner}) {
@@ -90,7 +90,7 @@ class Thread::Task {
         Storable::nfreeze($self);
     }
 
-    method from_string(Class $class: Str $serialization) {
+    method from_string(ClassName $class: Str $serialization) {
         my $self=Storable::nthaw($serialization);
         my $self_class=$self->meta->name;
         unless ($self_class eq $class) {
-- 
cgit v1.2.3