File Coverage

blib/lib/Valiemon/Attributes/Required.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	5	6	83.3
condition	5	6	83.3
subroutine	9	9	100.0
pod	0	2	0.0
total	48	52	92.3

package Valiemon::Attributes::Required;
use strict;
use warnings;
use utf8;
use parent qw(Valiemon::Attributes);

use Carp qw(croak);
use List::MoreUtils qw(all);

sub attr_name { 'required' }

sub is_valid {
    my ($class, $context, $schema, $data) = @_;

    return 1 unless ref $data eq 'HASH'; # ignore

    my $required = $schema->{required};
    $context->in_attr($class, sub {
        if (ref $required ne 'ARRAY' || scalar @$required < 1) {
            croak sprintf '`required` must be an array and have at leas one element at %s', $context->position
        }
        all {
            my $prop_def = $schema->{properties}->{$_};
            my $has_default = $prop_def && do {
                # resolve $ref TODO refactor
                my $definition = $prop_def->{'$ref'} ? $context->rv->resolve_ref($prop_def->{'$ref'}) : $prop_def;
                $definition->{default};
            };
            $has_default || exists $data->{$_}
        } @$required;
    });
}

1;