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.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.pm')
-rw-r--r-- | lib/Thread/Task.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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) { |