Branch Coverage

blib/lib/DataStore/CAS/FS/Importer.pm
Criterion Covered Total %
branch 66 160 41.2


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)