| line |
!l |
l&&!r |
l&&r |
condition |
|
242
|
0 |
0 |
27 |
print $f $content and close $f |
|
252
|
0 |
0 |
36 |
defined $str and length $str |
|
322
|
2 |
2 |
5 |
$ref && $ref->isa('DataStore::CAS::File') |
|
324
|
0 |
1 |
8 |
defined $file and $is_cas_file || $is_filename |
|
328
|
4 |
1 |
1 |
$flags->{'move'} and not $is_cas_file |
|
329
|
0 |
0 |
3 |
$is_cas_file && $file->can('local_file') |
|
332
|
0 |
0 |
4 |
$fname and -f $fname |
|
336
|
1 |
0 |
3 |
$is_cas_file and $flags->{'reuse_hash'} |
|
368
|
1 |
0 |
0 |
ref $file and ref($file)->isa("File::Temp") |
|
378
|
1 |
0 |
0 |
$uid and $uid != $> |
|
|
1 |
0 |
0 |
$gid and $gid != $) |
|
404
|
0 |
0 |
2 |
defined $mode and not $mode & 146 |
|
407
|
0 |
2 |
0 |
!$uid || $uid == $> and !$gid || $gid == $) |
|
427
|
1 |
0 |
17 |
$flags->{'known_hashes'} && $flags->{'known_hashes'}{$self->digest} |
|
428
|
1 |
0 |
17 |
defined $known_hash and length $known_hash |
|
455
|
0 |
9 |
9 |
defined $wrote and $wrote > 0 |
|
510
|
0 |
0 |
17 |
$self->path_for_hash($hash, 1) and rename $source_file, $dest_name |
|
539
|
2 |
0 |
0 |
$flags and $flags->{'layer'} |
|
576
|
0 |
0 |
12 |
$#dirstack == $#length and -f $fname |
|
590
|
1 |
0 |
0 |
$flags and $flags->{'dry_run'} |
|
592
|
1 |
0 |
0 |
$flags and $flags->{'stats'} |
|
596
|
0 |
0 |
0 |
$flags and $flags->{'stats'} |
| line |
l |
!l |
condition |
|
110
|
9 |
2 |
$params{'digest'} ||= "SHA-1" |
|
113
|
4 |
7 |
$params{'fanout'} ||= [1, 2] |
|
179
|
0 |
0 |
length $hash || 0 |
|
196
|
0 |
0 |
length $hash || 0 |
|
202
|
81 |
0 |
length $hash || 0 |
|
324
|
0 |
0 |
$file || '(undef)' |
|
378
|
0 |
0 |
chown $>, $), $tmp or die "chown($> $), $tmp): $!\n" |
|
380
|
1 |
0 |
chmod 0444, $tmp or die "chmod(0444, $tmp): $!\n" |
|
388
|
0 |
0 |
$flags->{'stats'}{'new_files'} ||= [] |
|
417
|
0 |
0 |
$flags->{'stats'}{'new_files'} ||= [] |
|
426
|
17 |
1 |
$flags ||= {} |
|
450
|
0 |
18 |
$offset ||= 0 |
|
452
|
0 |
18 |
$offset || 0 |
|
516
|
0 |
0 |
$flags->{'stats'}{'new_files'} ||= [] |
|
548
|
44 |
0 |
$_[0] || die("opendir: $!") |
|
553
|
0 |
3 |
$flags ||= {} |
|
590
|
1 |
0 |
$path || die("unlink: $!") |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
124
|
0 |
9 |
0 |
ref $_[0] || $_[0] |
|
267
|
0 |
0 |
0 |
$_ eq "=" or $_ eq "*" |
|
324
|
5 |
4 |
0 |
$is_cas_file || $is_filename |
|
328
|
3 |
5 |
1 |
$flags->{'hardlink'} or $flags->{'move'} and not $is_cas_file |
|
338
|
1 |
3 |
0 |
$known_hashes{$self->digest} ||= $self->calculate_file_hash($fname) |
|
378
|
0 |
0 |
1 |
$uid and $uid != $> or $gid and $gid != $) |
|
407
|
2 |
0 |
0 |
!$uid || $uid == $> |
|
|
2 |
0 |
0 |
!$gid || $gid == $) |
|
412
|
0 |
2 |
0 |
$flags->{'dry_run'} or link $file, $dest |
|
451
|
0 |
9 |
9 |
$count ||= length($buffer) - $offset |
|
510
|
0 |
0 |
17 |
$flags->{'dry_run'} or rename "$source_file", $dest_name |
|
|
0 |
17 |
0 |
$flags->{'dry_run'} or rename "$source_file", $dest_name or $self->path_for_hash($hash, 1) and rename $source_file, $dest_name |
|
606
|
23 |
3 |
0 |
$digest_name || $self->digest |