File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Validator/LengthMin.pm
Criterion Covered Total %
statement 22 23 95.6
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod 0 2 0.0
total 31 35 88.5


line stmt bran cond sub pod time code
1              
2             use strict;
3 2     2   1313 use warnings;
  2         5  
  2         51  
4 2     2   9  
  2         5  
  2         77  
5             use Moo;
6 2     2   9 use utf8;
  2         4  
  2         9  
7 2     2   596 use Scalar::Util qw(looks_like_number);
  2         5  
  2         8  
8 2     2   49 use namespace::clean;
  2         5  
  2         91  
9 2     2   11  
  2         4  
  2         10  
10             with 'Dancer2::Plugin::FormValidator::Role::Validator';
11              
12             return {
13             en => '%s must be at least %d characters long',
14             ru => '%s должно содержать не менее %d символов',
15 1     1 0 1304 de => '%s muss mindestens %d Zeichen enthalten',
16             };
17             }
18              
19             my ($self, $field, $input, $min) = @_;
20              
21             if ($self->_field_defined_and_non_empty($field, $input)) {
22 3     3 0 8 return length($input->{$field}) >= $min;
23             }
24 3 50       10  
25 3         30 return 1;
26             }
27              
28 0           1;