. $self->parent->name . " doesn't subtype or coerce from a parameterizable type.");
}
+sub create_childtype {
+ my ($self, %opts) = @_;
+
+ return Moose::Meta::TypeConstraint->new(%opts, parent => $self);
+
+ return $self->SUPER::create_subtype(
+ %opts,
+ type_parameter=>$self->type_parameter,
+ );
+}
+
1;
__END__
=item B<equals>
+=item B<create_childtype>
+
=back
=head1 BUGS