File Coverage

blib/lib/String/Validator/Language/FR.pm
Criterion Covered Total %
statement 6 11 54.5
branch 1 4 25.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 10 20 50.0


line stmt bran cond sub pod time code
1             package String::Validator::Language::FR ;
2             $String::Validator::Language::FR::VERSION = '2.00';
3             sub new {
4             return {
5             common_strings_not_match => 'Les chaînes de caractères ne correspondent pas.',
6             common_tooshort => " Ne respecte pas la longeur minimale imposée ",
7             common_toolong => " Ne respecte pas la longueur maximal imposée ",
8             password_mintypes => sub {
9 1     1   148 my $self = shift @_;
10 1         9 return "$self->{types_found} contraintes ont été trouvées, $self->{min_types} est requis.";
11             },
12             password_minoftype => sub {
13 0     0   0 my ( $required, $type ) = @_;
14 0 0       0 if ( $type eq 'num') { $type = 'numérique'}
  0         0  
15 0         0 return "A pire $required caractères de $type est requis.";
16             },
17             password_typeprohibit => sub {
18 1     1   352 my $type = shift @_;
19 1 50       8 if ( $type eq 'num') { $type = 'numérique'}
  0         0  
20 1         8 return "Caractères de $type est interdit."
21             },
22             }
23 3     3 0 2346 }
24              
25             1;
26              
27             __END__