Branch Coverage

perllib/Arch/DiffParser.pm
Criterion Covered Total %
branch 21 30 70.0


line true false branch
52 0 2 unless $content
58 0 2 unless $lines[0] =~ /^\Q$FILE1_PREFIX\E(.+?)(?:\t(.+))?$/o
61 0 2 unless $lines[1] =~ /^\Q$FILE2_PREFIX\E(.+?)(?:\t(.+))?$/o
70 2 16 if ($lines[$i] =~ /^\Q$HUNK_PREFIX\E-(\d+)(?:,(\d+))? \+(\d+)(?:,(\d+))?/o) { }
4 12 elsif ($lines[$i] =~ /^\Q$DEL_PREFIX\E/o) { }
4 8 elsif ($lines[$i] =~ /^\Q$ADD_PREFIX\E/o) { }
6 2 elsif ($lines[$i] =~ /^\Q$UNMOD_PREFIX\E/o) { }
2 0 elsif ($lines[$i] =~ /^\Q$NOEOL_PREFIX\E/o) { }
71 1 1 defined $2 ? :
2 0 defined $4 ? :
75 0 4 if $last_line == 64
76 3 1 unless $last_line == 32
82 1 3 unless $last_line & 224
112 0 0 unless $file_name
122 0 20 unless $data