File Coverage

blib/lib/Valiemon/Attributes/AdditionalProperties.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	6	66.6
condition			n/a
subroutine	9	9	100.0
pod	0	2	0.0
total	41	45	91.1

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

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

sub attr_name { 'additionalProperties' }

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

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

    my $additionalProperties = $schema->{additionalProperties};
    return 1 unless defined $additionalProperties;
    return 1 if $additionalProperties;

    my $properties = $schema->{properties};
    $context->in_attr($class, sub {
        all {
            exists $properties->{$_};
        } keys %$data;
    });
}

1;