| line |
true |
false |
branch |
|
35
|
0 |
37 |
if (defined $opts{'dev'}{'sticky'}) |
|
36
|
0 |
0 |
$opts{'dev'}{'sticky'} ? : |
|
39
|
11 |
26 |
if (defined $opts{'sticky'}) |
|
40
|
7 |
4 |
$opts{'sticky'} ? : |
|
54
|
17 |
20 |
$opts{'st_info'} ? : |
|
|
0 |
37 |
unless my(@st) = $opts{'st_info'} ? @{$opts{'st_info'};} : lstat $path |
|
58
|
18 |
19 |
if (S_IFMT($st[2]) == 16384) |
|
69
|
0 |
4 |
if $name =~ m[/] |
|
70
|
0 |
4 |
if $directory->exists($name) |
|
80
|
2 |
2 |
if (($mode & $Filesys::POSIX::Real::Inode::S_IFMT) == $Filesys::POSIX::Real::Inode::S_IFREG) { } |
|
|
2 |
0 |
elsif (($mode & $Filesys::POSIX::Real::Inode::S_IFMT) == $Filesys::POSIX::Real::Inode::S_IFDIR) { } |
|
81
|
0 |
2 |
unless sysopen my $fh, $path, 193, Filesys::POSIX::Bits::System::convertModeToSystem($mode) |
|
89
|
0 |
2 |
unless mkdir $path, $mode |
|
94
|
0 |
4 |
if (($mode & $Filesys::POSIX::Real::Inode::S_IFMT) == $Filesys::POSIX::Real::Inode::S_IFLNK) { } |
|
95
|
0 |
0 |
unless $$self{'sticky'} |
|
117
|
0 |
39 |
if ($$self{'sticky'} and $$self{'dirty'}) { } |
|
130
|
2 |
5 |
unless sysopen my $fh, $$self{'path'}, Filesys::POSIX::Bits::System::convertFlagsToSystem($flags) |
|
141
|
0 |
0 |
unless ($$self{'sticky'}) |
|
142
|
0 |
0 |
unless CORE::chown $uid, $gid, $$self{'path'} |
|
155
|
0 |
0 |
unless ($$self{'sticky'}) |
|
156
|
0 |
0 |
unless CORE::chmod $perm, $$self{'path'} |
|
167
|
0 |
0 |
unless ($$self{'dest'}) |
|
168
|
0 |
0 |
unless $$self{'dest'} = CORE::readlink $$self{'path'} |
|
177
|
0 |
0 |
unless ($$self{'sticky'}) |
|
178
|
0 |
0 |
unless CORE::symlink $dest, $$self{'path'} |