| line |
true |
false |
branch |
|
62
|
0 |
5 |
scalar grep({-d $_;} '.bzr', '.cdv', '.git', '.hg', '.svn', 'CVS') ? : |
|
73
|
0 |
16 |
unless my $core_modules = _get_corelist_version($arg{'perl_version'}) |
|
106
|
2 |
14 |
if ($arg{'verbose'}) |
|
108
|
1 |
1 |
if @dup = grep({$requires{$_};} @{$arg{"accept"};}) |
|
110
|
1 |
0 |
@dup == 1 ? : |
|
113
|
1 |
1 |
if @dup = grep({$arg{'uses'}{$_};} @{$arg{"accept"};}) |
|
115
|
1 |
0 |
@dup == 1 ? : |
|
144
|
1 |
15 |
if (my $num = keys %arg) |
|
145
|
0 |
1 |
$num > 1 ? : |
|
155
|
2 |
8 |
unless (@file) |
|
169
|
1 |
62 |
if ($self->{'_normalize_path'}) |
|
171
|
1 |
0 |
if ($self->{'prune'}{$_}) |
|
176
|
33 |
29 |
unless _is_perl($_) |
|
182
|
1 |
28 |
unless $self->file_prereq_ok($_) |
|
192
|
1 |
9 |
if ($need_skip) |
|
213
|
1 |
2 |
unless my $rslt = $TEST->ok(!@unused, "All required modules are used") |
|
215
|
1 |
0 |
@unused == 1 ? : |
|
218
|
1 |
2 |
if ($self->{'verbose'} and my(@dup) = grep({$self->{'uses'}{$_} if $self->{'_requires'}{$_}{'file'};} keys %{$$self{"_requires"};})) |
|
219
|
1 |
0 |
if $self->{'_requires'}{$_}{'file'} |
|
223
|
1 |
0 |
@dup == 1 ? : |
|
234
|
0 |
35 |
if @arg |
|
243
|
35 |
0 |
if ($self->{'per_file_note'} ne "") |
|
268
|
1 |
34 |
if (my $err = $extor->error) |
|
290
|
0 |
136 |
unless $module =~ / \A [\w:]+ \z /msx |
|
297
|
2 |
134 |
if $module_found{$module}++ |
|
301
|
107 |
27 |
if $self->{'_requires'}{$module} |
|
322
|
1 |
133 |
unless $TEST->ok($self->{'has'}{$module} || $self->{'_both_tools'} && $toolchain->{$file}{$module} || 0, _format($self->{'name'}, {"e", "", "f", $file, "m", $module})) |
|
331
|
4 |
30 |
if ($need_skip) |
|
367
|
13 |
3 |
if $perl_ver eq "none" |
|
370
|
2 |
1 |
if $perl_ver eq "this" |
|
374
|
3 |
0 |
if $data = $Module::CoreList::version{$perl_ver} |
|
385
|
23 |
39 |
unless -T $file |
|
387
|
29 |
10 |
if $file =~ / [.] (?: (?i: pl ) | pm | t ) \z /msx |
|
389
|
0 |
10 |
unless open my $fh, "<", $file |
|
394
|
0 |
10 |
unless defined $_ |
|
436
|
576 |
64 |
unless $file =~ / [.] pm \z /msx |
|
438
|
0 |
64 |
unless my $info = "Module::Metadata"->new_from_file($file) |
|
442
|
16 |
48 |
if $ignore->{$module} |
|
452
|
44 |
1 |
ref $arg[0] && ref($arg[0])->isa(__PACKAGE__) ? : |
|
460
|
1 |
15 |
if (builtin::blessed($arg->{$name}) and $arg->{$name}->isa("CPAN::Meta")) |
|
467
|
0 |
15 |
unless @{$arg->{$name};} |
|
471
|
1 |
15 |
unless eval {
do {
$$arg{"_$name"} = "CPAN::Meta"->load_file($fn)
}
} |
|
477
|
0 |
0 |
if 1 == @{$arg;} |
|
502
|
7 |
56 |
unless ref $arg->{$name} |
|
503
|
0 |
63 |
unless "ARRAY" eq ref $arg->{$name} |