File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Extension/Password/Simple.pm
Criterion Covered Total %
statement 13 14 92.8
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 19 23 82.6


line stmt bran cond sub pod time code
1              
2             use Moo;
3 2     2   130742 use utf8;
  2         5889  
  2         9  
4 2     2   1988 use namespace::clean;
  2         23  
  2         11  
5 2     2   417  
  2         10330  
  2         44  
6             with 'Dancer2::Plugin::FormValidator::Role::Validator';
7              
8             return {
9             en => '%s must be minimum 8 characters long and contain at least one letter and one number',
10             ru => '%s должен иметь длину не менее 8 символов и состоять хотя бы из одной буквы и числа',
11 1     1 0 1519 de => '%s muss mindestens 8 Zeichen lang sein und mindestens einen Buchstaben und eine Zahl enthalten',
12             };
13             }
14              
15             my ($self, $field, $input) = @_;
16              
17             if (exists $input->{$field}) {
18 3     3 0 623 return $input->{$field} =~ /^(?=.*[A-Za-z])(?=.*\d)[A-Za-z\d\@\$!%*#?&]{8,}$/;
19             }
20 3 50       11  
21 3         26 return 1;
22             }
23              
24 0           1;