| line |
true |
false |
branch |
|
35
|
0 |
46 |
if (defined $opts{'dev'}{'sticky'}) |
|
36
|
0 |
0 |
$opts{'dev'}{'sticky'} ? : |
|
39
|
11 |
35 |
if (defined $opts{'sticky'}) |
|
40
|
7 |
4 |
$opts{'sticky'} ? : |
|
54
|
23 |
23 |
$opts{'st_info'} ? : |
|
|
0 |
46 |
unless my(@st) = $opts{'st_info'} ? @{$opts{'st_info'};} : lstat $path |
|
58
|
24 |
22 |
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'} |
|
118
|
0 |
53 |
if ($self->{'sticky'} and $self->{'dirty'}) { } |
|
132
|
2 |
5 |
unless sysopen my $fh, $self->{'path'}, Filesys::POSIX::Bits::System::convertFlagsToSystem($flags) |
|
142
|
0 |
0 |
unless ($self->{'sticky'}) |
|
143
|
0 |
0 |
unless CORE::chown $uid, $gid, $self->{'path'} |
|
156
|
0 |
0 |
unless ($self->{'sticky'}) |
|
157
|
0 |
0 |
unless CORE::chmod $perm, $self->{'path'} |
|
168
|
0 |
0 |
unless ($self->{'dest'}) |
|
169
|
0 |
0 |
unless $self->{'dest'} = CORE::readlink $self->{'path'} |
|
178
|
0 |
0 |
unless ($self->{'sticky'}) |
|
179
|
0 |
0 |
unless CORE::symlink $dest, $self->{'path'} |