our @EXPORT_OK = qw/ _values_eq /;
sub process {
my ( $self, $params ) = @_;
my $others = $self->others;
return if !defined $others;
my $name = $self->name;
my $value = $params->{$name};
my @names = ref $others ? @{$others} : ($others);
my @failed;
for my $eq_name (@names) {
my $ok = _values_eq( $value, $params->{$eq_name} );
push @failed, $eq_name
if $self->not ? $ok : !$ok;
}
return $self->mk_errors( {
pass => @failed ? 0 : 1,
failed => \@failed,
names => \@names,
} );
}
sub _values_eq {
my ( $v1, $v2 ) = @_;
return 1 if !defined $v1 && !defined $v2;
if ( !ref $v1 && !ref $v2 ) {
return 1 if $v1 eq $v2;
}
elsif ( ref $v1 && ref $v2 ) {
return _arrays_eq( $v1, $v2 );
}
return;
}
sub _arrays_eq {
my @a1 = sort @{ $_[0] };
my @a2 = sort @{ $_[1] };
return if scalar @a1 != scalar @a2;
for my $i ( 0 .. $#a1 ) {
return if $a1[$i] ne $a2[$i];
}
return 1;
}
1;