Branch Coverage

blib/lib/App/diffdir.pm
Criterion Covered Total %
branch 23 42 54.7


line true false branch
47 1 5 unless ($found{$file}{$last_dir})
55 1 5 if (not $found{$file}{$dir}) { }
1 4 elsif (not -e $found{$file}{$last_dir}{'name'}) { }
1 3 elsif (my $diff = eval { do { $self->dodiff('' . path($last_dir, $file), '' . path($dir, $file)) } }) { }
70 0 6 if $@
74 3 3 unless ($diff_count)
107 6 28 if $file->basename =~ /^[.].*[.]sw[n-z]$|^[.](?:svn|bzr|git)$|CVS|RCS$/
108 1 27 if $self->{'exclude'} and grep {$file =~ /$_/;} @{$$self{'exclude'};}
112 6 21 if (-d $file)
124 1 3 unless ($which_diff)
125 0 1 $self->ignore_space_change || $self->ignore_all_space ? :
130 0 4 if ($which_diff eq 'mydiff') { }
135 1 3 if $diff
144 0 0 if not $self->follow and -l $file1 || -l $file2
150 0 0 if ($self->ignore_space_change)
153 0 0 if ($self->ignore_all_space)
157 0 0 $self->fast ? :
0 0 -s $file1 != -s $file2 ? :
162 0 0 if ($diff)
163 0 0 if $self->verbose
173 0 0 if ($text =~ /[\s$|><;#]/msx)