Branch Coverage

blib/lib/File/Mode.pm
Criterion Covered Total %
branch 0 22 0.0


line true false branch
36 0 0 if ($mod =~ /^([d\-]?)([r\-][w\-][x\-]){3}$/) { }
39 0 0 if (not $1) { }
0 0 elsif (substr($mod, 0, 1) eq 'd') { }
43 0 0 unless $skipchar
64 0 0 if (not $type or $NoType) { }
78 0 0 if ($mod =~ /^0?\d{3}$/ and not $mod =~ /[89]/)
149 0 0 unless ref $HashRef eq 'HASH'
151 0 0 unless opendir DIR, $Directory
163 0 0 if (-d $file and not $NoDir) { }
0 0 elsif (not $NoDir) { }
170 0 0 if ($error) { }