Branch Coverage

perllib/Arch/Session.pm
Criterion Covered Total %
branch 0 140 0.0


line true false branch
62 0 0 unless ($$self{'categories'}{$archive})
72 0 0 unless ($$self{'branches'}{$category})
82 0 0 unless ($$self{'versions'}{$branch})
85 0 0 if $branch->branch eq ''
95 0 0 unless ($$self{'revisions'}{$version})
105 0 0 unless $version->is_valid('archive+')
107 0 0 unless ($$self{'revision_descs'}{$version})
115 0 0 s/^ // ? :
0 0 if /^ [^ ]/
120 0 0 if $end or /^ /
137 0 0 unless @keys
141 0 0 if (@_ and not $self->exist->{$_})
145 0 0 $_ eq 'archives' ? :
155 0 0 unless $archive->is_valid('archive+')
158 0 0 unless ($$self{'all_versions'}{$archive})
199 0 0 unless (defined $category)
203 0 0 unless s/^ //
207 0 0 unless @branch_infos
210 0 0 if defined $version_infos and not defined $branch
211 0 0 unless (defined $branch)
216 0 0 unless s/^ //
220 0 0 unless @version_infos
223 0 0 unless (defined $version)
227 0 0 if ($full_listing) { }
228 0 0 if defined $revision0
229 0 0 if defined $revisionl
231 0 0 unless defined $revision0
232 0 0 unless defined $revisionl
239 0 0 if ($error)
254 0 0 if (not $dir and $$self{'use_library'})
256 0 0 if ($dir)
264 0 0 if (not $dir and $cache_dir)
266 0 0 if (-r $delta_file)
270 0 0 unless -d $dir
271 0 0 if $dir
276 0 0 unless $dir and not -d $dir
288 0 0 unless $revision->is_valid('revision')
296 0 0 unless $arg
302 0 0 if ($arg =~ m[^http://])
303 0 0 unless $arg =~ m[/([^/]+\.tar\.gz)$]
310 0 0 unless defined $content
311 0 0 unless $content
319 0 0 if ($arg =~ m[([^/]+)\.tar\.gz$])
320 0 0 unless -f $arg
330 0 0 if $final_dir =~ /.*--.*--.*\d+\.src$/ and not -d $final_dir
332 0 0 unless -d $final_dir
336 0 0 if $downloaded_file
339 0 0 if (-d "$arg/{arch}") { }
0 0 elsif (-f "$arg/mod-dirs-index") { }
0 0 elsif (-d $arg) { }
343 0 0 unless defined $cset
364 0 0 if $@
379 0 0 if ($cache_dir)
381 0 0 if (-r $log_file)
388 0 0 unless $message
399 0 0 unless $revision->is_valid('revision')
405 0 0 if ref $_[0] eq 'HASH'
407 0 0 unless $revision->is_valid('branch+')
410 0 0 unless $dir
411 0 0 if -d $dir
414 0 0 unless $$opts{'pristine'}
415 0 0 if $$opts{'link'}
416 0 0 if $$opts{'library'}
417 0 0 if $$opts{'sparse'}
418 0 0 if $$opts{'non_sparse'}
419 0 0 if $$opts{'no_greedy_add'}
422 0 0 unless -d $dir
434 0 0 unless $? == 0
442 0 0 if (defined $userid) { }
443 0 0 unless $userid =~ /<.+\@.*>/