| line |
true |
false |
branch |
|
49
|
6 |
74 |
if ($self->{'OPTS'}{'show'}) { } |
|
|
1 |
73 |
elsif (@_ < 2) { } |
|
50
|
1 |
5 |
unless @_ |
|
65
|
74 |
4 |
unless defined $self->{'OPTS'}{'colors'} |
|
69
|
28 |
518 |
if ($self->{'OPTS'}{'colors'}) { } |
|
78
|
4 |
74 |
$self->{'OPTS'}{'colors'} ? : |
|
79
|
4 |
74 |
$self->{'OPTS'}{'colors'} ? : |
|
84
|
1 |
6 |
if $@ |
|
92
|
1 |
76 |
if $self->{'OPTS'}{'ofmt'} eq 'jsonmergepatch' |
|
149
|
65 |
5 |
if (exists $diff->{'D'}) { } |
|
|
1 |
4 |
elsif (exists $diff->{'U'}) { } |
|
169
|
34 |
66 |
unless exists ${$dref;}->{'N'} |
|
170
|
5 |
61 |
unless defined ${$dref;}->{'O'} and defined ${$dref;}->{'N'} |
|
171
|
8 |
53 |
if ref ${$dref;}->{'O'} or ref ${$dref;}->{'N'} |
|
172
|
13 |
40 |
if &is_number(${$dref;}->{'O'}) or &is_number(${$dref;}->{'N'}) |
|
177
|
25 |
15 |
if (@old > 1 or @new > 1) |
|
181
|
14 |
11 |
if ($old[-1] eq '' and $new[-1] eq '') |
|
193
|
59 |
51 |
if ($match = !$match) { } |
|
195
|
34 |
25 |
if ($header) |
|
204
|
51 |
8 |
if (@cdiff > 4) |
|
206
|
41 |
10 |
$self->{'OPTS'}{'ctx-text'} ? : |
|
208
|
32 |
19 |
if (@rest or not $header) |
|
215
|
18 |
33 |
if (@del) |
|
222
|
43 |
8 |
if (@del) |
|
227
|
42 |
9 |
if (@add) |
|
254
|
61 |
10 |
if (my $dump = $formats{$self->{'OPTS'}{'ofmt'}}) { } |
|
274
|
10 |
20 |
if exists ${$dref;}->{$tag} |
|
309
|
16 |
8 |
unless exists ${$dref;}->{$_} |
|
313
|
2 |
6 |
$_ eq 'R' ? : |
|
335
|
134 |
454 |
if exists ${$dref;}->{$tag} |
|
347
|
5 |
134 |
if ($self->{'OPTS'}{'show'}) { } |
|
348
|
1 |
4 |
if (ref $files[0]{'data'}[0] eq 'ARRAY') { } |
|
357
|
67 |
67 |
unless @files > 1 |
|
369
|
1 |
72 |
if ($self->{'OPTS'}{'show'} and my(@errs) = &Struct::Diff::valid_diff($diff)) |
|
381
|
71 |
1 |
unless ($self->{'OPTS'}{'quiet'}) |
|
382
|
53 |
18 |
if $self->{'OPTS'}{'ofmt'} eq 'term' |
|
387
|
68 |
1 |
unless not keys %{$diff;} or exists $diff->{'U'} |
|
391
|
4 |
67 |
unless $self->{'status'} |
|
402
|
6 |
139 |
if @{$self->{'OPTS'}{'grep'};} |
|
404
|
128 |
17 |
if (@data and ref $data[0]) |
|
414
|
6 |
4 |
if $status eq 'N' |
|
431
|
91 |
43 |
if (@{$path;} and my(@delta) = &path_delta($self->{'hdr_path'}, $path)) |
|
433
|
86 |
5 |
$self->{'OPTS'}{'pretty'} ? : |
|
438
|
22 |
114 |
if ($status eq 'A' || $status eq 'R' and $s == $#{$path;}) { } |
|
458
|
3 |
75 |
if ($self->{'TTY'} and not $self->{'OPTS'}{'quiet'}) |
|
461
|
1 |
2 |
@names == 1 ? : |
|
468
|
23 |
111 |
if $status eq 'T' |
|
478
|
82 |
29 |
unless &is_number($value) |
|
501
|
30 |
133 |
if ($status eq '@') |
|
503
|
21 |
9 |
$hdr[1] > 1 ? : |
|
|
20 |
10 |
$hdr[3] > 1 ? : |