File Coverage

blib/lib/Valiemon/Attributes/Minimum.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	0	2	0.0
total	36	38	94.7

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

sub attr_name { 'minimum' }

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

    return 1 unless $context->prims->is_number($data); # skip on non-number value

    my $min = $schema->{minimum};
    my $exclusive = $schema->{exclusiveMinimum} || 0;
    $context->in_attr($class, sub {
        no warnings 'numeric';
        $exclusive ? $min < $data : $min <= $data;
    });
}

1;