just restored some bits so that tests all pass, incase anyone wants to play with...

[gitmo/MooseX-Types-Structured.git] / lib / MooseX / Meta / TypeConstraint / Structured / Generator.pm

diff --git a/lib/MooseX/Meta/TypeConstraint/Structured/Generator.pm b/lib/MooseX/Meta/TypeConstraint/Structured/Generator.pm
index 8f9906c..9d65632 100755 (executable)
--- a/lib/MooseX/Meta/TypeConstraint/Structured/Generator.pm
+++ b/lib/MooseX/Meta/TypeConstraint/Structured/Generator.pm
@@ -19,7 +19,8 @@ sub parse_parameter_str {
 }
 
 sub parameterize {
-       my ($self, @contained_tcs) = @_;
+       my ($self, $parameter_string) = @_;
+       my @contained_tcs = $self->parse_parameter_str($parameter_string);
        my $tc_name = $self->name .'['. join(',', map {$_->name} @contained_tcs) .']';
        
        return $self->structured_type->new(