File Coverage

blib/lib/Input/Validator/Constraint/Equal.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition	11	12	91.6
subroutine	5	5	100.0
pod	1	2	50.0
total	34	36	94.4

package Input::Validator::Constraint::Equal;

use strict;
use warnings;

use base 'Input::Validator::Constraint';

sub is_multiple {1}

sub is_valid {
    my ($self, $values) = @_;

    my $e = shift @$values;

    foreach (@$values) {
        return 0
          unless (!defined $e && !defined $_)
          || (defined $e && defined $_ && $e eq $_);
    }

    return 1;
}

1;
__END__