| line |
true |
false |
branch |
|
38
|
0 |
13 |
if (my $err = $@) |
|
39
|
0 |
0 |
unless eval 'use ExtUtils::MakeMaker::version' |
|
55
|
8676 |
3798 |
unless my $reftype = ref $ref |
|
57
|
3503 |
295 |
defined $_CLONE_DEPTH ? : |
|
58
|
0 |
3798 |
if $_CLONE_DEPTH == 0 |
|
60
|
509 |
3289 |
if 'ARRAY' eq $reftype |
|
61
|
3277 |
12 |
if 'HASH' eq $reftype |
|
63
|
0 |
12 |
if ('SCALAR' eq $reftype) |
|
69
|
10 |
2 |
if (eval {
do {
$ref->can('TO_JSON')
}
}) |
|
71
|
10 |
0 |
ref $data ? : |
|
101
|
384 |
160 |
defined $_[0] ? : |
|
103
|
0 |
0 |
defined $_[0] ? : |
|
105
|
376 |
63 |
defined $_[0] && length $_[0] ? : |
|
111
|
5 |
496 |
unless defined $gen and length $gen |
|
112
|
287 |
209 |
if $gen =~ /\Q$sig\E/ |
|
116
|
476 |
48 |
ref $_[0] eq 'ARRAY' ? : |
|
|
276 |
524 |
!defined($_[0]) ? : |
|
128
|
0 |
6 |
unless $key =~ /[A-Z]/ |
|
176
|
24 |
351 |
unless defined $element |
|
177
|
351 |
0 |
if ($license_map_1{lc $element}) { } |
|
232
|
20 |
116 |
unless defined $element |
|
233
|
78 |
38 |
unless ref $element eq 'ARRAY' |
|
236
|
0 |
121 |
unless defined $lic |
|
237
|
121 |
0 |
if (my $new = $license_map_2{lc $lic}) |
|
241
|
116 |
0 |
@new_list ? : |
|
276
|
0 |
33 |
if (not defined $element) { } |
|
|
33 |
0 |
elsif (ref $element eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $element) { } |
|
280
|
6 |
27 |
if (@$element > 1) { } |
|
|
27 |
0 |
elsif (@$element == 1) { } |
|
281
|
0 |
6 |
if (grep {not $is_open_source{$license_downgrade_map{lc $_} or 'unknown'};} @$element) { } |
|
323
|
73 |
21 |
unless $no_index |
|
326
|
0 |
21 |
if (not ref $no_index) { } |
|
|
0 |
21 |
elsif (ref $no_index eq 'ARRAY') { } |
|
336
|
0 |
21 |
if (exists $no_index->{'files'}) |
|
340
|
0 |
21 |
if (exists $no_index->{'modules'}) |
|
348
|
278 |
67 |
unless $element |
|
351
|
0 |
67 |
if (not ref $element) { } |
|
|
2 |
65 |
elsif (ref $element eq 'ARRAY') { } |
|
360
|
0 |
67 |
if (exists $element->{'dir'}) |
|
364
|
0 |
67 |
if (exists $element->{'files'}) |
|
368
|
0 |
67 |
if (exists $element->{'modules'}) |
|
371
|
24 |
43 |
$version == 2 ? : |
|
377
|
0 |
12033 |
unless defined $mod and length $mod |
|
383
|
58 |
1619 |
unless defined $element |
|
389
|
0 |
1619 |
unless length $element |
|
390
|
0 |
1619 |
if $element eq 'undef' or $element eq '' |
|
395
|
1619 |
0 |
if (defined $v) { } |
|
396
|
0 |
1619 |
_is_qv($v) ? : |
|
409
|
4 |
48 |
defined $vobj ? : |
|
414
|
1345 |
1142 |
unless defined $element |
|
415
|
1137 |
5 |
if (ref $element eq 'HASH') { } |
|
|
5 |
0 |
elsif (ref $element eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $element eq '' and length $element) { } |
|
422
|
5 |
6014 |
unless _is_module_name($k) |
|
423
|
0 |
6014 |
if (not defined $v && length $v or $v eq 'undef' or $v eq '') |
|
428
|
12 |
6002 |
if (_is_module_name($v) and not version::is_lax($v)) |
|
452
|
56 |
116 |
if $meta->{$key} |
|
456
|
100 |
158 |
if $meta->{$rel} |
|
480
|
22 |
63 |
unless $prereqs and ref $prereqs eq 'HASH' |
|
486
|
188 |
127 |
unless $relation and ref $relation eq 'HASH' |
|
502
|
39 |
13 |
unless (defined $type) |
|
525
|
0 |
318 |
unless ref $prereqs eq 'HASH' |
|
531
|
9 |
24 |
unless exists $meta->{'optional_features'} |
|
544
|
96 |
48 |
unless defined $features->{$name}{$k} |
|
552
|
72 |
4 |
unless exists $meta->{'optional_features'} |
|
573
|
0 |
25 |
unless $element and ref $element eq 'HASH' |
|
579
|
35 |
25 |
unless $element and ref $element eq 'HASH' |
|
584
|
0 |
25 |
unless keys %$new_data |
|
590
|
67 |
4 |
unless $element |
|
602
|
155 |
48 |
unless $element |
|
603
|
4 |
44 |
if (ref $element eq 'ARRAY') |
|
614
|
380 |
433 |
if defined $_[0] |
|
618
|
290 |
413 |
if _is_urlish($element) |
|
624
|
8 |
30 |
unless $element |
|
627
|
0 |
30 |
unless @$element |
|
633
|
56 |
383 |
unless $element |
|
635
|
575 |
0 |
defined $_ && length $_ ? : |
|
636
|
0 |
383 |
unless @$element |
|
656
|
39 |
37 |
unless exists $meta->{'resources'} |
|
668
|
3 |
18 |
if defined $element |
|
669
|
1 |
17 |
unless exists $meta->{'url'} |
|
672
|
16 |
17 |
if $repo_url =~ /\A$type/ |
|
694
|
22 |
38 |
unless $resources and ref $resources eq 'HASH' |
|
708
|
110 |
129 |
unless exists $meta->{'resources'} |
|
717
|
1 |
30 |
if ($meta->{'license_url'} and not $resources->{'license'}) |
|
719
|
1 |
0 |
if _is_urlish($meta->{'license_url'}) |
|
721
|
29 |
2 |
unless keys %$resources |
|
735
|
6 |
27 |
unless exists $meta->{'resources'} |
|
741
|
32 |
104 |
if $element and $element =~ /\A(?:stable|testing|unstable)\z/ |
|
748
|
15 |
89 |
$version =~ /_/ ? : |
|
764
|
319 |
120 |
unless defined $element and ref $element eq 'HASH' |
|
765
|
44 |
76 |
$to_version == 2 ? : |
|
770
|
1677 |
59 |
if exists $element->{$k}{'version'} |
|
780
|
1969 |
14664 |
if $key eq ':custom' or $key eq ':drop' |
|
781
|
0 |
14664 |
unless my $fcn = $spec->{$key} |
|
782
|
43 |
14621 |
if ($is_fragment and $key eq 'generated_by') |
|
785
|
0 |
14664 |
unless ref $fcn and ref $fcn eq 'CODE' |
|
788
|
10073 |
4591 |
if defined $new_value |
|
795
|
428 |
10301 |
if $drop_list and grep {$key eq $_;} @$drop_list |
|
796
|
9553 |
748 |
if exists $spec->{$key} |
|
1354
|
62 |
432 |
unless defined $spec and ref $spec eq 'HASH' |
|
1358
|
426 |
6 |
if (defined $v and $v =~ /^\d+(?:\.\d+)?$/) |
|
1359
|
410 |
16 |
if defined $v and grep {$v eq $_;} keys %known_specs |
|
1360
|
11 |
5 |
if defined $v and grep {$v == $_;} keys %known_specs |
|
1364
|
5 |
6 |
if exists $data->{'prereqs'} |
|
1365
|
0 |
6 |
if exists $data->{'configure_requires'} |
|
1427
|
70 |
181 |
if ($old_version == $new_version) { } |
|
|
81 |
100 |
elsif ($old_version > $new_version) { } |
|
1429
|
39 |
31 |
unless ($args->{'is_fragment'}) |
|
1431
|
0 |
39 |
unless ($cmv->is_valid) |
|
1441
|
80 |
266 |
if $vers[$i] > $old_version |
|
1442
|
37 |
229 |
if $vers[$i + 1] < $new_version |
|
1445
|
229 |
0 |
unless ($args->{'is_fragment'}) |
|
1447
|
5 |
224 |
unless ($cmv->is_valid) |
|
1458
|
225 |
265 |
if $vers[$i] < $old_version |
|
1459
|
20 |
245 |
if $vers[$i + 1] > $new_version |
|
1462
|
233 |
12 |
unless ($args->{'is_fragment'}) |
|
1464
|
5 |
228 |
unless ($cmv->is_valid) |
|
1496
|
41 |
254 |
if $key =~ /^x_/i or $key eq 'meta-spec' |
|
1497
|
122 |
132 |
unless $expected{$key} |