File Coverage

lib/Params/Profile/Params_Check.pm

Criterion	Covered	Total	%
statement	14	19	73.6
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	19	28	67.8

package Params::Profile::Params_Check;

use strict;
use Params::Check;

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

=head1 NAME

Params::Profile::Params_Check - 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) = @_;
    Params::Check::check(\%profile, $params);
}

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}) {
            $merged_profile->{$key} = $profile->{$key};
        }
    }

    return $merged_profile;
}

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

sub check {
    my ($self, $params, %profile) = @_;
    Params::Check::check(\%profile, $params);
}

1;

__END__