File Coverage

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

Criterion	Covered	Total	%
statement	24	26	92.3
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	34	40	85.0

use strict;
use warnings;

use Moo;
use utf8;
use Scalar::Util qw(looks_like_number);
use namespace::clean;

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

    return {
        en => '%s must be no more %d characters long',
        ru => '%s должно содержать не более %d символов',
        de => '%s kann nicht mehr als %d Zeichen enthalten',
    };
}

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

    if ($self->_field_defined_and_non_empty($field, $input)) {
        my $maybe_str = $input->{$field};

        if (looks_like_number($maybe_str)) {
            return 0;
        }
        else {
            return length($maybe_str) <= $max;
        }
    }

    return 1;
}

1;