File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Config.pm
Criterion Covered Total %
statement 27 27 100.0
branch n/a
condition 11 12 91.6
subroutine 13 13 100.0
pod n/a
total 51 52 98.0


line stmt bran cond sub pod time code
1              
2             use strict;
3 17     17   522020 use warnings;
  17         64  
  17         401  
4 17     17   69  
  17         27  
  17         341  
5             use Moo;
6 17     17   2991 use Carp;
  17         36336  
  17         75  
7 17     17   10778 use Types::Standard qw(HashRef Bool);
  17         31  
  17         1209  
8 17     17   2866 use Types::Common::String qw(NonEmptyStr);
  17         505995  
  17         212  
9 17     17   21035 use namespace::clean;
  17         604740  
  17         192  
10 17     17   14239  
  17         164968  
  17         97  
11             has config => (
12             is => 'ro',
13             isa => HashRef,
14             required => 1,
15             );
16              
17             has session => (
18             is => 'ro',
19             isa => HashRef,
20             required => 1,
21             builder => sub {
22             return $_[0]->config->{session} // {};
23 17   100 17   546 }
24             );
25              
26             has session_namespace => (
27             is => 'ro',
28             isa => NonEmptyStr,
29             required => 1,
30             builder => sub {
31             return $_[0]->session->{namespace} // '_form_validator';
32 17   100 17   521 }
33             );
34              
35             has messages => (
36             is => 'ro',
37             isa => HashRef,
38             required => 1,
39             builder => sub {
40             return $_[0]->config->{messages} // {};
41 17   100 17   62250 }
42             );
43              
44             has messages_validators => (
45             is => 'ro',
46             isa => HashRef,
47             required => 1,
48             builder => sub {
49             return $_[0]->messages->{validators} // {};
50 17   100 17   583 }
51             );
52              
53             has ucfirst => (
54             is => 'ro',
55             isa => Bool,
56             lazy => 1,
57             builder => sub {
58             return $_[0]->messages->{ucfirst} // 1;
59 12   50 12   577 }
60             );
61              
62             has language => (
63             is => 'rw',
64             isa => NonEmptyStr,
65             lazy => 1,
66             builder => sub {
67             return $_[0]->messages->{language} // 'en';
68 11   100 11   359 }
69             );
70              
71             1;