Branch Coverage

blib/lib/App/NDTools/NDDiff.pm
Criterion Covered Total %
branch 101 104 97.1


line true false branch
48 3 63 if ($self->{'OPTS'}{'show'}) { }
1 62 elsif (@_ < 2) { }
49 0 3 unless @_
64 62 3 unless defined $self->{'OPTS'}{'colors'}
68 21 434 if ($self->{'OPTS'}{'colors'}) { }
77 3 62 $self->{'OPTS'}{'colors'} ? :
78 3 62 $self->{'OPTS'}{'colors'} ? :
83 1 6 if $@
134 1 58 if ($self->{'OPTS'}{'full'})
150 54 5 if (exists $diff->{'D'}) { }
1 4 elsif (exists $diff->{'U'}) { }
156 45 14 if $self->{'OPTS'}{'ofmt'} eq 'term'
172 25 47 unless exists ${$dref;}->{'N'}
173 5 42 if ref ${$dref;}->{'O'} or ref ${$dref;}->{'N'}
175 37 5 if ${$dref;}->{'O'}
176 42 0 if ${$dref;}->{'N'}
178 23 19 if (@old > 1 or @new > 1)
182 13 10 if ($old[-1] eq '' and $new[-1] eq '')
194 56 48 if ($match = !$match) { }
196 33 23 if ($header)
205 48 8 if (@cdiff > 4)
207 38 10 $self->{'OPTS'}{'ctx-text'} ? :
209 30 18 if (@rest or not $header)
216 17 31 if (@del)
223 40 8 if (@del)
228 40 8 if (@add)
247 42 15 if ($self->{'OPTS'}{'ofmt'} eq 'term') { }
4 11 elsif ($self->{'OPTS'}{'ofmt'} eq 'brief') { }
1 10 elsif ($self->{'OPTS'}{'ofmt'} eq 'rules') { }
271 10 20 if exists ${$dref;}->{$tag}
285 8 4 unless exists ${$dref;}->{$_}
289 0 4 $_ eq 'R' ? :
311 89 256 if exists ${$dref;}->{$tag}
326 3 112 if ($self->{'OPTS'}{'show'}) { }
330 1 2 if (my(@errs) = &Struct::Diff::valid_diff($diff))
340 56 56 unless @items > 1
349 57 1 unless $self->{'OPTS'}{'quiet'}
351 54 1 unless not keys %{$diff;} or exists $diff->{'U'}
354 4 54 unless $self->{'status'}
365 6 115 if @{$self->{'OPTS'}{'grep'};}
367 104 17 if (@data and ref $data[0])
377 6 4 if $status eq 'N'
395 62 27 if (@{$path;} and my(@delta) = &path_delta($self->{'hdr_path'}, $path))
398 7 103 if not $self->{'OPTS'}{'full-headers'} and $s < @{$path;} - @delta
401 17 86 if ($status eq 'A' || $status eq 'R' and $s == $#{$path;}) { }
420 3 61 if ($self->{'TTY'} and not $self->{'OPTS'}{'quiet'})
423 1 2 @names == 1 ? :
430 21 68 if $status eq 'T'
440 12 56 if ref $value or not defined $value
463 28 126 if ($status eq '@')
465 19 9 $hdr[1] > 1 ? :
19 9 $hdr[3] > 1 ? :