File Coverage

blib/lib/Valiemon/Attributes/Type.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	3	4	75.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	0	2	0.0
total	40	46	86.9

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

use List::MoreUtils qw(any);

sub attr_name { 'type' }

sub is_valid {
    my ($class, $context, $schema, $data) = @_;
    $context->in_attr($class, sub {
        my $types = $schema->{type};

        my $is_valid = do {
            if (ref $types eq 'ARRAY') {
                any { $class->_check($context->prims, $_, $data) } @$types
            } else {
                $class->_check($context->prims, $types, $data);
            }
        };
        $is_valid;
    });
}

sub _check {
    my ($class, $prims, $type, $data) = @_;
    my $method = 'is_' . $type;
    $prims->can($method) && $prims->$method($data) ? 1 : 0;
}

1;