X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FMeta%2FTypeConstraint%2FParameterizable.pm;h=176e52f0b15c30d3622022de6e76c6678e405f52;hb=aa009f06477b43cf1354ef04627d68f2459cf650;hp=4fdfbe69696b73d463fd23678d2aab049a485099;hpb=5a2e2383324b82ae887fc8bb73d0ce6e00808eb8;p=gitmo%2FMoose.git diff --git a/lib/Moose/Meta/TypeConstraint/Parameterizable.pm b/lib/Moose/Meta/TypeConstraint/Parameterizable.pm index 4fdfbe6..176e52f 100644 --- a/lib/Moose/Meta/TypeConstraint/Parameterizable.pm +++ b/lib/Moose/Meta/TypeConstraint/Parameterizable.pm @@ -48,16 +48,17 @@ sub parse_parameter_str { } sub parameterize { - my ($self, $contained_tc) = @_; + my ( $self, $contained_tc ) = @_; - if($contained_tc->isa('Moose::Meta::TypeConstraint')) { - my $tc_name = $self->name .'['. $contained_tc->name .']'; + if ( $contained_tc->isa('Moose::Meta::TypeConstraint') ) { + my $tc_name = $self->name . '[' . $contained_tc->name . ']'; return Moose::Meta::TypeConstraint::Parameterized->new( name => $tc_name, parent => $self, type_parameter => $contained_tc, - ); - } else { + ); + } + else { Moose->throw_error("The type parameter must be a Moose meta type"); } }