| line |
true |
false |
branch |
|
77
|
0 |
8 |
if (my $env = $ENV{'CDIFOPTS'}) |
|
135
|
0 |
0 |
$_[1] ? : |
|
161
|
0 |
8 |
unless $app = "Getopt::EX::Hashed"->new |
|
166
|
0 |
8 |
unless $app->getopt |
|
171
|
0 |
8 |
if $debug{'m'} |
|
173
|
0 |
8 |
if @rcsopt |
|
189
|
8 |
0 |
$app->{'256'} ? : |
|
190
|
48 |
88 |
ref $b eq 'ARRAY' ? : |
|
223
|
16 |
16 |
if $color |
|
229
|
0 |
8 |
if $debug{'c'} |
|
231
|
0 |
8 |
if ($app->colordump) |
|
242
|
8 |
0 |
if ($app->prefix) { } |
|
253
|
0 |
8 |
if ($app->rcs) { } |
|
|
0 |
8 |
elsif (@ARGV == 2) { } |
|
|
8 |
0 |
elsif (@ARGV < 2) { } |
|
262
|
0 |
0 |
if @ARGV |
|
264
|
0 |
8 |
if $debug{'f'} |
|
267
|
8 |
0 |
$app->color ? : |
|
278
|
0 |
8 |
if ($app->unit =~ /^char/u) { } |
|
281
|
0 |
8 |
$app->unit eq 'letter' ? : |
|
304
|
8 |
0 |
if (my(@names) = grep($opt_visible{$_}, keys %opt_visible)) |
|
321
|
0 |
8 |
if (my $color = $colormap{'VISIBLE'}) |
|
345
|
0 |
8 |
unless open DIFF, $DIFF |
|
353
|
0 |
0 |
if ($app->style eq 'diff') { } |
|
364
|
0 |
94 |
if ($app->linebyline) { } |
|
|
10 |
84 |
elsif (/^([\d,]+)([adc])([\d,]+)\r?$/u) { } |
|
|
2 |
82 |
elsif (/^\*\*\* ([\d,]+) \*\*\*\*\r?$/u) { } |
|
|
10 |
72 |
elsif (/^
(? $prefix_re)
(?
(? \@{2,} ) [ ]
(? (?: [-+]\d+(?:,\d+)? [ ] ){2,} )
\g{mark}
(?s:.*)
)
/ux) { } |
|
|
0 |
72 |
elsif (/^<<<<<<<\s+(.*)/u) { } |
|
370
|
0 |
0 |
if $app->unit |
|
382
|
8 |
2 |
if ($cmd =~ /[cd]/u) |
|
384
|
0 |
8 |
if $old =~ /^(?!<)/mu |
|
386
|
6 |
4 |
if ($cmd =~ /[c]/u) |
|
388
|
0 |
6 |
if $del =~ /^(?!---)/mu |
|
390
|
8 |
2 |
if ($cmd =~ /[ca]/u) |
|
392
|
0 |
8 |
if $new =~ /^(?!>)/mu |
|
396
|
0 |
10 |
unless (eval {
do {
if ($cmd =~ /[cd]/u) {
$old = read_diff(*DIFF, scalar range($left));
die if $old =~ /^(?!<)/mu;
} ;
if ($cmd =~ /[c]/u) {
$del = read_diff(*DIFF, 1);
die if $del =~ /^(?!---)/mu;
} ;
if ($cmd =~ /[ca]/u) {
$new = read_diff(*DIFF, scalar range($right));
die if $new =~ /^(?!>)/mu;
} ;
1
}
}) |
|
403
|
10 |
0 |
if ($converter) |
|
407
|
6 |
4 |
if ($cmd eq "c") |
|
408
|
6 |
0 |
if $app->unit |
|
411
|
10 |
0 |
if ($app->color) |
|
412
|
8 |
2 |
if $old |
|
415
|
8 |
2 |
if $new |
|
420
|
8 |
2 |
if $old and $app->show_old |
|
421
|
6 |
4 |
if $del |
|
422
|
8 |
2 |
if $new and $app->show_new |
|
434
|
0 |
2 |
if (@old and $old[0] =~ /^--- /u) { } |
|
441
|
2 |
0 |
if ($new =~ /^--- ([\d,]+) ----$/u) |
|
444
|
0 |
2 |
if (@old == 1 and $old[0] ne '' and $oline - $dline == $nline) { } |
|
449
|
2 |
0 |
if ($converter) |
|
455
|
6 |
8 |
if ($i % 2) |
|
456
|
6 |
0 |
if $app->unit |
|
458
|
14 |
0 |
if ($app->color) |
|
468
|
2 |
0 |
if $app->show_old |
|
470
|
2 |
0 |
if $app->show_new |
|
487
|
0 |
20 |
$_ eq ' ' ? : |
|
490
|
0 |
10 |
if (@lines != $column) |
|
496
|
8 |
2 |
if ($prefix) |
|
511
|
10 |
0 |
if ($converter) |
|
519
|
30 |
0 |
if (@result == 3) |
|
520
|
0 |
30 |
unless $app->show_new |
|
521
|
0 |
30 |
unless $app->show_old |
|
547
|
0 |
0 |
defined $i ? : |
|
551
|
0 |
0 |
if $converter |
|
552
|
0 |
0 |
if $app->unit |
|
554
|
0 |
0 |
if $app->mark |
|
555
|
0 |
0 |
if $app->show_old |
|
556
|
0 |
0 |
if (@mrg) |
|
558
|
0 |
0 |
if $app->mark |
|
560
|
0 |
0 |
if $converter |
|
561
|
0 |
0 |
if $app->show_mrg |
|
563
|
0 |
0 |
if $app->mark |
|
564
|
0 |
0 |
if $app->show_new |
|
565
|
0 |
0 |
if $app->mark |
|
569
|
72 |
0 |
if ($app->unknown) |
|
570
|
72 |
0 |
if (my $f = $func{'UNKNOWN'}) { } |
|
581
|
94 |
0 |
if (length $_) |
|
583
|
0 |
94 |
if $effector |
|
589
|
0 |
8 |
$DIFF =~ /\|$/u ? : |
|
593
|
0 |
8 |
if ($app->stat) |
|
617
|
0 |
30 |
if $column == 3 |
|
626
|
30 |
0 |
if $app->unit |
|
627
|
30 |
0 |
if ($app->color) { } |
|
631
|
154 |
0 |
$app->mark ? : |
|
637
|
0 |
0 |
unless $app->mark |
|
648
|
0 |
0 |
unless $app->unit |
|
653
|
0 |
0 |
if ($r[1] == 0) |
|
657
|
0 |
0 |
if (&sum(@r) == 0) |
|
659
|
0 |
0 |
unless $r[4] |
|
661
|
0 |
0 |
unless $r[6] |
|
666
|
0 |
0 |
if ($app->color) { } |
|
667
|
0 |
0 |
unless $app->mark |
|
670
|
0 |
0 |
if $$s |
|
671
|
0 |
0 |
$app->mark ? : |
|
680
|
0 |
0 |
unless $app->mark |
|
687
|
0 |
22 |
unless $app->command |
|
689
|
22 |
0 |
if ($app->color) |
|
697
|
18 |
24 |
unless $old and $new and $$old and $$new |
|
703
|
24 |
0 |
if ($omark_re) |
|
710
|
24 |
0 |
if @omark |
|
711
|
24 |
0 |
if @nmark |
|
728
|
0 |
24 |
if ($debug{'s'}) |
|
739
|
0 |
24 |
if ($debug{'w'}) |
|
751
|
0 |
24 |
unless open my $cdif, "$diff |" |
|
756
|
0 |
320 |
if $debug{'d'} |
|
759
|
0 |
320 |
if (/^\@\@ \s+ \-(\d+)(?:,(\d+))? \s+ \+(\d+)(?:,(\d+))? \s+ \@\@/ux) |
|
761
|
0 |
0 |
$nl == 0 ? : |
|
|
0 |
0 |
$ol == 0 ? : |
|
762
|
0 |
0 |
$ol <= 1 ? : |
|
763
|
0 |
0 |
$nl <= 1 ? : |
|
767
|
48 |
272 |
if (/^[\d,]+([adc])[\d,]+$/u) |
|
774
|
0 |
24 |
if ($debug{'d'}) |
|
782
|
0 |
24 |
if $status > 1 |
|
789
|
0 |
48 |
if ($app->unit eq 'mecab' and $text =~ /\P{ASCII}/u) { } |
|
815
|
0 |
768 |
if $app->ignore_space_change or $app->ignore_all_space |
|
817
|
704 |
64 |
unless /\n\z/u |
|
837
|
0 |
48 |
unless (my($old, $cmd, $new) = /([\d,]+)([adc])([\d,]+)/u) |
|
844
|
32 |
16 |
if $o < $o1 |
|
845
|
32 |
16 |
if $n < $n1 |
|
849
|
0 |
48 |
if ($cmd eq 'd') { } |
|
|
48 |
0 |
elsif ($cmd eq 'c') { } |
|
|
0 |
0 |
elsif ($cmd eq 'a') { } |
|
851
|
0 |
0 |
if ($owlist[$o2] =~ /\S/u) |
|
861
|
48 |
0 |
if ($owlist[$o2] =~ /\S/u or $nwlist[$n2] =~ /\S/u) |
|
873
|
0 |
0 |
if ($nwlist[$n2] =~ /\S/u) |
|
893
|
0 |
22 |
wantarray ? : |
|
902
|
24 |
32 |
if $i % 2 != /^!/u |
|
904
|
0 |
56 |
if /^--- /u |
|
930
|
0 |
0 |
if $_[1] or $debug{'e'} |
|
932
|
0 |
0 |
if $@ |