line |
true |
false |
branch |
70
|
10 |
27 |
if (ref $sep eq 'HASH') |
79
|
20 |
17 |
unless $src |
83
|
37 |
0 |
if $sep |
89
|
0 |
37 |
if (not $atyp) { } |
|
17 |
20 |
elsif ($atyp eq 'ARRAY') { } |
|
20 |
0 |
elsif ($atyp eq 'GLOB') { } |
|
0 |
0 |
elsif ($atyp eq 'CODE') { } |
111
|
8 |
29 |
if @contents and not $contents[-1] =~ /$sep$/ |
114
|
6 |
31 |
if ($proto{'chomp'}) |
130
|
2 |
0 |
exists $$self{'original'} ? : |
146
|
3 |
0 |
unless ref $base |
150
|
1 |
2 |
exists $$other{'original'} ? : |
162
|
27 |
13 |
wantarray ? : |
168
|
0 |
26 |
@_ ? : |
178
|
2 |
173 |
$$_[2]{'short'} ? : |
181
|
2 |
7 |
unless my(@d) = map({[map({[$$_[0] . ($$_[2]{'short'} ? '/' : ''), $$_[1], $$_[2]{'line'}];} @$_)];} Algorithm::Diff::diff(\@wl1, \@wl2, sub {
$_[0]{'window'};
}
)) |
190
|
0 |
18 |
ref $win ? : |
196
|
12 |
1587 |
if $win_lb < 0 |
198
|
12 |
1587 |
if $win_ub > $max |
200
|
1597 |
2 |
$win_ub < $max || !$$self{'last_line_short'} ? : |
205
|
2 |
1597 |
$$self{'last_line_short'} && $_ == $max ? : |
221
|
0 |
6 |
unless ref $patch eq 'VCS::Lite::Delta' |
231
|
66 |
82 |
unless $ind =~ /^-/ |
232
|
0 |
82 |
if $out[$lin] ne $txt |
243
|
18 |
2 |
@txt2 ? : |
262
|
0 |
0 |
if @$a != @$b |
265
|
0 |
0 |
if $$a[$_] ne $$b[$_] |
303
|
2 |
13 |
exists $ins2{$_} ? : |
305
|
2 |
7 |
@confl ? : |
314
|
0 |
21 |
exists $ins1{$_} ? : |
316
|
0 |
38 |
@confl ? : |
333
|
9 |
807 |
if exists $ins1{$_} |
335
|
48 |
768 |
if exists $ins2{$_} |
339
|
0 |
816 |
if ($ins1 and $ins2 and not &_equal($ins1, $ins2)) { } |
|
809 |
7 |
elsif (not $conflict_type) { } |
351
|
54 |
755 |
if defined $ins1 |
359
|
2 |
814 |
if (not $conflict_type and $d1 eq '*') |
366
|
0 |
816 |
if (not $conflict_type and $d2 eq '*') |
375
|
9 |
807 |
if ($conflict_type == 1) |
376
|
7 |
2 |
if ($d1 eq '*') { } |
379
|
2 |
5 |
if $ins2 |
380
|
0 |
7 |
unless $d2 |
392
|
0 |
816 |
if ($conflict_type == 2) |
393
|
0 |
0 |
if ($d2 eq '*') { } |
396
|
0 |
0 |
if $ins1 |
397
|
0 |
0 |
unless $d1 |
408
|
8 |
808 |
unless defined $line |
409
|
735 |
73 |
unless $d1 eq '-' || $d2 eq '-' and not $conflict_type |