Branch Coverage

blib/lib/Config/Model/Node.pm
Criterion Covered Total %
branch 145 208 69.7


line true false branch
143 5 0 $self->parent ? :
6 5 $self->backend_mgr ? :
151 632 132 defined $self->parent ? :
173 2 3668 unless (defined $element_info)
174 1 1 if ($check eq 'yes') { }
187 0 3668 unless ref $element_info eq "HASH"
194 0 3668 unless defined $element_info->{'type'}
199 0 3668 unless defined $method
215 0 183 unless defined $element_info->{'config_class_name'}
255 1 2790 unless (defined *{$leaf_class . "::";})
280 0 568 unless defined $type
286 0 568 unless defined $id_class_hash{$type}
291 81 487 unless (defined *{$id_class . "::";})
314 0 3056 if defined $self->{'model'}{$bad}
321 1212 7218 if defined $info_to_move
333 0 8430 unless defined $legal_properties{$prop}{$prop_v}
340 21785 722 if $self->{'initialized'}
345 629 93 unless defined $model->{'rw_config'}
370 0 27 if ($self->location and $args{'config_file'})
406 17 1 unless defined $self->backend_mgr
436 0 4042 unless (defined $name)
443 3962 80 if $autoadd
444 224 3818 unless defined $self->{'model'}{'element'}{$name}
445 3816 2 unless defined $type
446 1 1 $self->{'model'}{'element'}{$name}{'type'} eq $type ? :
452 0 0 unless defined $name
455 0 0 if defined $self->{'model'}{'element'}{$name}
458 0 0 if (defined $args{'case'} and $args{'case'} eq "any")
460 0 0 if lc $elt eq lc $name
466 0 0 if defined $self->{'model'}{'element'}{$name}
477 0 12462 unless $name
481 0 12462 unless defined $element_info
496 0 1495 if (delete $args{'for'})
510 21 1474 if ($args{'all'})
512 21 0 wantarray ? :
523 2240 6370 unless defined $self->{'element'}{$elt}
525 93 8517 if $self->{'level'}{$elt} eq "hidden"
528 56 8461 if $status eq "deprecated" or $status eq "obsolete"
532 8335 126 if (!defined($type) || $type eq $elt_type and !defined($cargo_type) || $cargo_type eq $elt_cargo)
540 1474 0 wantarray ? :
552 74 165 if $args{'reverse'}
555 201 38 defined $element && $element ? :
558 206 840 if ($found_elt)
562 203 3 if $self->is_element_available("name", $name, "status", $args{'status'})
564 201 642 if defined $element and $element eq $name
567 0 36 unless $found_elt
614 0 31745 unless defined $prop_values
624 0 20754 unless defined $element_name
636 1430 19324 unless (defined $self->{'element'}{$element_name})
639 1429 1 if $autoadd
640 1 1420 unless $self->create_element("name", $element_name, "check", $check)
649 4 20740 if ($element_level eq "hidden" and not $accept_hidden)
650 0 4 if $check eq "no" or $check eq "skip"
659 1 20739 if ($self->{'status'}{$element_name} eq "obsolete")
664 0 1 if $check eq "no" or $check eq "skip"
672 19 20720 if ($self->{'status'}{$element_name} eq "deprecated" and $check eq "yes")
675 11 8 unless ($self->was_element_warned($element_name))
697 0 464 @args > 1 ? :
701 0 464 if ($self->element_type($element_name) ne "leaf")
721 6 4908 if (@args == 1) { }
727 200 4708 if defined $args{'status'}
730 0 4914 unless defined $elt_name
751 16 4898 if ($element_level eq "hidden")
761 0 4898 if ($element_status ne "standard" and $element_status ne $status)
774 5171 220 if defined $model_data->{$name}
778 25 195 if $acc
787 0 221 unless defined $self->{'model'}{'accept'}
793 38 26 unless $name =~ /^$accept_regexp$/u
796 14 12 if ($has_tld and $element_list and @$element_list)
800 4 10 if ($dist < 3)
820 0 5 unless $self->{'model'}{'accept_list'}
832 50 0 unless defined $moved_data
846 3 22 if ($accept_after) { }
860 0 0 defined $self->{'model'}{'element'}{$element_name} ? :
872 0 7 unless length $path
877 1 6 unless defined $elt
878 1 5 if $elt->get_type ne 'leaf' || $get_obj and not defined $new_path
885 0 2 if ($item =~ /([\w\-]+)\[(\d+)\]/u) { }
897 398 0 if (defined $args{'step'} or defined $args{'steps'})
913 0 131 if (not defined $raw_perl_data or ref $raw_perl_data ne "HASH")
921 0 0 if $check eq "yes"
942 339 331 unless defined $perl_data->{$elt}
944 331 0 if ($self->is_element_available('name', $elt) or $check eq 'no') { }
0 0 elsif ($check eq 'skip') { }
946 27 304 if ($logger->is_trace)
947 27 0 defined $perl_data->{$elt} ? :
955 331 0 if ($obj) { }
0 0 elsif (defined $obj) { }
979 131 0 if (defined $self->{'model'}{'accept'})
988 0 12 unless $obj
990 12 0 if defined $obj
994 0 131 if (%$perl_data and $check eq "yes")
1008 0 154 if ($full)
1060 79 45 if ($elt_name)
1061 0 79 unless ($tag =~ /^(summary|description)$/u)
1067 44 1 if ($tag)
1079 0 2 if (@rexp)
1093 45 93 $filter ? :
1098 91 36 if &$do_apply($element_name)
1104 0 3 unless @keys
1110 3 0 if &$do_apply($element)
1116 3 8 unless @keys
1119 8 0 if &$do_apply($element)
1147 5 5 unless @keys