File Coverage

blib/lib/Test/Proto/Alternation.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	15	16	93.7

package Test::Proto::Alternation;
use strict;
use warnings;
use Moo;

has 'alternatives',
	is      => 'rw',
	default => sub { [] };

sub BUILDARGS {
	my $class = shift;
	return { alternatives => [@_] };
}

around 'alternatives' => \&Test::Proto::Common::chainable;

=head1 NAME

Test::Proto::Alternation - represent an alternation in array validation

=head1 SYNOPSIS

	pArray->contains_only(pAlternation('a', pSeries('b', 'c')));
	# will validate ['a'] and ['b', 'c'] as true

Used in array validation to represent different options. Equivalent to C<|> in a regular expression. There is no limit to the number of alternatives which may be specified, but there must be at least one. This can handle nested L and L elements, and can be nested within them.

For single-item alternation consider using C.

=head1 METHODS

=head3 new

Each argument is a different alternative.

=head3 alternatives

	die unless exists $alternation->alternatives->[0];

A chainable getter/setter method for the different alternatives available to the alternation.

=cut

1;