| line |
true |
false |
branch |
|
46
|
0 |
0 |
unless my $h = $$self{'handlers'}{$id} |
|
48
|
0 |
0 |
wantarray ? : |
|
52
|
0 |
0 |
unless my(@h) = (shift())->get_handler(@_) |
|
53
|
0 |
0 |
unless shift @h eq 'file' |
|
54
|
0 |
0 |
wantarray ? : |
|
58
|
0 |
0 |
unless my(@h) = (shift())->get_handler(@_) |
|
59
|
0 |
0 |
unless shift @h eq 'dir' |
|
60
|
0 |
0 |
wantarray ? : |
|
66
|
0 |
0 |
defined $h ? : |
|
|
0 |
0 |
wantarray ? : |
|
93
|
0 |
0 |
if ($flags & 1) { } |
|
|
0 |
0 |
elsif ($flags & 2) { } |
|
94
|
0 |
0 |
if ($flags & 2) { } |
|
104
|
0 |
0 |
if ($flags & 8) |
|
107
|
0 |
0 |
if ($flags & 16) |
|
110
|
0 |
0 |
if ($flags & 32) |
|
113
|
0 |
0 |
if $debug and $debug & 128 |
|
122
|
0 |
0 |
if ($attrs) |
|
123
|
0 |
0 |
if (defined $$attrs{'size'}) |
|
124
|
0 |
0 |
unless truncate $obj, $$attrs{'size'} |
|
126
|
0 |
0 |
if (defined $$attrs{'permissions'}) |
|
127
|
0 |
0 |
unless chmod $$attrs{'permissions'}, $obj |
|
129
|
0 |
0 |
if (defined $$attrs{'gid'}) |
|
130
|
0 |
0 |
unless chown $$attrs{'uid'}, $$attrs{'gid'}, $obj |
|
132
|
0 |
0 |
if (defined $$attrs{'atime'}) |
|
133
|
0 |
0 |
unless utime $$attrs{'atime'}, $$attrs{'mtime'}, $obj |
|
146
|
0 |
0 |
if (defined $perms) { } |
|
153
|
0 |
0 |
unless (sysopen $fh, $path, $pflags, $perms) |
|
155
|
0 |
0 |
if defined $old_umask |
|
158
|
0 |
0 |
if defined $old_umask |
|
159
|
0 |
0 |
if ($writable) |
|
160
|
0 |
0 |
unless _set_attrs($path, $attrs) |
|
164
|
0 |
0 |
if $debug and $debug & 2 |
|
173
|
0 |
0 |
if $len > 65536 |
|
178
|
0 |
0 |
if $bytes == 0 |
|
194
|
0 |
0 |
unless my $bytes = syswrite($fh, $_[4], $len, -$len) |
|
203
|
0 |
0 |
unless my($type, $fh) = $self->remove_handler($hid) |
|
205
|
0 |
0 |
if ($type eq 'dir') { } |
|
|
0 |
0 |
elsif ($type eq 'file') { } |
|
206
|
0 |
0 |
if $debug and $debug & 2 |
|
207
|
0 |
0 |
unless closedir $fh |
|
210
|
0 |
0 |
if $debug and $debug & 2 |
|
211
|
0 |
0 |
unless close $fh |
|
221
|
0 |
0 |
unless opendir my $dh, $path |
|
223
|
0 |
0 |
if $debug and $debug & 2 |
|
232
|
0 |
0 |
defined $name ? : |
|
238
|
0 |
0 |
defined $name ? : |
|
244
|
0 |
0 |
$lstat ? : |
|
|
0 |
0 |
unless my(undef, undef, $mode, $nlink, $uid, $gid, undef, $size, $atime, $mtime) = $lstat ? lstat $fn : stat $fn |
|
248
|
0 |
0 |
$year == $current_year ? : |
|
261
|
0 |
0 |
if $debug and $debug & 2 |
|
279
|
0 |
0 |
unless my($dh, $path) = $self->get_dir_handler($hid) |
|
284
|
0 |
0 |
if @entry > 200 |
|
286
|
0 |
0 |
unless @entry |
|
304
|
0 |
0 |
unless my(@stat) = lstat $path |
|
311
|
0 |
0 |
unless my(@stat) = stat $path |
|
321
|
0 |
0 |
unless my(@stat) = stat $fh |
|
328
|
0 |
0 |
_set_attrs($obj, $attrs) ? : |
|
347
|
0 |
0 |
unless unlink $path |
|
356
|
0 |
0 |
if defined $$attrs{'permissions'} |
|
359
|
0 |
0 |
unless (mkdir $path) |
|
361
|
0 |
0 |
if defined $old_umask |
|
364
|
0 |
0 |
if defined $old_umask |
|
370
|
0 |
0 |
unless rmdir $path |
|
386
|
0 |
0 |
if -e $new |
|
388
|
0 |
0 |
unless rename $old, $new |
|
405
|
0 |
0 |
unless eval {
do {
symlink $target, $link
}
} |