Branch Coverage

blib/lib/Config/Model/Instance.pm
Criterion Covered Total %
branch 48 80 60.0


line true false branch
117 0 65 if (defined $arg)
118 0 0 if ($arg) { }
151 0 9 wantarray ? :
257 1 1 $root_dir ? :
298 0 5 if $self->{'layered'}
323 0 15 if $self->{'preset'}
348 12 1587 $self->{'preset'} ? :
66 1599 $self->{'layered'} ? :
369 11 54 unless $has_data
389 2 0 @_ eq 1 ? :
393 2 0 unless $quiet
401 0 3 @_ eq 1 ? :
446 95 1425 if ($change_logger->is_debug)
451 0 3040 if (my $m = delete $args{$obsolete})
465 22 52 unless defined $l
467 0 52 if length $l > 60
483 27 10 $c->{'note'} ? :
485 2 35 if (defined $n and not defined $o) { }
6 29 elsif (not defined $n and defined $o) { }
22 7 elsif (defined $o and defined $n) { }
7 0 elsif (defined $c->{'note'}) { }
503 18 1 wantarray ? :
509 0 2 unless @changes
521 0 15 scalar @_ == 1 ? :
24 15 scalar @_ > 1 ? :
528 0 39 if (delete $args{'root'})
535 20 19 if ($force_write)
541 0 2 if ($k eq 'config_dir') { }
0 2 elsif ($k ne 'config_file') { }
543 0 0 if $args{$k} and not $args{$k} =~ m[/$]
550 0 39 if ($self->has_no_write_back)
551 0 0 $self->application ? :
562 0 14 if ($path and $self->{'config_file'})
596 51 0 if (defined $node and $node->needs_save || $force_write)
598 0 51 if $dir and not -d $dir
602 51 0 defined $res ? :
606 1 51 unless (defined $node)
626 0 0 if ($node->can("update"))
628 0 0 if $loc and not $args{'quiet'}
639 0 0 $args{'quiet'} ? :