Branch Coverage

blib/lib/Test/Dirs.pm
Criterion Covered Total %
branch 33 46 71.7


line true false branch
28 0 3 unless my $src_dir = shift()
31 0 3 unless (-d $src_dir)
37 0 3 unless dircopy($src_dir, $dst_dir->dirname)
45 0 11 unless my $dir1 = shift()
46 0 11 unless my $dir2 = shift()
52 9 2 unless defined $verbose
54 0 11 if ($ENV{'FIXIT'})
55 0 0 unless dircopy($dir1, $dir2)
66 0 11 unless ($have_two_folders)
78 16 7 if ($a)
80 9 7 if &any(sub { $_ eq $a_short; } , @ignore_files)
82 13 1 if ($b)
84 5 8 if &any(sub { $_ eq $b_short; } , @ignore_files)
87 1 8 if (not $b) { }
2 6 elsif (not $a) { }
93 2 4 if ($verbose)
94 0 2 if (-f $a and -d $b) { }
1 1 elsif (-d $a and -f $b) { }
107 7 4 unless (@differences)
119 0 2 unless my $filename = shift()
122 2 0 if ref $filename eq 'ARRAY'
124 1 1 if (-f $filename)
133 0 2 if (@{$rm_err;})