summaryrefslogtreecommitdiff
path: root/lib/Thread/Task.pm
diff options
context:
space:
mode:
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) {