| line |
true |
false |
branch |
|
69
|
0 |
158 |
if @_ % 2
|
|
141
|
11 |
309 |
if (exists $att->{'AUTHOR'})
|
|
142
|
11 |
0 |
if ($att->{'AUTHOR'}) { }
|
|
143
|
3 |
8 |
if (not ref $att->{'AUTHOR'})
|
|
159
|
2 |
434 |
unless (defined $sig)
|
|
164
|
16 |
418 |
ref $sig ? :
|
|
166
|
5 |
429 |
unless (grep {_is_of_type($val, $_);} @sigs)
|
|
181
|
432 |
28 |
if ref $thing eq $type
|
|
184
|
1 |
27 |
if eval {
|
|
193
|
6 |
3 |
uc $given eq $given ? :
|
|
|
4 |
9 |
$given eq '' ? :
|
|
202
|
1 |
4 |
unless defined $mess
|
|
207
|
2 |
2 |
defined $def ? :
|
|
208
|
2 |
2 |
defined $def ? :
|
|
215
|
3 |
1 |
if ($ENV{'PERL_MM_USE_DEFAULT'} or not $isa_tty and eof STDIN) { }
|
|
220
|
1 |
0 |
if (defined $ans) { }
|
|
228
|
3 |
1 |
!defined($ans) || $ans eq '' ? :
|
|
246
|
1 |
58 |
if $@
|
|
249
|
1 |
58 |
if $@
|
|
254
|
0 |
59 |
unless chdir $dir
|
|
260
|
1 |
58 |
if ($@)
|
|
402
|
52 |
0 |
if "$]" >= "5.006"
|
|
409
|
0 |
1196 |
if $Verbose >= 2
|
|
440
|
161 |
0 |
if defined $self and $self
|
|
447
|
0 |
161 |
unless defined $self
|
|
457
|
588 |
56 |
if (_has_cpan_meta_requirements()) { }
|
|
464
|
1 |
2 |
if ($_[0] =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/) { }
|
|
467
|
2 |
0 |
$_[0] ? :
|
|
481
|
2 |
12 |
if (not defined $version && length $version) { }
|
|
|
3 |
9 |
elsif ($version =~ /^\d+(?:\.\d+(?:_\d+)*)?$/) { }
|
|
488
|
1 |
8 |
if ($version =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/) { }
|
|
491
|
8 |
0 |
$version ? :
|
|
501
|
0 |
161 |
if (join($", @ARGV) =~ /\bPREREQ_PRINT\b/)
|
|
506
|
0 |
161 |
if (join($", @ARGV) =~ /\bPRINT_PREREQ\b/)
|
|
510
|
0 |
161 |
if $Verbose
|
|
511
|
0 |
0 |
if (-f "MANIFEST" and not -f "Makefile" and not $UNDER_CORE)
|
|
517
|
8 |
153 |
if ($self->{'MIN_PERL_VERSION'})
|
|
519
|
0 |
8 |
if (ref $perl_version) { }
|
|
533
|
7 |
1 |
if defined $perl_version
|
|
537
|
1 |
7 |
if (not defined $perl_version) { }
|
|
|
2 |
5 |
elsif ($perl_version > "$]") { }
|
|
548
|
1 |
1 |
if ($self->{'PREREQ_FATAL'}) { }
|
|
565
|
145 |
14 |
if (_has_cpan_meta_requirements()) { }
|
|
568
|
580 |
0 |
if $key2cmr{$key}
|
|
575
|
0 |
56 |
unless my $module2version = $self->{$key}
|
|
585
|
0 |
42 |
if ($prereq eq 'perl') { }
|
|
586
|
0 |
0 |
if (defined $required_version and $required_version =~ /^v?[\d_\.]+$/ or not $required_version =~ /^v?[\d_\.]+$/)
|
|
590
|
0 |
0 |
if defined $normal
|
|
597
|
5 |
37 |
if $installed_file
|
|
598
|
0 |
42 |
if $pr_version eq "undef"
|
|
599
|
0 |
42 |
unless (eval {
|
|
602
|
0 |
0 |
if ($pr_version =~ /^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/) { }
|
|
605
|
0 |
0 |
$pr_version ? :
|
|
616
|
5 |
0 |
$cmr ? :
|
|
|
37 |
5 |
if (not $installed_file) { }
|
|
|
3 |
2 |
elsif ($cmr ? !$cmr->accepts_module($prereq, $pr_version) : $required_version > $pr_version) { }
|
|
620
|
34 |
0 |
unless $self->{'PREREQ_FATAL'} or $UNDER_CORE
|
|
632
|
2 |
0 |
unless $self->{'PREREQ_FATAL'} or $UNDER_CORE
|
|
638
|
2 |
35 |
if (%unsatisfied and $self->{'PREREQ_FATAL'})
|
|
649
|
1 |
156 |
if (defined $self->{'CONFIGURE'})
|
|
650
|
1 |
0 |
if (ref $self->{'CONFIGURE'} eq 'CODE') { }
|
|
662
|
0 |
157 |
if $Verbose >= 2
|
|
672
|
57 |
100 |
if (defined $Parent[-2]) { }
|
|
675
|
57 |
513 |
unless defined $self->{'PARENT'}{$key}
|
|
679
|
0 |
513 |
if defined $self->{'ARGS'}{$key} and $self->{'ARGS'}{$key} eq $self->{$key}
|
|
683
|
0 |
513 |
if ($Is_VMS and $key =~ /PERL$/) { }
|
|
690
|
0 |
0 |
unless @cmd < 2 or $self->file_name_is_absolute($cmd[1])
|
|
696
|
0 |
513 |
if $key =~ /PERL$/ and $self->is_make_type("dmake")
|
|
697
|
114 |
399 |
if $key =~ /PERL$/
|
|
698
|
399 |
114 |
unless $self->file_name_is_absolute($value)
|
|
700
|
114 |
399 |
if $key =~ /PERL$/
|
|
704
|
57 |
0 |
if ($self->{'PARENT'})
|
|
708
|
571 |
170 |
if (exists $self->{'PARENT'}{$opt} and not exists $self->{$opt})
|
|
717
|
0 |
57 |
if @fm
|
|
724
|
1 |
34 |
if (%unsatisfied and $self->{'PREREQ_FATAL'})
|
|
738
|
0 |
156 |
unless $self->{'NAME'} =~ /^[A-Z_a-z][0-9A-Z_a-z]*(?:::[0-9A-Z_a-z]+)*$/
|
|
768
|
155 |
0 |
if $CAN_DECODE
|
|
788
|
1 |
154 |
if (defined $self->{'CONFIGURE'})
|
|
793
|
1 |
0 |
if (scalar keys %configure_att > 0) { }
|
|
795
|
0 |
1 |
if $key eq "ARGS"
|
|
810
|
155 |
0 |
unless $self->{'SKIP'}
|
|
815
|
57 |
98 |
if ($self->{'PARENT'})
|
|
823
|
153 |
2 |
unless ($self->{'NORECURS'})
|
|
824
|
57 |
96 |
if @{$self->{'DIR'};}
|
|
830
|
1232 |
7395 |
unless $self->can($method)
|
|
832
|
0 |
8627 |
if $Verbose >= 2
|
|
834
|
399 |
8228 |
if ($skipit) { }
|
|
837
|
8227 |
1 |
unless $self->{$section}
|
|
839
|
0 |
8228 |
if $Verbose and %a
|
|
852
|
1 |
1 |
if @_ % 2
|
|
855
|
1 |
0 |
unless $att{'DIR'}
|
|
860
|
0 |
1 |
if (-f $old)
|
|
861
|
0 |
0 |
unless _unlink($old)
|
|
863
|
0 |
1 |
if (-f $new)
|
|
864
|
0 |
0 |
unless _rename($new, $old)
|
|
866
|
0 |
1 |
unless open my $mfh, ">", $new
|
|
891
|
0 |
1 |
unless close $mfh
|
|
920
|
7 |
570 |
if (-r $tmp)
|
|
940
|
155 |
1016 |
if $key eq "ARGS"
|
|
942
|
159 |
857 |
if ($key eq 'PREREQ_PM') { }
|
|
946
|
0 |
159 |
unless $att->{'PREREQ_PM'}
|
|
947
|
2 |
157 |
unless $att->{'BUILD_REQUIRES'}
|
|
948
|
4 |
155 |
unless $att->{'TEST_REQUIRES'}
|
|
970
|
0 |
100 |
if @words and not defined $words[-1]
|
|
971
|
0 |
100 |
unless @words or not length $line
|
|
987
|
0 |
8 |
unless $line =~ s/^
|
|
1010
|
3 |
5 |
$1 ? :
|
|
1013
|
0 |
5 |
unless defined $quote or length $unquoted or length $delim
|
|
1015
|
0 |
8 |
if ($keep) { }
|
|
1020
|
3 |
5 |
if (defined $quote)
|
|
1021
|
3 |
0 |
if $quote eq "\""
|
|
1026
|
3 |
5 |
defined $quote ? :
|
|
1028
|
1 |
7 |
if (length $delim)
|
|
1030
|
0 |
1 |
if $keep eq "delimiters"
|
|
1033
|
3 |
5 |
unless (length $line)
|
|
1046
|
0 |
0 |
if (@missed) { }
|
|
1058
|
100 |
0 |
if $CAN_DECODE
|
|
1060
|
0 |
5 |
unless (/(.*?)=(.*)/)
|
|
1061
|
0 |
0 |
if /^verb/
|
|
1065
|
0 |
5 |
if ($value =~ /^~(\w+)?/)
|
|
1066
|
0 |
0 |
$1 ? :
|
|
1077
|
0 |
100 |
if (defined $self->{'potential_libs'})
|
|
1079
|
0 |
0 |
if ($self->{'potential_libs'}) { }
|
|
1088
|
0 |
100 |
if (defined $self->{'ARMAYBE'})
|
|
1092
|
0 |
0 |
unless $self->{'dynamic_lib'}
|
|
1096
|
0 |
100 |
if (defined $self->{'LDTARGET'})
|
|
1102
|
0 |
100 |
if (defined $self->{'DIR'} and ref \$self->{'DIR'} eq "SCALAR")
|
|
1109
|
0 |
100 |
if (defined $self->{'INCLUDE_EXT'} and ref \$self->{'INCLUDE_EXT'} eq "SCALAR")
|
|
1113
|
0 |
100 |
if (defined $self->{'EXCLUDE_EXT'} and ref \$self->{'EXCLUDE_EXT'} eq "SCALAR")
|
|
1118
|
100 |
624 |
if $mmkey eq "ARGS"
|
|
1119
|
0 |
624 |
if $Verbose
|
|
1121
|
2 |
622 |
unless exists $Recognized_Att_Keys{$mmkey}
|
|
1123
|
0 |
100 |
if $Verbose
|
|
1134
|
161 |
2 |
unless -d $hint_dir
|
|
1140
|
0 |
2 |
unless $hint
|
|
1144
|
2 |
6 |
if -f "File::Spec"->catfile($hint_dir, "$hint.pl")
|
|
1146
|
0 |
6 |
unless $hint =~ s/_[^_]*$//
|
|
1150
|
0 |
2 |
unless -f $hint_file
|
|
1161
|
0 |
2 |
if $Verbose
|
|
1167
|
1 |
1 |
if (not defined $ret)
|
|
1177
|
0 |
2 |
unless $_[0] =~ /^Subroutine .* redefined/
|
|
1180
|
11302 |
2 |
unless defined &{"${from}::$method";}
|
|
1202
|
0 |
154 |
if $section eq "metafile" and $UNDER_CORE
|
|
1203
|
154 |
8473 |
if ($section eq "dynamic")
|
|
1206
|
0 |
0 |
if $self->{'SKIPHASH'}{'dynamic_bs'} and $Verbose
|
|
1209
|
0 |
0 |
if $self->{'SKIPHASH'}{'dynamic_lib'} and $Verbose
|
|
1211
|
154 |
8473 |
if ($section eq "dynamic_lib")
|
|
1214
|
0 |
0 |
if $self->{'SKIPHASH'}{'dynamic_bs'} and $Verbose
|
|
1216
|
154 |
8473 |
if ($section eq "static")
|
|
1219
|
0 |
0 |
if $self->{'SKIPHASH'}{'static_lib'} and $Verbose
|
|
1221
|
399 |
8228 |
if $self->{'SKIPHASH'}{$section}
|
|
1228
|
0 |
151 |
unless open my $fh, ">", $file
|
|
1230
|
151 |
0 |
if $CAN_DECODE
|
|
1239
|
94 |
57 |
if $Verbose or not $self->{'PARENT'}
|
|
1240
|
94 |
57 |
if $Verbose or not $self->{'PARENT'}
|
|
1242
|
0 |
151 |
$Is_VMS ? :
|
|
1248
|
123 |
28 |
if not $self->{'NO_MYMETA'} and $self->write_mymeta($self->mymeta)
|
|
1251
|
0 |
151 |
if ($self->{'PARENT'} and not $self->{'_KEEP_AFTER_FLUSH'})
|
|
1257
|
0 |
151 |
if $Config::Config{'eunicefix'} ne ":"
|
|
1265
|
0 |
151 |
unless ref $contents
|
|
1268
|
0 |
17947 |
unless defined $to_write
|
|
1269
|
0 |
17947 |
if not $CAN_DECODE and "$]" > "5.008"
|
|
1270
|
0 |
17947 |
unless print $fh "$to_write\n"
|
|
1272
|
0 |
151 |
unless close $fh
|
|
1273
|
0 |
151 |
unless _rename("MakeMaker.tmp", $finalname)
|
|
1275
|
151 |
0 |
unless $Is_VMS
|
|
1316
|
8 |
1218 |
unless defined $v
|
|
1318
|
417 |
801 |
unless $t
|
|
1319
|
164 |
637 |
if ($t eq "ARRAY")
|
|
1329
|
5 |
632 |
unless $t eq "HASH"
|
|
1332
|
0 |
54 |
unless defined $key
|
|
1341
|
0 |
154 |
if ($Verbose)
|
|
1344
|
0 |
0 |
if $key eq "RESULT" or $key =~ /^[A-Z][a-z]/
|