blib/lib/Config/Model/Node.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 83 | 136 | 61.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
370 | 72 | 27 | 0 | $self->location and $args{'config_file'} |
458 | 0 | 0 | 0 | defined $args{'case'} and $args{'case'} eq "any" |
532 | 0 | 8389 | 72 | !defined($type) || $type eq $elt_type and !defined($cargo_type) || $cargo_type eq $elt_cargo |
555 | 37 | 1 | 201 | defined $element && $element |
564 | 0 | 642 | 201 | defined $element and $element eq $name |
649 | 20716 | 24 | 4 | $element_level eq "hidden" and not $accept_hidden |
672 | 20658 | 62 | 19 | $self->{'status'}{$element_name} eq "deprecated" and $check eq "yes" |
761 | 4861 | 37 | 0 | $element_status ne "standard" and $element_status ne $status |
796 | 0 | 0 | 26 | $has_tld and $element_list |
0 | 12 | 14 | $has_tld and $element_list and @$element_list | |
878 | 2 | 3 | 1 | $elt->get_type ne 'leaf' || $get_obj and not defined $new_path |
994 | 131 | 0 | 0 | %$perl_data and $check eq "yes" |
line | l | !l | condition |
---|---|---|---|
94 | 4 | 0 | $self->gist // "" |
95 | 8 | 0 | $self->grab($1)->fetch // "" |
169 | 3670 | 0 | $args{'check'} || 'yes' |
175 | 0 | 1 | $self->location || 'configuration root' |
253 | 49 | 2742 | delete $element_info->{'class'} || 'Config::Model::Value' |
434 | 2849 | 1193 | $args{'autoadd'} // 1 |
481 | 0 | 0 | $self->location || 'configuration root' |
523 | 2095 | 145 | $args{'check'} || 'yes' |
628 | 5525 | 15229 | $args{'accept_hidden'} || 0 |
629 | 2641 | 18113 | $args{'autoadd'} // 1 |
870 | 2 | 5 | delete $args{'get_obj'} || 0 |
1007 | 0 | 154 | delete $args{'full_dump'} || 0 |
1010 | 0 | 0 | $args{'mode'} //= "user" |
1051 | 24 | 3 | $args{'check'} || 'yes' |
1065 | 7 | 72 | $self->{$tag}{$elt_name} // "" |
1068 | 4 | 40 | $self->{'description'}{$tag} // "" |
1070 | 1 | 0 | $self->{'model'}{'class_description'} // "" |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
289 | 4 | 564 | 0 | delete $element_info->{'class'} || 'Config::Model::' . $id_class_hash{$type} |
327 | 186 | 8244 | 0 | delete $self->{'model'}{'element'}{$elt_name}{$prop} // get_default_property($prop) |
355 | 0 | 93 | 0 | $self->{'backend_mgr'} ||= "Config::Model::BackendMgr"->new("config_dir", $self->instance->config_dir, "node", $self, "rw_config", $model->{'rw_config'}) |
380 | 6 | 12 | 81 | $args{'config_file'} || $self->{'config_file'} |
0 | 0 | 99 | $args{'auto_create'} || $self->instance->auto_create | |
412 | 11108 | 9650 | 0 | $self->location || $self->config_class_name |
479 | 12461 | 1 | 0 | $self->{'model'}{'element'}{$name} // $self->_get_accepted_data($name) |
527 | 8517 | 0 | 0 | $self->{'status'}{$elt} || get_default_property('status') |
528 | 54 | 2 | 8461 | $status eq "deprecated" or $status eq "obsolete" |
532 | 8461 | 0 | 0 | !defined($type) || $type eq $elt_type |
8299 | 36 | 126 | !defined($cargo_type) || $cargo_type eq $elt_cargo | |
579 | 30785 | 0 | 0 | $self->{$prop}{$elt} || get_default_property($prop) |
586 | 242 | 0 | 0 | $args{'value'} || croak(q[set_element_property:: missing 'value' parameter]) |
609 | 31745 | 0 | 0 | $args{'element'} || croak("${method_name}: missing 'element' parameter") |
611 | 31745 | 0 | 0 | $args{'property'} || croak("${method_name}: missing 'property' parameter") |
650 | 0 | 0 | 4 | $check eq "no" or $check eq "skip" |
664 | 0 | 0 | 1 | $check eq "no" or $check eq "skip" |
878 | 3 | 1 | 2 | $elt->get_type ne 'leaf' || $get_obj |
897 | 196 | 202 | 0 | defined $args{'step'} or defined $args{'steps'} |
913 | 0 | 0 | 131 | not defined $raw_perl_data or ref $raw_perl_data ne "HASH" |
944 | 331 | 0 | 0 | $self->is_element_available("name", $elt) or $check eq "no" |
1050 | 27 | 0 | 0 | $args{'from'} || croak('copy_from: missing from argument') |