Branch Coverage

lib/CPANPLUS/Internals/Fetch.pm
Criterion Covered Total %
branch 33 48 68.7


line true false branch
114 0 85 unless my $args = check($tmpl, \%hash)
117 0 1 if (my $where = $modobj->status->fetch and not $force and not $ttl)
136 13 72 unless (-d $local_path)
137 0 13 unless ($self->_mkdir("dir", $local_path))
152 28 57 if (-e $local_file)
158 9 19 if ($force) { }
15 4 elsif ($ttl and [stat $local_file]->[9] + $ttl > time) { }
0 4 elsif ($ttl) { }
179 9 19 if ($unlink) { }
184 0 9 if -e $local_file
200 2 64 if ($fetch_from) { }
205 0 2 unless ($abs)
222 0 64 unless ($remote_file)
256 65 0 if ($host->{'scheme'} eq 'file') { }
262 64 1 'File::Spec'->file_name_is_absolute($host->{'path'}) ? :
346 64 1 if ($abs)
366 0 0 $found_host ? :
388 0 67 unless check($tmpl, \%hash)
396 0 67 unless $ff
398 66 1 if (my $file = $ff->fetch('to', $local_path)) { }
399 66 0 if (-e $file and -s _) { }
447 0 3 unless check($tmpl, \%hash)
461 0 6 unless check($tmpl, \%hash)
463 3 3 $self->_hosts->{$host} ? :