));
sub parents {
- my $self;
+ my $self = shift;
$self->parent;
}
return @parents;
}
-sub _ancestor_count {
- my $self = shift;
- return scalar $self->_collect_all_parents;
-}
-
sub create_child_type {
my ($self, %opts) = @_;
my $class = ref $self;
=item B<< $constraint->parents >>
-A synonym for C<parent>. This is useful for polymorphism with types
-that can have more than one parent.
+Returns all of the types parents as an list of type constraint objects.
=item B<< $constraint->constraint >>