Branch Coverage

blib/lib/App/CELL/Load.pm
Criterion Covered Total %
branch 83 112 74.1


line true false branch
149 13 0 if (%ARGS) { }
156 6 7 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
162 0 13 if (${^TAINT} != 0)
168 9 4 unless ($sharedir)
170 0 9 unless (is_directory_viable($tmp_sharedir))
177 6 3 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
184 9 4 if ($sharedir and not $sharedir_loaded)
187 0 9 if $load_status->not_ok
190 0 9 if $load_status->not_ok
195 6 7 if ($App::CELL::Load::meta->CELL_META_LOAD_VERBOSE)
196 0 6 if (@sitedir) { }
206 11 2 unless $status->ok
210 2 0 if ($sitedir_candidate)
219 2 0 if ($messages_loaded->ok or $params_loaded->ok)
234 2 0 if ($status->ok)
246 2 0 if $cmp_arrays_result
254 0 2 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
266 0 22 if ($quantitems == 0)
278 16 6 if $dir_desc eq "sitedir" or $dir_desc eq "sharedir" and $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
305 11 0 if (@$file_list) { }
306 6 5 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
309 0 0 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
315 0 12 unless ref $App::CELL::Message::mesg
391 3 10 if ($sitedir = $paramhash{'sitedir'})
393 2 1 if is_directory_viable($sitedir)
404 1 9 if ($paramhash{'enviro'})
406 0 1 if ($sitedir = $ENV{$paramhash{'enviro'}}) { }
409 0 0 if is_directory_viable($sitedir)
425 1 8 if ($sitedir = $ENV{'CELL_SITEDIR'})
427 0 1 if is_directory_viable($sitedir)
432 0 1 if ($App::CELL::Load::meta->CELL_META_SITEDIR_LOADED)
445 0 8 if ($App::CELL::Load::meta->CELL_META_SITEDIR_LOADED)
510 38 12 if (exists $resultcache->{$dirpath}) { }
511 18 20 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
533 0 57 if ($walk_counter > $max_files)
541 0 57 unless (-r $file)
552 47 116 if ($file =~ /do { $typeregex }->{$type}/u)
558 6 4 if not $counter and $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
561 6 6 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
599 0 184 unless ($code)
614 184 0 if ($code and $lang and $text)
621 1 183 if ($destref->{$code}{$lang}) { }
631 114 69 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE
652 1 12 unless ($lang)
662 0 13 unless open my $fh, "<", $ARGS{'File'}
673 11 1025 if /^\s+$/u
674 840 196 if ($_) { }
675 377 463 unless (/^\s*#/u)
682 175 21 if @stanza
689 9 4 if @stanza
757 0 31 unless (ref $ARGS{'Dest'})
772 0 156 if ($number_of_params == 0) { }
1 155 elsif ($number_of_params == 1) { }
154 1 elsif ($number_of_params == 2) { }
861 2 154 if (keys %{$$desthash{$param};}) { }
876 96 58 if $App::CELL::Load::meta->CELL_META_LOAD_VERBOSE