File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Config.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	2	4	50.0
condition	7	8	87.5
subroutine	12	12	100.0
pod	0	1	0.0
total	52	56	92.8

use strict;
use warnings;

use Moo;
use Carp;
use Types::Standard qw(HashRef Bool);
use Types::Common::String qw(NonEmptyStr);
use namespace::clean;

has config => (
    is       => 'ro',
    isa      => HashRef,
    required => 1,
);

has session => (
    is       => 'ro',
    isa      => HashRef,
    required => 1,
);

has session_namespace => (
    is       => 'ro',
    isa      => NonEmptyStr,
    required => 1,
);

has messages => (
    is       => 'ro',
    isa      => HashRef,
    required => 1,
    builder  => sub {
        return $_[0]->config->{messages} // {};
    }
);

has messages_validators => (
    is       => 'ro',
    isa      => HashRef,
    required => 1,
    builder  => sub {
        return $_[0]->messages->{validators} // {};
    }
);

has ucfirst => (
    is       => 'ro',
    isa      => Bool,
    lazy     => 1,
    builder  => sub {
        return $_[0]->messages->{ucfirst} // 1;
    }
);

has language => (
    is       => 'rw',
    isa      => NonEmptyStr,
    lazy     => 1,
    builder  => sub {
        return $_[0]->messages->{language} // 'en';
    }
);

    my ($self, %args) = @_;

    if (my $config = $args{config}) {
        if (my $session = $config->{session}) {
            $args{session}           = $session;
            $args{session_namespace} = $session->{namespace};
        }
    }

    return \%args;
}

1;