File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Validator/Same.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	4	6	66.6
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	37	45	82.2

use strict;
use warnings;

use Moo;
use utf8;
use namespace::clean;

with 'Dancer2::Plugin::FormValidator::Role::Validator';

    return {
        en => '%s must be the same as %s',
        ru => '%s должно совпадать со значением %s',
        de => '%s muss identisch mit %s sein',
    };
}

    my ($self, $field, $input, $field2) = @_;

    if ($self->_field_defined_and_non_empty($field, $input)) {
        if (exists $input->{$field2}) {
            return $self->_is_same_as($input->{$field}, $input->{$field2});
        }
        else {
            return 0;
        }
    }

    return 1;
}

    my ($self, $value1, $value2) = @_;

    if (defined $value1 and defined $value2) {
        return $value1 eq $value2;
    }

    return 0;
}

1;