| line |
true |
false |
branch |
|
42
|
0 |
3 |
unless opendir my $dh, $path |
|
44
|
6 |
27 |
if $entry =~ /^\.\.?$/u |
|
52
|
0 |
3 |
if $@ and "Rex::Config"->get_autodie |
|
54
|
0 |
3 |
if ($@) |
|
65
|
0 |
3 |
if ($^O =~ /^MSWin/u) { } |
|
76
|
3 |
0 |
if ($? == 0) |
|
78
|
0 |
0 |
if "Rex::Config"->get_autodie |
|
84
|
15 |
268 |
-d $path ? : |
|
89
|
632 |
261 |
-f $file || -l $file || -b $file || -c $file || -p $file || -S $file ? : |
|
97
|
0 |
13 |
if (CORE::unlink($file) == 0) |
|
98
|
0 |
0 |
if "Rex::Config"->get_autodie |
|
108
|
0 |
6 |
if (CORE::mkdir($dir) == 0) |
|
109
|
0 |
0 |
if "Rex::Config"->get_autodie |
|
119
|
139 |
2 |
if (my($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = CORE::stat $file) |
|
145
|
2 |
0 |
if (-r $file) |
|
150
|
1 |
0 |
if (-w $file) |
|
163
|
0 |
38 |
if ($^O =~ /^MSWin/u) { } |
|
174
|
38 |
0 |
if ($? == 0) |
|
176
|
0 |
0 |
if "Rex::Config"->get_autodie |