| blib/lib/Config/Model.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 116 | 209 | 55.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 300 | 0 | 139 | 4 | $args{'name'} and $self->has_instance($args{'name'}) |
| 379 | 259 | 0 | 0 | $self->skip_include and defined $normalized_model->{'include'} |
| 391 | 258 | 0 | 0 | $self->skip_include and defined $normalized_model->{'include_backend'} |
| 418 | 4 | 0 | 0 | $target_model->{$rw} and $included_model->{$rw} |
| 440 | 115 | 275 | 0 | defined $raw_name and $config_class_name ne $raw_name |
| 597 | 945 | 0 | 320 | defined $info->{'cargo'} and defined $info->{'cargo'}{'type'} |
| 945 | 318 | 2 | defined $info->{'cargo'} and defined $info->{'cargo'}{'type'} and $info->{'cargo'}{'type'} eq "warped_node" | |
| 603 | 945 | 317 | 3 | defined $info->{'cargo'} and defined $info->{'cargo'}{'warp'} |
| 616 | 945 | 318 | 2 | defined $info->{'cargo'} and defined $info->{'cargo'}{'compute'} |
| 627 | 945 | 317 | 3 | defined $info->{'cargo'} and defined $info->{'cargo'}{'refer_to'} |
| 635 | 4 | 1078 | 183 | defined $info->{'type'} and $info->{'type'} eq 'list' || $info->{'type'} eq 'hash' |
| 658 | 4 | 566 | 695 | defined $info->{'type'} and $info->{'type'} eq "leaf" |
| 662 | 4 | 1198 | 63 | defined $info->{'type'} and $info->{'type'} eq "check_list" |
| 678 | 780 | 0 | 0 | $ref and ref $ref eq "ARRAY" |
| 977 | 0 | 0 | 0 | defined $elt_type and $elt_type ne "warped_node" |
| 1034 | 22 | 9 | 0 | @keys != @$warper_items and not $key_set =~ /\$\w+/u |
| 1149 | 2 | 138 | 89 | defined $type and $type eq "leaf" |
| 1226 | 0 | 65 | 0 | defined $include_class and defined $self->{'included_class'}{$class_name}{$include_class} |
| 1243 | 41 | 0 | 24 | defined $include_after and defined $included_model->{'element'} |
| 1293 | 30 | 19 | 1 | $load_file and $load_file =~ m[^/]u |
| 0 | 49 | 0 | $self->model_dir and $self->model_dir =~ m[^/]u | |
| 1450 | 49 | 1 | 0 | do { |
| 1598 | 75 | 0 | 0 | $summary &&= " - $summary" |
| 1753 | 0 | 0 | 1 | defined $dir_str and $dir_str |
| 1879 | 0 | 1 | 6 | defined $elts and @$elts |
| line | l | !l | condition |
|---|---|---|---|
| 189 | 41 | 0 | "File::HomeDir"->my_home // "" |
| 253 | 5 | 0 | $appli_map->{$application} || die("Unknown application $application. Expected one of " . join(' ', sort(keys %$appli_map)) . "\n") |
| 258 | 0 | 46 | $appli_info->{'_category'} // "" |
| 261 | 46 | 0 | $appli_info->{$application} // {} |
| 273 | 16 | 10 | delete $args->{'instance_name'} || delete $args->{'name'} || $app_name || 'default' |
| 287 | 0 | 5 | delete $args{'model_args'} // {} |
| 407 | 258 | 0 | shift() || die('include_backend:: undefined target_model') |
| 433 | 390 | 0 | shift() || die() |
| 434 | 390 | 0 | shift() || die() |
| 478 | 30 | 360 | delete $normalized_model->{'accept'} || [] |
| 486 | 0 | 0 | delete $name_match->{'name_match'} || '.*' |
| 584 | 1265 | 0 | shift() || die() |
| 703 | 105 | 285 | $model->{'rw_config'} || (return) |
| 845 | 320 | 0 | shift() || die() |
| 875 | 0 | 0 | shift() || die() |
| 911 | 0 | 0 | shift() || die() |
| 946 | 332 | 0 | shift() || die() |
| 1199 | 259 | 0 | shift() || die('include_class: undefined target_model') |
| 1263 | 45 | 20 | $target_model->{'element'} ||= {} |
| 1507 | 3604 | 0 | shift() || die('Model::get_model: missing config class name argument') |
| 1540 | 2 | 1 | $done //= {} |
| 1597 | 0 | 75 | $elt_info->{'summary'} || '' |
| 1690 | 6 | 69 | $elt_info->{'description'} || '' |
| 1750 | 0 | 2 | $done //= {} |
| 1784 | 3 | 0 | shift() || die('Model::get_element_model: missing config class name argument') |
| 1786 | 3 | 0 | shift() || die('Model::get_element_model: missing element name argument') |
| 1861 | 0 | 1 | shift() || '' |
| 1873 | 0 | 7 | shift() || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 228 | 1 | 0 | 0 | shift() || $self->legacy |
| 260 | 0 | 0 | 46 | $args->{'config_dir'} //= $appli_info->{$application}{'config_dir'} |
| 289 | 3 | 2 | 0 | $model_storage //= "Config::Model"->new(%$m_args) |
| 406 | 258 | 0 | 0 | shift() || croak('include_backend: undef includer') |
| 546 | 0 | 150 | 0 | $model->{'element'}{$_}{$info_name} ||= $info |
| 635 | 159 | 161 | 941 | $info->{'type'} eq 'list' || $info->{'type'} eq 'hash' |
| 806 | 58 | 34 | 0 | shift() || $old_name |
| 1198 | 259 | 0 | 0 | shift() || croak('include_class: undef includer') |
| 1219 | 65 | 0 | 0 | shift() || croak('include_class: undef includer') |
| 1220 | 65 | 0 | 0 | shift() || croak('include_class: undefined target_model') |
| 1221 | 65 | 0 | 0 | shift() || croak('include_class: undef include_class param') |
| 1472 | 5 | 0 | 0 | delete $augment_data{'name'} || croak('augment_config_class: missing class name') |
| 1520 | 3602 | 0 | 0 | $self->_get_model($config_class_name) || croak("get_model error: unknown config class name: $config_class_name") |
| 1563 | 10 | 0 | 0 | $self->model($class_name) || croak("get_model_doc model error : unknown config class name: $class_name") |
| 1685 | 10 | 6 | 0 | $cargo_vt || $cargo_type |
| 1687 | 10 | 6 | 59 | $elt_info->{'config_class_name'} || $cargo->{'config_class_name'} |
| 1702 | 47 | 28 | 0 | $vt || $type |
| 1791 | 3 | 0 | 0 | $model->{'element'}{$element_name} || croak("get_element_model error: unknown element name: $element_name") |
| 1807 | 0 | 0 | 0 | $self->normalized_model($config_class_name) || croak("get_normalized_model error: unknown config class name: $config_class_name") |
| 1815 | 104 | 0 | 0 | $args{'class'} || croak(q[get_element_name: missing 'class' parameter]) |
| 1829 | 31 | 511 | 0 | $elt_data->{'level'} || get_default_property('level') |
| 1838 | 896 | 0 | 0 | $args{'element'} || croak(q[get_element_property: missing 'element' parameter]) |
| 1840 | 896 | 0 | 0 | $args{'property'} || croak(q[get_element_property: missing 'property' parameter]) |
| 1842 | 896 | 0 | 0 | $args{'class'} || croak(q[get_element_property:: missing 'class' parameter]) |
| 1850 | 1 | 51 | 0 | $model->{'accept'}{$acc_re}{$prop} || get_default_property($prop) |
| 1855 | 89 | 755 | 0 | $self->model($class)->{'element'}{$elt}{$prop} || get_default_property($prop) |