X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FAction.pm;fp=lib%2FCatalyst%2FAction.pm;h=c0e2a43af64e42e28f3b5de954e2e8309a0eea6e;hp=fd4aa1cc0315b0d160bcd2328d52a424d97a61b6;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=9868e0a0023cc8b598d60f150ea367e0056a65f3 diff --git a/lib/Catalyst/Action.pm b/lib/Catalyst/Action.pm index fd4aa1c..c0e2a43 100644 --- a/lib/Catalyst/Action.pm +++ b/lib/Catalyst/Action.pm @@ -261,7 +261,7 @@ sub resolve_type_constraint { my $tc = Type::Registry->new->foreign_lookup($name); return defined $tc ? $tc : die "'$name' not a full namespace type constraint in ${\$self->private_path}"; } - + my @tc = grep { defined $_ } (eval("package ${\$self->class}; $name")); unless(scalar @tc) { @@ -289,10 +289,10 @@ sub resolve_type_constraint { } else { return; } - } + } } } - + my $classes = join(',', $self->class, @roles, @supers); die "'$name' not a type constraint in '${\$self->private_path}', Looked in: $classes"; } @@ -470,7 +470,7 @@ sub list_extra_info { Args => $self->normalized_arg_number, CaptureArgs => $self->number_of_captures, } -} +} __PACKAGE__->meta->make_immutable;