File Coverage

lib/Params/Profile/Data_FormValidator.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	3	4	75.0
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	30	37	81.0

package Params::Profile::Data_FormValidator;

use strict;
use Data::FormValidator;

our $VERSION = $Params::Profile::VERSION;

=head1 NAME

Params::Profile::Data_FormValidator - Backend module for Params::Profile

=head1 SYNOPSIS

See C

=head1 DESCRIPTION

C methods for C

=cut

### params = HASHREF, profiles = ARRAYREF
sub validate {
    my ($self, $params, %profile) = @_;
    Data::FormValidator->check($params, \%profile)->is_success;
}

sub _merge_profiles {
    my ($self, @profiles) = @_;

    ### Insert first profile in (tobe) merged_profile
    my $merged_profile = shift(@profiles);
    foreach my $profile (@profiles) {
        foreach my $key (keys %{$profile}) {
            if (UNIVERSAL::isa($profile->{$key}, 'ARRAY')) {
                push(
                        @{ $merged_profile->{$key} },
                        @{ $profile->{$key} }
                    );
            } elsif (UNIVERSAL::isa($profile->{$key}, 'HASH')) {
                $merged_profile->{$key}->{$_} = $profile->{$key}->{$_}
                                for keys( %{ $profile->{$key} });
            }
        }
    }

    return $merged_profile;
}

sub get_profile {
    my ($self, $params, @profiles) = @_;
    return $self->_merge_profiles(@profiles);
}

sub check {
    my ($self, $params, %profile) = @_;
    Data::FormValidator->check($params, \%profile);
}

1;

__END__