Branch Coverage

blib/lib/Text/Patch/Rred.pm
Criterion Covered Total %
branch 14 80 17.5


line true false branch
238 0 2 if $n <= 0
253 1 1 if ($m > $$ra[3])
258 1 1 if $n > $p
267 2 0 if ($n != $m)
268 0 2 if ($m < $j) { }
0 2 elsif ($n > $i) { }
269 0 0 if ($j - $m < 1000) { }
276 0 0 if ($n - $i < 1000) { }
307 0 1 if ($$ra[0]) { }
0 1 elsif (/^a\s*$/) { }
0 1 elsif (/^([0-9]+)a/) { }
0 1 elsif (/^d\s*$/) { }
0 1 elsif (/^([0-9]+)d/) { }
1 0 elsif (/^([0-9]+),([0-9]+)d/) { }
0 0 elsif (/^c\s*$/) { }
0 0 elsif (/^([0-9]+)c/) { }
0 0 elsif (/^([0-9]+),([0-9]+)c/) { }
0 0 elsif (m[^s/\^?\\?\.//\s*$]) { }
0 0 elsif (/^w/) { }
0 0 elsif (/^\s*$/) { }
308 0 0 if (not /^\.$/) { }
310 0 0 if ($i == $j)
326 0 0 if ($i > 4) { }
0 0 elsif ($j < $$ra[3]) { }
327 0 0 if ($j < $$ra[3]) { }
349 0 0 if ($i > 4)
359 0 0 if ($i > 4)
397 0 0 if (not ref $_) { }
398 0 0 unless Do1 $self, $_
401 0 0 unless Do1 $self, $_
425 0 0 if (@args < 3)
426 0 0 unless print STDERR "Copyright (C) 2006-2009 Jakob Bohm. All Rights Reserved.\nusage: rred file.old file.new file.patch1 [ file.patch2 ... ]\n (perl open magics are supported in all file names)\nApplies one or more diff --ed or diff -e patches to file.old, creating\n file.new . file.old and file.new can be the same file. Perl open\n magics are supported in all input file names. This help is displayed\n on stderr, use rred --help 2>file to capture it.\nexample:\n zcat Packages.diff/2006-04-23-1343.24.gz \\\n Packages.diff/2006-04-24-1329.37.gz |\n rred Packages Packages -\n"
448 0 0 unless open FH, $namIn
449 0 0 unless my(@lines) =
450 0 0 unless close FH
455 0 0 unless open FH, $fn
457 0 0 unless close FH
462 0 0 unless open FH, '>', $namOut
463 0 0 unless print FH @lines
464 0 0 unless close FH