| line |
true |
false |
branch |
|
77
|
0 |
9 |
if (my $env = $ENV{'CDIFOPTS'}) |
|
136
|
0 |
0 |
$_[1] ? : |
|
162
|
0 |
9 |
unless $app = "Getopt::EX::Hashed"->new |
|
167
|
0 |
9 |
unless $app->getopt |
|
172
|
0 |
9 |
if $debug{'m'} |
|
174
|
0 |
9 |
if @rcsopt |
|
190
|
9 |
0 |
$app->{'256'} ? : |
|
191
|
54 |
99 |
ref $b eq 'ARRAY' ? : |
|
224
|
20 |
16 |
if $color |
|
230
|
0 |
9 |
if $debug{'c'} |
|
232
|
0 |
9 |
if ($app->colordump) |
|
243
|
9 |
0 |
if ($app->prefix) { } |
|
254
|
0 |
9 |
if ($app->rcs) { } |
|
|
0 |
9 |
elsif (@ARGV == 2) { } |
|
|
9 |
0 |
elsif (@ARGV < 2) { } |
|
263
|
0 |
0 |
if @ARGV |
|
265
|
0 |
9 |
if $debug{'f'} |
|
268
|
8 |
1 |
$app->color ? : |
|
279
|
0 |
9 |
if ($app->unit =~ /^char/u) { } |
|
282
|
0 |
9 |
$app->unit eq 'letter' ? : |
|
305
|
9 |
0 |
if (my(@names) = grep($opt_visible{$_}, keys %opt_visible)) |
|
322
|
0 |
9 |
if (my $color = $colormap{'VISIBLE'}) |
|
346
|
0 |
9 |
unless open DIFF, $DIFF |
|
354
|
0 |
0 |
if ($app->style eq 'diff') { } |
|
365
|
0 |
97 |
if ($app->linebyline) { } |
|
|
10 |
87 |
elsif (/^([\d,]+)([adc])([\d,]+)\r?$/u) { } |
|
|
2 |
85 |
elsif (/^\*\*\* ([\d,]+) \*\*\*\*\r?$/u) { } |
|
|
11 |
74 |
elsif (/^
(? $prefix_re)
(?
(? \@{2,} ) [ ]
(? (?: [-+]\d+(?:,\d+)? [ ] ){2,} )
\g{mark}
(?s:.*)
)
/ux) { } |
|
|
0 |
74 |
elsif (/^<<<<<<<\s+(.*)/u) { } |
|
371
|
0 |
0 |
if $app->unit |
|
383
|
8 |
2 |
if ($cmd =~ /[cd]/u) |
|
385
|
0 |
8 |
if $old =~ /^(?!<)/mu |
|
387
|
6 |
4 |
if ($cmd =~ /[c]/u) |
|
389
|
0 |
6 |
if $del =~ /^(?!---)/mu |
|
391
|
8 |
2 |
if ($cmd =~ /[ca]/u) |
|
393
|
0 |
8 |
if $new =~ /^(?!>)/mu |
|
397
|
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
}
}) |
|
404
|
10 |
0 |
if ($converter) |
|
408
|
6 |
4 |
if ($cmd eq "c") |
|
409
|
6 |
0 |
if $app->unit |
|
412
|
10 |
0 |
if ($app->color) |
|
413
|
8 |
2 |
if $old |
|
416
|
8 |
2 |
if $new |
|
421
|
8 |
2 |
if $old and $app->show_old |
|
422
|
6 |
4 |
if $del |
|
423
|
8 |
2 |
if $new and $app->show_new |
|
435
|
0 |
2 |
if (@old and $old[0] =~ /^--- /u) { } |
|
442
|
2 |
0 |
if ($new =~ /^--- ([\d,]+) ----$/u) |
|
445
|
0 |
2 |
if (@old == 1 and $old[0] ne '' and $oline - $dline == $nline) { } |
|
450
|
2 |
0 |
if ($converter) |
|
456
|
6 |
8 |
if ($i % 2) |
|
457
|
6 |
0 |
if $app->unit |
|
459
|
14 |
0 |
if ($app->color) |
|
469
|
2 |
0 |
if $app->show_old |
|
471
|
2 |
0 |
if $app->show_new |
|
488
|
2 |
20 |
$_ eq ' ' ? : |
|
491
|
0 |
11 |
if (@lines != $column) |
|
497
|
8 |
3 |
if ($prefix) |
|
512
|
11 |
0 |
if ($converter) |
|
520
|
31 |
0 |
if (@result == 3) |
|
521
|
0 |
31 |
unless $app->show_new |
|
522
|
0 |
31 |
unless $app->show_old |
|
548
|
0 |
0 |
defined $i ? : |
|
552
|
0 |
0 |
if $converter |
|
553
|
0 |
0 |
if $app->unit |
|
555
|
0 |
0 |
if $app->mark |
|
556
|
0 |
0 |
if $app->show_old |
|
557
|
0 |
0 |
if (@mrg) |
|
559
|
0 |
0 |
if $app->mark |
|
561
|
0 |
0 |
if $converter |
|
562
|
0 |
0 |
if $app->show_mrg |
|
564
|
0 |
0 |
if $app->mark |
|
565
|
0 |
0 |
if $app->show_new |
|
566
|
0 |
0 |
if $app->mark |
|
570
|
74 |
0 |
if ($app->unknown) |
|
571
|
72 |
2 |
if (my $f = $func{'UNKNOWN'}) { } |
|
582
|
97 |
0 |
if (length $_) |
|
584
|
0 |
97 |
if $effector |
|
590
|
0 |
9 |
$DIFF =~ /\|$/u ? : |
|
594
|
0 |
9 |
if ($app->stat) |
|
618
|
0 |
31 |
if $column == 3 |
|
627
|
31 |
0 |
if $app->unit |
|
628
|
30 |
1 |
if ($app->color) { } |
|
632
|
154 |
0 |
$app->mark ? : |
|
638
|
0 |
1 |
unless $app->mark |
|
649
|
0 |
0 |
unless $app->unit |
|
654
|
0 |
0 |
if ($r[1] == 0) |
|
658
|
0 |
0 |
if (&sum(@r) == 0) |
|
660
|
0 |
0 |
unless $r[4] |
|
662
|
0 |
0 |
unless $r[6] |
|
667
|
0 |
0 |
if ($app->color) { } |
|
668
|
0 |
0 |
unless $app->mark |
|
671
|
0 |
0 |
if $$s |
|
672
|
0 |
0 |
$app->mark ? : |
|
681
|
0 |
0 |
unless $app->mark |
|
688
|
0 |
23 |
unless $app->command |
|
690
|
22 |
1 |
if ($app->color) |
|
698
|
18 |
25 |
unless $old and $new and $$old and $$new |
|
701
|
25 |
0 |
if (my $max = $app->limit->{'length'}) |
|
702
|
1 |
24 |
if $$old =~ /^.{$max}/mu or $$new =~ /^.{$max}/mu |
|
709
|
24 |
0 |
if ($omark_re) |
|
716
|
24 |
0 |
if @omark |
|
717
|
24 |
0 |
if @nmark |
|
734
|
0 |
24 |
if ($debug{'s'}) |
|
745
|
0 |
24 |
if ($debug{'w'}) |
|
757
|
0 |
24 |
unless open my $cdif, "$diff |" |
|
762
|
0 |
320 |
if $debug{'d'} |
|
765
|
0 |
320 |
if (/^\@\@ \s+ \-(\d+)(?:,(\d+))? \s+ \+(\d+)(?:,(\d+))? \s+ \@\@/ux) |
|
767
|
0 |
0 |
$nl == 0 ? : |
|
|
0 |
0 |
$ol == 0 ? : |
|
768
|
0 |
0 |
$ol <= 1 ? : |
|
769
|
0 |
0 |
$nl <= 1 ? : |
|
773
|
48 |
272 |
if (/^[\d,]+([adc])[\d,]+$/u) |
|
780
|
0 |
24 |
if ($debug{'d'}) |
|
788
|
0 |
24 |
if $status > 1 |
|
795
|
0 |
48 |
if ($app->unit eq 'mecab' and $text =~ /\P{ASCII}/u) { } |
|
821
|
0 |
768 |
if $app->ignore_space_change or $app->ignore_all_space |
|
823
|
704 |
64 |
unless /\n\z/u |
|
843
|
0 |
48 |
unless (my($old, $cmd, $new) = /([\d,]+)([adc])([\d,]+)/u) |
|
850
|
32 |
16 |
if $o < $o1 |
|
851
|
32 |
16 |
if $n < $n1 |
|
855
|
0 |
48 |
if ($cmd eq 'd') { } |
|
|
48 |
0 |
elsif ($cmd eq 'c') { } |
|
|
0 |
0 |
elsif ($cmd eq 'a') { } |
|
857
|
0 |
0 |
if ($owlist[$o2] =~ /\S/u) |
|
867
|
48 |
0 |
if ($owlist[$o2] =~ /\S/u or $nwlist[$n2] =~ /\S/u) |
|
879
|
0 |
0 |
if ($nwlist[$n2] =~ /\S/u) |
|
899
|
0 |
22 |
wantarray ? : |
|
908
|
24 |
32 |
if $i % 2 != /^!/u |
|
910
|
0 |
56 |
if /^--- /u |
|
936
|
0 |
0 |
if $_[1] or $debug{'e'} |
|
938
|
0 |
0 |
if $@ |