File Coverage

blib/lib/Valiemon/Attributes/Enum.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	1	2	50.0
condition	1	3	33.3
subroutine	9	9	100.0
pod	0	2	0.0
total	36	42	85.7

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

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

sub attr_name { 'enum' }

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

    my $enum = $schema->{enum};
    $context->in_attr($class, sub {
        if (ref $enum ne 'ARRAY' || scalar @$enum < 1) {
            croak sprintf '`enum` must be an array and have at leas one element at %s', $context->position
        }

        any { $context->prims->is_equal($data, $_) } @$enum;
    });
}

1;