| line |
true |
false |
branch |
|
35
|
0 |
28 |
unless eval "sub $_ { \$_[0]{flags}{$_}= \$_[1] if \@_ > 1; \$_[0]{flags}{$_} }; 1" |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
3 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
0 |
if @_ > 1 |
|
|
0 |
8 |
if @_ > 1 |
|
|
0 |
3 |
if @_ > 1 |
|
|
0 |
9 |
if @_ > 1 |
|
50
|
0 |
0 |
if $_[0]->die_on_hint_error |
|
55
|
0 |
0 |
if $_[0]->die_on_file_error |
|
60
|
0 |
0 |
if $_[0]->die_on_dir_error |
|
65
|
0 |
0 |
if $_[0]->die_on_metadata_error |
|
76
|
0 |
28 |
if exists $args->{$_} |
|
78
|
28 |
0 |
unless defined $flags->{$_} |
|
93
|
0 |
1 |
unless my $stat = $self->_stat($src) |
|
96
|
1 |
0 |
unless defined $_DEVICE_CONSTRAINT or $self->cross_mountpoints |
|
111
|
0 |
1 |
unless my $stat = $self->_stat($path) |
|
114
|
1 |
0 |
unless defined $_DEVICE_CONSTRAINT or $self->cross_mountpoints |
|
124
|
0 |
2 |
unless my $names = $self->_readdir($path) |
|
132
|
4 |
0 |
if ($self->utf8_filenames) { } |
|
138
|
0 |
4 |
$filter ? : |
|
139
|
0 |
4 |
unless $keep |
|
142
|
0 |
4 |
if (defined $_DEVICE_CONSTRAINT and $stat->dev ne $_DEVICE_CONSTRAINT) { } |
|
|
0 |
4 |
elsif ($keep < 0) { } |
|
163
|
0 |
1 |
unless $stat ||= $self->_stat($path) |
|
168
|
1 |
0 |
unless defined $_DEVICE_CONSTRAINT or $self->cross_mountpoints |
|
171
|
1 |
0 |
unless defined $ent_name |
|
180
|
0 |
6 |
unless my $attrs = $self->collect_dirent_metadata($ent_path, $ent_name, $stat) |
|
182
|
5 |
1 |
if ($attrs->{'type'} eq 'file') { } |
|
|
1 |
0 |
elsif ($attrs->{'type'} eq 'dir') { } |
|
183
|
0 |
5 |
if ($hint and $self->_can_reuse_hash($attrs, $hint)) { } |
|
188
|
0 |
5 |
if defined $err |
|
193
|
0 |
1 |
if (defined $_DEVICE_CONSTRAINT and $stat->dev ne $_DEVICE_CONSTRAINT) { } |
|
196
|
0 |
1 |
unless defined $_DEVICE_CONSTRAINT or $self->cross_mountpoints |
|
200
|
1 |
0 |
if (defined $hint) |
|
204
|
0 |
1 |
if $subdir_hint |
|
209
|
0 |
1 |
if defined $err |
|
238
|
0 |
7 |
unless $stat ||= $self->_stat($path) |
|
241
|
1 |
6 |
unless defined $ent_name |
|
250
|
0 |
7 |
unless (defined $attrs{'type'}) |
|
254
|
7 |
0 |
if ($self->{'flags'}{'collect_unix_perm'}) |
|
257
|
7 |
0 |
if (my $cache = $self->unix_uid_cache) |
|
258
|
1 |
6 |
unless (exists $cache->{$uid}) |
|
260
|
0 |
1 |
if (not defined $name) { } |
|
|
1 |
0 |
elsif ($self->utf8_filenames) { } |
|
270
|
7 |
0 |
if defined $cache->{$uid} |
|
273
|
7 |
0 |
if (my $cache = $self->unix_gid_cache) |
|
274
|
1 |
6 |
unless (exists $cache->{$gid}) |
|
276
|
0 |
1 |
if (not defined $name) { } |
|
|
1 |
0 |
elsif ($self->utf8_filenames) { } |
|
286
|
7 |
0 |
if defined $cache->{$gid} |
|
289
|
7 |
0 |
if ($self->{'flags'}{'collect_metadata_ts'}) |
|
292
|
0 |
7 |
if ($self->{'flags'}{'collect_access_ts'}) |
|
295
|
0 |
7 |
if ($self->{'flags'}{'collect_unix_misc'}) |
|
302
|
0 |
7 |
if ($self->{'flags'}{'collect_acl'}) |
|
305
|
0 |
7 |
if ($self->{'flags'}{'collect_ext_attr'}) |
|
308
|
1 |
6 |
if ($attrs{'type'} eq 'dir') { } |
|
|
0 |
6 |
elsif ($attrs{'type'} eq 'symlink') { } |
|
|
0 |
6 |
elsif ($attrs{'type'} eq 'blockdev' or $attrs{'type'} eq 'chardev') { } |
|
323
|
0 |
0 |
$reuse > 2 ? : |
|
|
3 |
0 |
$reuse > 0 ? : |
|
|
0 |
3 |
$reuse > 1 ? : |
|
333
|
0 |
0 |
unless defined $hint and defined $hint->ref |
|
339
|
0 |
0 |
unless defined $hint and defined $hint->ref |
|
341
|
0 |
0 |
unless defined $size and defined $h_size and $size eq $h_size |
|
347
|
0 |
0 |
unless defined $hint and defined $hint->ref |
|
349
|
0 |
0 |
unless defined $size and defined $h_size and $size eq $h_size |
|
357
|
3 |
0 |
if ($self->utf8_filenames) { } |
|
378
|
0 |
8 |
$self->follow_symlink ? : |
|
379
|
0 |
8 |
unless (@stat) |
|
396
|
0 |
2 |
unless (opendir $dh, $path) |
|
401
|
6 |
2 |
if $_ ne '.' |
|
403
|
0 |
2 |
unless (closedir $dh) |