| script/cdif | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 75 | 38.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 397 | 0 | 0 | 0 | defined $_ and print $_ |
| 420 | 2 | 0 | 8 | $old and $app->show_old |
| 422 | 2 | 0 | 8 | $new and $app->show_new |
| 434 | 0 | 2 | 0 | @old and $old[0] =~ /^--- /u |
| 444 | 2 | 0 | 0 | @old == 1 and $old[0] ne "" |
| 2 | 0 | 0 | @old == 1 and $old[0] ne "" and $oline - $dline == $nline | |
| 697 | 0 | 0 | 42 | $old and $new |
| 0 | 12 | 30 | $old and $new and $$old | |
| 12 | 6 | 24 | $old and $new and $$old and $$new | |
| 789 | 48 | 0 | 0 | $app->unit eq "mecab" and $text =~ /\P{ASCII}/u |
| 901 | 4 | 0 | 56 | $n-- and $_ = readline $FH |
| line | l | !l | condition |
|---|---|---|---|
| 260 | 4 | 4 | shift @ARGV || '-' |
| 313 | 198 | 4 | $_ // (next) |
| 699 | 24 | 0 | shift() || undef |
| 760 | 0 | 0 | $2 // 1 |
| 0 | 0 | $4 // 1 | |
| 906 | 28 | 0 | $_ // "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 174 | 0 | 8 | 0 | $app->diff || ($app->rcs ? 'rcsdiff' : 'diff') |
| 254 | 0 | 0 | 0 | shift @ARGV || usage("No RCS filename\n\n") |
| 366 | 0 | 0 | 0 | readline DIFF // do { print $old; next } |
| 506 | 6 | 4 | 0 | $mark_re[$column] //= do { my $mark = "." x ($column - 1); qr/$mark/u } |
| 535 | 0 | 0 | 0 | pop @old // do { print $c1, @old; last } |
| 541 | 0 | 0 | 0 | pop @new // do { print $c1, @old, $c2, @new; last } |
| 700 | 6 | 18 | 0 | shift() || $omark_re |
| 815 | 0 | 0 | 768 | $app->ignore_space_change or $app->ignore_all_space |
| 861 | 48 | 0 | 0 | $owlist[$o2] =~ /\S/u or $nwlist[$n2] =~ /\S/u |
| 930 | 0 | 0 | 0 | $_[1] or $debug{'e'} |