Branch Coverage

blib/lib/HTML/Perlinfo/Common.pm
Criterion Covered Total %
branch 0 120 0.0


line true false branch
51 0 0 unless $exec
57 0 0 if ($Is_VMS)
60 0 0 unless ($?)
61 0 0 unless $all
65 0 0 if ($Is_MacOS)
71 0 0 if (lc $alias eq lc $exec)
73 0 0 unless $file
74 0 0 unless $all
84 0 0 if $Is_DOSish or $Is_VMS or $Is_MacOS
90 0 0 if (-x $file || ($Is_MacOS || $Is_DOSish && grep({$file =~ /$_$/i;} @path_ext[1 .. $#path_ext])) && -e _ and not -d _)
101 0 0 unless $all
107 0 0 if ($all) { }
118 0 0 if which("$_[0]")
127 0 0 ref $string eq 'ARRAY' ? :
130 0 0 if $result != -1
132 0 0 $result == -1 ? :
138 0 0 if ($] >= 5.006) { }
184 0 0 if ($@) { }
185 0 0 $released{$]} ? :
188 0 0 $Module::CoreList::released{$]} ? :
199 0 0 if (not exists $allowed{$key}) { }
0 0 elsif ($key =~ /(?:docs|local)/ and not $value =~ /^(?:0|1)$/i) { }
206 0 0 if $message
216 0 0 if (not exists $allowed{$key}) { }
0 0 elsif ($key eq 'sort_by' and not $value =~ /^(?:name|version)$/i) { }
0 0 elsif ($key =~ /^(?:color|link|columns|files_in)$/ and ref $value ne 'ARRAY') { }
0 0 elsif ($key eq 'columns' and grep((!/^(?:name|version|desc|path|core)$/), @{$value;})) { }
0 0 elsif ($key eq 'color' and @{$value;} <= 1) { }
0 0 elsif ($key eq 'link' and @{$value;} <= 1 and $value->[0] != 0) { }
0 0 elsif ($key eq 'show_only' and ref $value ne 'ARRAY' and lc $value ne 'core') { }
0 0 elsif ($key eq 'full_page' and $value != 0 and $value != 1) { }
0 0 elsif ($key eq 'link' and ($value->[0] ne 'all' and $value->[0] != 0 and ref $value->[0] ne 'ARRAY')) { }
243 0 0 if $message
252 0 0 if (defined $_[0])
255 0 0 if (exists $params{$key}) { }
256 0 0 ref do { $params{$key} }->[0] eq 'ARRAY' ? :
290 0 0 $i == 0 ? :
293 0 0 if (not defined $row_element && $row_element =~ /\S/) { }
343 0 0 $_[1] ? :
347 0 0 $i == 0 ? :
0 0 $_[1] ? :
350 0 0 if (not defined $row_element && $row_element =~ /\S/) { }
379 0 0 $_[0] == 1 ? :
404 0 0 unless $row_element
452 0 0 unless $links{'all'}
454 0 0 if ($type eq 'cpan') { }
0 0 elsif ($type eq 'config') { }
0 0 elsif ($type eq 'local') { }
0 0 elsif ($type eq 'same') { }
456 0 0 if $link and $link->[0] =~ /^[0]$/
458 0 0 if ($link)
459 0 0 if (ref $link->[0] eq 'ARRAY' and ref $link->[1] ne 'ARRAY') { }
0 0 elsif (ref $link->[0] eq 'ARRAY' and ref $link->[1] eq 'ARRAY') { }
0 0 elsif ($link->[0] eq 'all' or match_string($value, $link->[0]) == 1) { }
461 0 0 if ($_ eq 'all' or match_string($value, $_) == 1)
470 0 0 if (ref $lv->[0] eq 'ARRAY') { }
472 0 0 if ($_ eq 'all' or match_string($value, $_) == 1)
480 0 0 if ($lv->[0] eq 'all' or match_string($value, $lv->[0]) == 1)
498 0 0 unless $links{'docs'}
503 0 0 unless $links{'local'}