| 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} |