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'} ? :
28 0 0 if (defined $color_specs and ref $color_specs->[0] eq 'ARRAY') { }
30 0 0 if match_string($module_name, $_->[1]) == 1
34 0 0 if defined $color_specs and match_string($module_name, $color_specs->[1]) == 1
48 0 0 unless $file_path and $file_path =~ /\.pm$/
60 0 0 if ($sort_by eq 'name') { }
0 0 elsif ($sort_by eq 'version') { }
63 0 0 if (ref $modules->{$key} eq 'ARRAY') { }
75 0 0 if (ref $modules->{$key} eq 'ARRAY') { }
96 0 0 if $full_page
106 0 0 $section ? :
107 0 0 if $color_specs and $color_specs->[2]
121 0 0 unless open MOD, $module_path
124 0 0 unless ($mod_name)
125 0 0 if (/^ *package +(\S+);/)
130 0 0 unless ($mod_version)
132 0 0 if (/([\$*])(([\w\:\']*)\bVERSION)\b.*\=/)
148 0 0 if not defined $mod_version or $@
153 0 0 unless ($mod_desc)
154 0 0 if (/=head\d\s+NAME/)
162 0 0 if $mod_name and $mod_version and $mod_desc
167 0 0 if not $mod_name or $show_only and ref $show_only and match_string($mod_name, $show_only) == 0
168 0 0 unless $mod_version and $mod_version =~ /^[\.\d+_]+$/
169 0 0 if $mod_desc
170 0 0 unless $mod_desc
181 0 0 if (ref $color_specs->[0] eq 'ARRAY') { }
184 0 0 if $count++ % 5 == 0
187 0 0 if $count >= 5 and $count % 5 == 0 or $count >= @{$color_specs;}
206 0 0 if ($show_dir) { }
212 0 0 if $amount_found
217 0 0 if ($dir1 ne $dir2 and $dir2 =~ /^$dir1/)
223 0 0 unless (grep {$_ eq $top_dir;} @bad_dir)
231 0 0 if -d $_ and -r $_
234 0 0 if (@module_paths >= 1)
239 0 0 grep({$_ eq $dir;} @$mod_dir) ? :
240 0 0 $searched eq 'yes' ? :
250 0 0 exists $mod_count->{$dir} ? :
251 0 0 $searched eq 'yes' ? :
275 0 0 $show_only eq 'core' ? :
0 0 ref $from eq 'ARRAY' && $show_only ne 'core' ? :
279 0 0 if -d $_ and -r $_
280 0 0 if (@mod_dir != @user_dir)
289 0 0 if (@user_dir > @mod_dir)
295 0 0 if (not -d $element) { }
0 0 elsif (not -r $element) { }
296 0 0 if (grep {$_ eq $element;} map({'File::Spec'->canonpath($_);} @INC)) { }
305 0 0 if (grep {$_ eq $element;} map({'File::Spec'->canonpath($_);} @INC)) { }
318 0 0 unless @mod_dir >= 1
335 0 0 $input{'show_only'} eq 'core' ? :
0 0 exists $args->{'section'} ? :
336 0 0 exists $args->{'full_page'} ? :
337 0 0 exists $args->{'show_inc'} ? :
338 0 0 exists $args->{'show_dir'} ? :
339 0 0 exists $args->{'columns'} ? :
350 0 0 if (defined $input{'files_in'}) { }
358 0 0 unless ref $mod_info eq 'HASH'
361 0 0 unless keys %found_mod > 0
377 0 0 unless $overall_total
397 0 0 if ($_ eq 'name') { }
0 0 elsif ($_ eq 'core') { }
0 0 elsif ($_ eq 'path') { }
401 0 0 grep(('File::Spec'->rel2abs($module->{'path'}) =~ /\Q$_\E/), @core_dir) ? :
415 0 0 unless (defined $input{'files_in'} and ref $input{'files_in'} eq 'ARRAY')
420 0 0 if $input{'show_inc'}
423 0 0 if $input{'full_page'}
425 0 0 defined wantarray ? :
446 0 0 if (index($File::Find::name, $_) == 0)
448 0 0 unless exists $mod_count{$_}
452 0 0 if exists $path{$File::Find::name} and $File::Find::name ne $File::Find::topdir
455 0 0 unless $File::Find::name =~ /\.pm$/
457 0 0 unless ref $mod_info eq 'HASH'
461 0 0 if (index($File::Find::name, $_) == 0)
469 0 0 if (exists $found_mod{$mod_info->{'name'}}) { }
470 0 0 ref $found_mod{$mod_info->{'name'}} eq 'ARRAY' ? :