summaryrefslogtreecommitdiff
path: root/lib/Thread/Task.pm
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2010-07-11 21:01:28 +0100
committerdakkar <dakkar@thenautilus.net>2010-07-11 21:01:28 +0100
commitc2d0c48a19f33c5145350c52d115c4b8b17a8a54 (patch)
tree71cee3f517e00080daff115921c247f65929bf0c /lib/Thread/Task.pm
parentstart (diff)
downloadThread-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.pm8
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) {