Branch Coverage

blib/lib/Test/Dirs.pm
Criterion Covered Total %
branch 30 42 71.4


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()
51 0 11 if ($ENV{'FIXIT'})
52 0 0 unless dircopy($dir1, $dir2)
68 16 7 if ($a)
70 9 7 if &any(sub { $_ eq $a_short; } , @ignore_files)
72 13 1 if ($b)
74 5 8 if &any(sub { $_ eq $b_short; } , @ignore_files)
77 1 8 if (not $b) { }
2 6 elsif (not $a) { }
83 2 4 if ($verbose)
84 0 2 if (-f $a and -d $b) { }
1 1 elsif (-d $a and -f $b) { }
97 7 4 unless (@differences)
109 0 2 unless my $filename = shift()
112 2 0 if ref $filename eq 'ARRAY'
114 1 1 if (-f $filename)
123 0 2 if (@{$rm_err;})