File Coverage

blib/lib/XAS/Service/CheckParameters.pm

Criterion	Covered	Total	%
statement	3	19	15.7
branch	0	6	0.0
condition	0	4	0.0
subroutine	1	2	50.0
pod	1	1	100.0
total	5	32	15.6

package XAS::Service::CheckParameters;

our $VERSION = '0.01';

use XAS::Class
  debug     => 0,
  version   => $VERSION,
  base      => 'XAS::Base',
  utils     => ':validation dotid',
  codec     => 'JSON',
  constants => 'HASHREF',
  mixins    => 'check_parameters',
;

#use Data::Dumper;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub check_parameters {
    my $self = shift;
    my ($params, $type) = validate_params(\@_, [
        { type => HASHREF },
        1,
    ]);

    my @errors;
    my $results = $self->profile->check($params, $type);
    my $valids  = $results->valid();

    if ($results->has_missing) {

        for my $f ($results->missing) {

            my $error = {
                id  => $f,
                msg => $results->msgs->{'missing'} || 'is missing',
            };

            push(@errors, $error);

        }

    }

    if ($results->has_invalid) {

        for my $f ($results->invalid) {

            my $error = {
                id  => $f,
                msg => $results->msgs->{$f} || 'is invalid',
            };

            push(@errors, $error);

        }

    }

    if (scalar(@errors) > 0) {

        $self->throw_msg(
            dotid($self->class) . '.check_parameters.' . $type,
            'errors',
            encode(@errors)
        );

    }

    return $valids;

}

1;

__END__