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'} ? :
33 0 0 if (defined $color_specs and ref $color_specs->[0] eq 'ARRAY') { }
35 0 0 if match_string($module_name, $_->[1]) == 1
39 0 0 if defined $color_specs and match_string($module_name, $color_specs->[1]) == 1
53 0 0 unless $file_path and $file_path =~ /\.pm$/
65 0 0 if ($sort_by eq 'name') { }
0 0 elsif ($sort_by eq 'version') { }
68 0 0 if (ref $modules->{$key} eq 'ARRAY') { }
80 0 0 if (ref $modules->{$key} eq 'ARRAY') { }
101 0 0 if $full_page
111 0 0 $section ? :
112 0 0 if $color_specs and $color_specs->[2]
126 0 0 unless open MOD, $module_path
129 0 0 unless ($mod_name)
130 0 0 if (/^ *package +(\S+);/)
135 0 0 unless ($mod_version)
137 0 0 if (/([\$*])(([\w\:\']*)\bVERSION)\b.*\=/)
153 0 0 if not defined $mod_version or $@
158 0 0 unless ($mod_desc)
159 0 0 if (/=head\d\s+NAME/)
167 0 0 if $mod_name and $mod_version and $mod_desc
172 0 0 if not $mod_name or $show_only and ref $show_only and match_string($mod_name, $show_only) == 0
173 0 0 unless $mod_version and $mod_version =~ /^[\.\d+_]+$/
174 0 0 if $mod_desc
175 0 0 unless $mod_desc
186 0 0 if (ref $color_specs->[0] eq 'ARRAY') { }
189 0 0 if $count++ % 5 == 0
192 0 0 if $count >= 5 and $count % 5 == 0 or $count >= @{$color_specs;}
211 0 0 if ($show_dir) { }
217 0 0 if $amount_found
222 0 0 if ($dir1 ne $dir2 and $dir2 =~ /^$dir1/)
228 0 0 unless (grep {$_ eq $top_dir;} @bad_dir)
236 0 0 if -d $_ and -r $_
239 0 0 if (@module_paths >= 1)
244 0 0 grep({$_ eq $dir;} @$mod_dir) ? :
245 0 0 $searched eq 'yes' ? :
255 0 0 exists $mod_count->{$dir} ? :
256 0 0 $searched eq 'yes' ? :
281 0 0 $show_only eq 'core' ? :
0 0 ref $from eq 'ARRAY' && $show_only ne 'core' ? :
285 0 0 if -d $_ and -r $_
286 0 0 if (@mod_dir != @user_dir)
295 0 0 if (@user_dir > @mod_dir)
301 0 0 if (not -d $element) { }
0 0 elsif (not -r $element) { }
302 0 0 if (grep {$_ eq $element;} map({'File::Spec'->canonpath($_);} @INC)) { }
311 0 0 if (grep {$_ eq $element;} map({'File::Spec'->canonpath($_);} @INC)) { }
324 0 0 unless @mod_dir >= 1
341 0 0 $input{'show_only'} eq 'core' ? :
0 0 exists $args->{'section'} ? :
342 0 0 exists $args->{'full_page'} ? :
343 0 0 exists $args->{'show_inc'} ? :
344 0 0 exists $args->{'show_dir'} ? :
345 0 0 exists $args->{'columns'} ? :
356 0 0 if (defined $input{'files_in'}) { }
364 0 0 unless ref $mod_info eq 'HASH'
367 0 0 unless keys %found_mod > 0
380 0 0 unless $overall_total
400 0 0 if ($_ eq 'name') { }
0 0 elsif ($_ eq 'core') { }
0 0 elsif ($_ eq 'path') { }
404 0 0 grep(('File::Spec'->rel2abs($module->{'path'}) =~ /\Q$_\E/), ($core_dir1, $core_dir2)) ? :
418 0 0 unless (defined $input{'files_in'} and ref $input{'files_in'} eq 'ARRAY')
423 0 0 if $input{'show_inc'}
426 0 0 if $input{'full_page'}
428 0 0 defined wantarray ? :
449 0 0 if (index($File::Find::name, $_) == 0)
451 0 0 unless exists $mod_count{$_}
455 0 0 if exists $path{$File::Find::name} and $File::Find::name ne $File::Find::topdir
458 0 0 unless $File::Find::name =~ /\.pm$/
460 0 0 unless ref $mod_info eq 'HASH'
464 0 0 if (index($File::Find::name, $_) == 0)
472 0 0 if (exists $found_mod{$mod_info->{'name'}}) { }
473 0 0 ref $found_mod{$mod_info->{'name'}} eq 'ARRAY' ? :