Branch Coverage

blib/lib/App/RegexFileUtils.pm
Criterion Covered Total %
branch 39 60 65.0


line true false branch
11 0 6 if ($^O eq 'MSWin32')
37 0 1 if ($arg =~ /^--recmd$/) { }
0 1 elsif ($arg =~ /^--reverbose$/) { }
0 1 elsif ($arg =~ /^--reall$/) { }
51 0 5 unless (defined $dest)
81 0 5 if $mode eq 'symlink'
84 0 5 unless (defined $mode)
90 2 3 if ($mode eq 'touch' or $mode eq 'rm')
94 2 3 if ($dest =~ m[^(s|)/(.*)/(.*)/([ig]*)$]) { }
0 3 elsif ($dest =~ m[tr/(.*)/(.*)/$]) { }
2 1 elsif ($dest =~ m[^(m|)/(.*)/([i]*)$]) { }
1 0 elsif (-d $dest) { }
98 1 1 if $modifiers =~ /i/
100 0 2 if ($no_dest)
111 0 0 if ($no_dest)
124 1 0 if ($src =~ m[^(m|)/(.*)/([i]*)$]) { }
140 5 0 if (@files == 0)
141 0 5 unless opendir DIR, '.'
147 10 25 if /^\./ and not $do_hidden
148 11 14 unless eval "/$re/$modifiers_match" or defined $tr
154 0 14 if (defined $tr) { }
7 7 elsif (defined $sub) { }
2 5 elsif ($static_dest) { }
161 5 0 if ($no_dest) { }
168 9 5 unless $no_dest
169 0 14 if $verbose
171 0 14 if $^O eq 'MSWin32'
175 0 14 if ($? == -1) { }
0 14 elsif ($? & 127) { }
1 13 elsif ($? >> 8) { }