%options,
);
- $self->_set_constraint(sub { $self->check($_[0]) });
+ $self->_set_constraint( $self->_compiled_type_constraint );
return $self;
}
return @other_constraints == 0;
}
-sub parents {
+sub parent {
my $self = shift;
- $self->type_constraints;
+
+ my ($first, @rest) = @{ $self->type_constraints };
+
+ for my $parent ( $first->_collect_all_parents ) {
+ return $parent if all { $_->is_a_type_of($parent) } @rest;
+ }
+
+ return;
}
sub validate {
This returns the array reference of C<type_constraints> provided to
the constructor.
-=item B<< $constraint->parents >>
+=item B<< $constraint->parent >>
-This returns the same constraint as the C<type_constraints> method.
+This returns the nearest common ancestor of all the components of the union.
=item B<< $constraint->check($value) >>