Branch Coverage

blib/lib/Test/Prereq/Meta.pm
Criterion Covered Total %
branch 66 84 78.5


line true false branch
62 0 5 scalar grep({-d $_;} '.bzr', '.cdv', '.git', '.hg', '.svn', 'CVS') ? :
81 0 16 unless $core_modules = $Module::CoreList::version{$arg{'perl_version'}}
115 2 14 if ($arg{'verbose'})
117 1 1 if @dup = grep({$requires{$_};} @{$arg{"accept"};})
119 1 0 @dup == 1 ? :
122 1 1 if @dup = grep({$arg{'uses'}{$_};} @{$arg{"accept"};})
124 1 0 @dup == 1 ? :
153 1 15 if (my $num = keys %arg)
154 0 1 $num > 1 ? :
164 2 8 unless (@file)
178 1 62 if ($self->{'_normalize_path'})
180 1 0 if ($self->{'prune'}{$_})
185 33 29 unless _is_perl($_)
191 1 28 unless $self->file_prereq_ok($_)
201 1 9 if ($need_skip)
222 1 2 unless my $rslt = $TEST->ok(!@unused, "All required modules are used")
224 1 0 @unused == 1 ? :
227 1 2 if ($self->{'verbose'} and my(@dup) = grep({$self->{'uses'}{$_} if $self->{'_requires'}{$_}{'file'};} keys %{$$self{"_requires"};}))
228 1 0 if $self->{'_requires'}{$_}{'file'}
232 1 0 @dup == 1 ? :
243 0 35 if @arg
252 35 0 if ($self->{'per_file_note'} ne "")
277 1 34 if (my $err = $extor->error)
299 1 136 unless $module =~ / \A [\w:]+ \z /msx
306 2 134 if $module_found{$module}++
310 107 27 if $self->{'_requires'}{$module}
331 1 133 unless $TEST->ok($self->{'has'}{$module} || $self->{'_both_tools'} && $toolchain->{$file}{$module} || 0, _format($self->{'name'}, {"e", "", "f", $file, "m", $module}))
340 4 30 if ($need_skip)
375 23 39 unless -T $file
377 29 10 if $file =~ / [.] (?: (?i: pl ) | pm | t ) \z /msx
379 0 10 unless open my $fh, "<", $file
384 0 10 unless defined $_
426 544 64 unless $file =~ / [.] pm \z /msx
428 0 64 unless my $info = "Module::Metadata"->new_from_file($file)
432 16 48 if $ignore->{$module}
442 44 1 ref $arg[0] && ref($arg[0])->isa('Test::Prereq::Meta') ? :
450 1 15 if (&Scalar::Util::blessed($arg->{$name}) and $arg->{$name}->isa("CPAN::Meta"))
457 0 15 unless @{$arg->{$name};}
460 1 15 unless -r $fn
466 0 0 if 1 == @{$arg;}
491 7 56 unless ref $arg->{$name}
492 0 63 unless "ARRAY" eq ref $arg->{$name}