use Moose::Meta::TypeCoercion::Union;
+use List::MoreUtils qw(all);
use List::Util qw(first);
-our $VERSION = '1.16';
-$VERSION = eval $VERSION;
-our $AUTHORITY = 'cpan:STEVAN';
-
use base 'Moose::Meta::TypeConstraint';
__PACKAGE__->meta->add_attribute('type_constraints' => (
};
}
+sub can_be_inlined {
+ my $self = shift;
+
+ return all { $_->can_be_inlined } @{ $self->type_constraints };
+}
+
+sub _inline_check {
+ my $self = shift;
+ my $val = shift;
+
+ return
+ join ' || ', map { '(' . $_->_inline_check($val) . ')' }
+ @{ $self->type_constraints };
+};
+
+sub inline_environment {
+ my $self = shift;
+
+ return { map { %{ $_->inline_environment } }
+ @{ $self->type_constraints } };
+}
sub equals {
my ( $self, $type_or_name ) = @_;
1;
+# ABSTRACT: A union of Moose type constraints
+
__END__
=pod
-=head1 NAME
-
-Moose::Meta::TypeConstraint::Union - A union of Moose type constraints
-
=head1 DESCRIPTION
This metaclass represents a union of type constraints. A union takes
See L<Moose/BUGS> for details on reporting bugs.
-=head1 AUTHOR
-
-Stevan Little E<lt>stevan@iinteractive.comE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright 2006-2010 by Infinity Interactive, Inc.
-
-L<http://www.iinteractive.com>
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
=cut