Branch Coverage

blib/lib/Config/Model/Warper.pm
Criterion Covered Total %
branch 67 112 59.8


line true false branch
49 8 551 ref $item eq 'HASH' ? :
104 7 569 if defined $reg_values->{$warper_name}
115 87 1188 unless (defined $obj)
124 482 706 if ($obj->isa("Config::Model::Value") or $obj->isa("Config::Model::CheckList"))
126 37 445 if (defined $warped_node)
134 124 582 if ($obj->isa("Config::Model::WarpedNode"))
136 0 124 if (defined $warped_node)
146 0 482 if (defined $warper and scalar @command)
154 482 87 defined $warper ? :
160 87 482 unless defined $warper
162 0 482 unless $warper->isa("Config::Model::Value") or $obj->isa("Config::Model::CheckList")
177 1 481 if ($type eq "computed")
230 473 89 if (defined $warper and $warper->get_type eq 'leaf') { }
2 87 elsif (defined $warper and $warper->get_type eq 'check_list') { }
0 87 elsif (defined $warper) { }
238 0 2 if ($logger->is_debug)
271 0 0 @_ ? :
278 0 0 unless defined $warped
281 0 0 defined $value ? :
298 438 0 ref $rules_ref eq 'ARRAY' ? :
0 438 ref $rules_ref eq 'HASH' ? :
310 0 1385 ref $key_set ? :
313 1 1384 unless ref $v eq "HASH"
325 0 1428 unless &any(sub {
331 0 1 ref $_ ? :
344 11 743 if (defined $warped_object->index_value)
353 76 667 if (defined $v) { }
380 340 0 if (@_)
382 338 2 defined $value ? :
403 485 74 $old ? :
544 15 $new ? :
310 235 if $old ? 1 : 0 xor $new ? 1 : 0 or $old and $new and $new ne $old
408 30 310 if ($same)
410 0 30 if ($logger->is_debug)
458 0 1618 if ($@)
465 333 1285 $ret ? :
483 1285 1618 if ref $bool_expr
485 1285 333 unless $res
494 7 747 if ($logger->is_info)
495 7 0 defined $_ ? :
497 1 6 scalar %$found_rule ? :
519 1 753 if ($@)
520 1 0 defined $_ ? :
522 1 0 ref $e ? :
543 7 0 unless defined $self->{'warp'}
549 0 0 ref $follow eq 'HASH' ? :
0 0 ref $follow eq 'ARRAY' ? :
554 0 0 @warper_paths > 1 ? :
572 0 0 if (ref $e eq $expected_error)
577 0 0 unless defined $warper_value
581 0 0 $warper->{'value_type'} eq 'boolean' ? :
0 0 defined $warper->choice ? :
588 0 0 $warper->{'value_type'} =~ /^[aeiou]/ ? :
590 0 0 @try ? :
597 0 0 if (defined $warper->{'compute'})
602 0 0 if $logger->is_debug