Branch Coverage

perllib/Arch/Changeset.pm
Criterion Covered Total %
branch 0 70 0.0


line true false branch
29 0 0 unless -d $dir
48 0 0 unless $type =~ /^[0123]$/
55 0 0 if (not -f $patch_file and $type == 0 or $type == 2)
59 0 0 if (not -f $patch_file and $type == 0 or $type == 3)
64 0 0 unless (-f $patch_file)
66 0 0 if ($type >= 2) { }
67 0 0 if (-l $patch_file) { }
76 0 0 wantarray ? :
82 0 0 if ($change_type ne '' and not $asis = $full_file_asis || -B $patch_file)
85 0 0 $has_end_line ? :
89 0 0 if ($change_type eq 'new') { }
102 0 0 if $has_end_line
104 0 0 unless $has_end_line
110 0 0 wantarray ? :
116 0 0 if $ancestor
118 0 0 if (-f "$$self{'dir'}/=ancestor")
122 0 0 unless ($ancestor)
134 0 0 if exists $$self{'index_memo'}{$index}
164 0 0 unless exists $orig_dirs{$id}
170 0 0 unless exists $orig_files{$id}
176 0 0 unless exists $mod_dirs{$id}
182 0 0 unless exists $mod_files{$id}
188 0 0 if -f $$self{'dir'} . '/patches/' . $mod_files{$id} . '.patch'
194 0 0 if -f $$self{'dir'} . '/patches/' . $mod_dirs{$id} . '/=dir-meta-mod'
200 0 0 if -f $$self{'dir'} . '/patches/' . $mod_files{$id} . '.meta-mod'
206 0 0 if exists $mod_dirs{$_}
212 0 0 if (exists $orig_dirs{$id} and exists $mod_dirs{$id} and $orig_dirs{$id} ne $mod_dirs{$id})
229 0 0 unless $found
236 0 0 if (exists $orig_files{$id} and exists $mod_files{$id} and $orig_files{$id} ne $mod_files{$id})
246 0 0 if $tail =~ m[^/\.arch-ids/]
255 0 0 unless $found
270 0 0 if $$change{'is_dir'}
272 0 0 unless $type eq 'M' or not $params{'no_new_files'} and $type eq 'A' || $type eq 'D'
275 0 0 if $params{'no_arch_files'} and $filepath =~ m[^{arch}/] || $filepath =~ m[(^|/).arch-ids/]
281 0 0 wantarray ? :