Branch Coverage

blib/lib/HTML/Perlinfo/Modules.pm
Criterion Covered Total %
branch 0 148 0.0


line true false branch
19 0 0 exists $params{'title'} ? :
29 0 0 if (defined $color_specs and ref $$color_specs[0] eq 'ARRAY') { }
31 0 0 if match_string($module_name, $$_[1]) == 1
35 0 0 if defined $color_specs and match_string($module_name, $$color_specs[1]) == 1
49 0 0 unless $file_path =~ /\.pm$/
61 0 0 if ($sort_by eq 'name') { }
0 0 elsif ($sort_by eq 'version') { }
64 0 0 if (ref $$modules{$key} eq 'ARRAY') { }
76 0 0 if (ref $$modules{$key} eq 'ARRAY') { }
97 0 0 if $full_page
107 0 0 $section ? :
108 0 0 if $color_specs and $$color_specs[2]
122 0 0 unless open MOD, $module_path
125 0 0 unless ($mod_name)
126 0 0 if (/^ *package +(\S+);/)
131 0 0 unless ($mod_version)
133 0 0 if (/([\$*])(([\w\:\']*)\bVERSION)\b.*\=/)
149 0 0 if not defined $mod_version or $@
154 0 0 unless ($mod_desc)
155 0 0 if (/=head\d\s+NAME/)
163 0 0 if $mod_name and $mod_version and $mod_desc
168 0 0 if not $mod_name or $show_only and ref $show_only and match_string($mod_name, $show_only) == 0
169 0 0 unless $mod_version and $mod_version =~ /^[\.\d+_]+$/
170 0 0 if $mod_desc
171 0 0 unless $mod_desc
182 0 0 if (ref $$color_specs[0] eq 'ARRAY') { }
185 0 0 if $count++ % 5 == 0
188 0 0 if $count >= 5 and $count % 5 == 0 or $count >= @{$color_specs;}
207 0 0 if ($show_dir) { }
213 0 0 if $amount_found
218 0 0 if ($dir1 ne $dir2 and $dir2 =~ /^$dir1/)
224 0 0 unless (grep {$_ eq $top_dir;} @bad_dir)
232 0 0 if -d $_ and -r $_
235 0 0 if (@module_paths >= 1)
240 0 0 grep({$_ eq $dir;} @$mod_dir) ? :
241 0 0 $searched eq 'yes' ? :
251 0 0 exists $$mod_count{$dir} ? :
252 0 0 $searched eq 'yes' ? :
277 0 0 $show_only eq 'core' ? :
0 0 ref $from eq 'ARRAY' && $show_only ne 'core' ? :
281 0 0 if -d $_ and -r $_
282 0 0 if (@mod_dir != @user_dir)
291 0 0 if (@user_dir > @mod_dir)
297 0 0 if (not -d $element) { }
0 0 elsif (not -r $element) { }
298 0 0 if (grep {$_ eq $element;} map({'File::Spec'->canonpath($_);} @INC)) { }
307 0 0 if (grep {$_ eq $element;} map({'File::Spec'->canonpath($_);} @INC)) { }
320 0 0 unless @mod_dir >= 1
336 0 0 $input{'show_only'} eq 'core' ? :
0 0 exists $$args{'section'} ? :
338 0 0 exists $$args{'full_page'} ? :
339 0 0 exists $$args{'show_inc'} ? :
340 0 0 exists $$args{'show_dir'} ? :
341 0 0 exists $$args{'columns'} ? :
352 0 0 if (defined $input{'files_in'}) { }
360 0 0 unless ref $mod_info eq 'HASH'
363 0 0 unless keys %found_mod > 0
376 0 0 unless $overall_total
396 0 0 if ($_ eq 'name') { }
0 0 elsif ($_ eq 'core') { }
0 0 elsif ($_ eq 'path') { }
400 0 0 grep(('File::Spec'->rel2abs($$module{'path'}) =~ /\Q$_\E/), ($core_dir1, $core_dir2)) ? :
414 0 0 unless (defined $input{'files_in'} and ref $input{'files_in'} eq 'ARRAY')
415 0 0 if $input{'show_inc'}
422 0 0 if $input{'full_page'}
424 0 0 defined wantarray ? :
445 0 0 if (index($File::Find::name, $_) == 0)
447 0 0 unless exists $mod_count{$_}
451 0 0 if exists $path{$File::Find::name} and $File::Find::name ne $File::Find::topdir
454 0 0 unless $File::Find::name =~ /\.pm$/
456 0 0 unless ref $mod_info eq 'HASH'
460 0 0 if (index($File::Find::name, $_) == 0)
468 0 0 if (exists $found_mod{$$mod_info{'name'}}) { }
469 0 0 ref $found_mod{$$mod_info{'name'}} eq 'ARRAY' ? :