view release on metacpan or  search on metacpan

lib/QBit/Validator/Type/hash.pm  view on Meta::CPAN

    return $_[1]->{$_[0]} if defined($_[1]->{$_[0]});

    if ($_[2]->{$_[0]}) {
        return array_n_max(map {$_[1]->{$_} = _get_field_order($_, $_[1], $_[2])} @{$_[2]->{$_[0]}}) + 1;
    } else {
        return 0;
    }
}

#TODO: implement method _exists
# defined = required

sub fields {
    my ($qv, $fields, $template) = @_;

    my $parent = $qv->parent // $qv;
    my $path_manager = $parent->path_manager();

    my $path = $qv->path();

    my %validators = ();