return 0;
}
+# See also Moose::Meta::TypeConstraint::Parameterizable
+sub parameterize{
+ my($self, $param, $name) = @_;
+
+ if(!ref $param){
+ require Mouse::Util::TypeConstraints;
+ $param = Mouse::Util::TypeConstraints::find_or_create_isa_type_constraint($param);
+ }
+
+ $name ||= sprintf '%s[%s]', $self->name, $param->name;
+
+ my $generator = $self->{constraint_generator}
+ || Carp::confess("The $name constraint cannot be used, because $param doesn't subtype from a parameterizable type");
+
+ return Mouse::Meta::TypeConstraint->new(
+ name => $name,
+ parent => $self,
+ constraint => $generator->($param),
+
+ type => 'Parameterized',
+ );
+}
1;
__END__
my $name = sprintf '%s[%s]', $base->name, $param->name;
- $TYPE{$name} ||= do{
- my $generator = $base->{constraint_generator};
-
- if(!$generator){
- confess("The $name constraint cannot be used, because $param doesn't subtype from a parameterizable type");
- }
-
- Mouse::Meta::TypeConstraint->new(
- name => $name,
- parent => $base,
- constraint => $generator->($param),
-
- type => 'Parameterized',
- );
- }
+ $TYPE{$name} ||= $base->parameterize($param, $name);
}
+
sub _find_or_create_union_type{
my @types = sort map{ $_->{type_constraints} ? @{$_->{type_constraints}} : $_ } @_;
my $name = join '|', @types;
- $TYPE{$name} ||= do{
- return Mouse::Meta::TypeConstraint->new(
- name => $name,
- type_constraints => \@types,
+ $TYPE{$name} ||= Mouse::Meta::TypeConstraint->new(
+ name => $name,
+ type_constraints => \@types,
- type => 'Union',
- );
- };
+ type => 'Union',
+ );
}
# The type parser