| script/cdif | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 31 | 78 | 39.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 398 | 0 | 0 | 0 | defined $_ and print $_ |
| 421 | 2 | 0 | 8 | $old and $app->show_old |
| 423 | 2 | 0 | 8 | $new and $app->show_new |
| 435 | 0 | 2 | 0 | @old and $old[0] =~ /^--- /u |
| 445 | 2 | 0 | 0 | @old == 1 and $old[0] ne "" |
| 2 | 0 | 0 | @old == 1 and $old[0] ne "" and $oline - $dline == $nline | |
| 698 | 0 | 0 | 43 | $old and $new |
| 0 | 12 | 31 | $old and $new and $$old | |
| 12 | 6 | 25 | $old and $new and $$old and $$new | |
| 795 | 48 | 0 | 0 | $app->unit eq "mecab" and $text =~ /\P{ASCII}/u |
| 907 | 4 | 0 | 56 | $n-- and $_ = readline $FH |
| line | l | !l | condition |
|---|---|---|---|
| 261 | 5 | 4 | shift @ARGV || '-' |
| 314 | 200 | 4 | $_ // (next) |
| 705 | 24 | 0 | shift() || undef |
| 766 | 0 | 0 | $2 // 1 |
| 0 | 0 | $4 // 1 | |
| 912 | 28 | 0 | $_ // "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 175 | 0 | 9 | 0 | $app->diff || ($app->rcs ? 'rcsdiff' : 'diff') |
| 255 | 0 | 0 | 0 | shift @ARGV || usage("No RCS filename\n\n") |
| 367 | 0 | 0 | 0 | readline DIFF // do { print $old; next } |
| 507 | 6 | 5 | 0 | $mark_re[$column] //= do { my $mark = "." x ($column - 1); qr/$mark/u } |
| 536 | 0 | 0 | 0 | pop @old // do { print $c1, @old; last } |
| 542 | 0 | 0 | 0 | pop @new // do { print $c1, @old, $c2, @new; last } |
| 702 | 1 | 0 | 24 | $$old =~ /^.{$max}/mu or $$new =~ /^.{$max}/mu |
| 706 | 6 | 18 | 0 | shift() || $omark_re |
| 821 | 0 | 0 | 768 | $app->ignore_space_change or $app->ignore_all_space |
| 867 | 48 | 0 | 0 | $owlist[$o2] =~ /\S/u or $nwlist[$n2] =~ /\S/u |
| 936 | 0 | 0 | 0 | $_[1] or $debug{'e'} |