File Coverage

blib/lib/Dancer2/Plugin/FormValidator/Factory/Messages.pm

Criterion	Covered	Total	%
statement	40	41	97.5
branch	4	6	66.6
condition	4	6	66.6
subroutine	9	9	100.0
pod	0	1	0.0
total	57	63	90.4

use strict;
use warnings;

use Moo;
use Carp;
use Hash::MultiValue;
use Types::Standard qw(InstanceOf ConsumerOf);
use namespace::clean;

has config => (
    is       => 'ro',
    isa      => InstanceOf['Dancer2::Plugin::FormValidator::Config'],
    required => 1,
);

has registry => (
    is       => 'ro',
    isa      => InstanceOf['Dancer2::Plugin::FormValidator::Registry'],
    required => 1,
);

# Generates messages for each invalid field.
    my ($self, $invalid, $profile_messages) = @_;

    my $messages = Hash::MultiValue->new;
    my $config   = $self->config;
    my $ucfirst  = $config->ucfirst;
    my $language = $config->language;

    for my $item (@{ $invalid }) {
        my ($field, $name, $params) = @$item;

        my $validator = $self->registry->get($name);
        my $message = $self->config->messages_validators->{$name} || $validator->message;

        if (defined $profile_messages) {
            if (ref $profile_messages ne 'HASH') {
                Carp::croak("Messages should be a HashRef\n")
            }

            $message = $profile_messages->{$field}->{$name} || $message;
        }

        # Create and add message.
        {
            # Cause we need this feature.
            no warnings 'redundant';

            $messages->add(
                $field,
                sprintf(
                    $message->{$language},
                    $ucfirst ? ucfirst($field) : $field,
                    split(',', $params),
                )
            );
        }
    }

    return $messages->as_hashref_multi;
}

1;