| line |
true |
false |
branch |
|
69
|
0 |
160 |
if @_ % 2 |
|
141
|
11 |
313 |
if (exists $att->{'AUTHOR'}) |
|
142
|
11 |
0 |
if ($att->{'AUTHOR'}) { } |
|
143
|
3 |
8 |
if (not ref $att->{'AUTHOR'}) |
|
159
|
2 |
440 |
unless (defined $sig) |
|
164
|
20 |
420 |
ref $sig ? : |
|
166
|
5 |
435 |
unless (grep {_is_of_type($val, $_);} @sigs) |
|
181
|
438 |
32 |
if ref $thing eq $type |
|
184
|
1 |
31 |
if eval {
do {
$thing->isa($type)
}
} |
|
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
|
53 |
0 |
if "$]" >= "5.006" |
|
409
|
0 |
1219 |
if $Verbose >= 2 |
|
440
|
163 |
0 |
if defined $self and $self |
|
447
|
0 |
163 |
unless defined $self |
|
457
|
596 |
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 |
163 |
if (join($", @ARGV) =~ /\bPREREQ_PRINT\b/) |
|
506
|
0 |
163 |
if (join($", @ARGV) =~ /\bPRINT_PREREQ\b/) |
|
510
|
0 |
163 |
if $Verbose |
|
511
|
0 |
0 |
if (-f "MANIFEST" and not -f "Makefile" and not $UNDER_CORE) |
|
517
|
8 |
155 |
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
|
147 |
14 |
if (_has_cpan_meta_requirements()) { } |
|
568
|
588 |
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 {
do {
"version"->new($pr_version);
1
}
}) |
|
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) : 'version'->new($required_version) > 'version'->new($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 |
158 |
if (defined $self->{'CONFIGURE'}) |
|
650
|
1 |
0 |
if (ref $self->{'CONFIGURE'} eq 'CODE') { } |
|
662
|
0 |
159 |
if $Verbose >= 2 |
|
672
|
57 |
102 |
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
|
114 |
399 |
if $key =~ /PERL$/ |
|
697
|
399 |
114 |
unless $self->file_name_is_absolute($value) |
|
699
|
114 |
399 |
if $key =~ /PERL$/ |
|
703
|
57 |
0 |
if ($self->{'PARENT'}) |
|
707
|
571 |
170 |
if (exists $self->{'PARENT'}{$opt} and not exists $self->{$opt}) |
|
716
|
0 |
57 |
if @fm |
|
723
|
1 |
34 |
if (%unsatisfied and $self->{'PREREQ_FATAL'}) |
|
737
|
0 |
158 |
unless $self->{'NAME'} =~ /^[A-Z_a-z][0-9A-Z_a-z]*(?:::[0-9A-Z_a-z]+)*$/ |
|
767
|
157 |
0 |
if $CAN_DECODE |
|
787
|
1 |
156 |
if (defined $self->{'CONFIGURE'}) |
|
792
|
1 |
0 |
if (scalar keys %configure_att > 0) { } |
|
794
|
0 |
1 |
if $key eq "ARGS" |
|
809
|
157 |
0 |
unless $self->{'SKIP'} |
|
814
|
57 |
100 |
if ($self->{'PARENT'}) |
|
822
|
155 |
2 |
unless ($self->{'NORECURS'}) |
|
823
|
57 |
98 |
if @{$self->{'DIR'};} |
|
829
|
1248 |
7491 |
unless $self->can($method) |
|
831
|
0 |
8739 |
if $Verbose >= 2 |
|
833
|
399 |
8340 |
if ($skipit) { } |
|
836
|
8339 |
1 |
unless $self->{$section} |
|
838
|
0 |
8340 |
if $Verbose and %a |
|
851
|
1 |
1 |
if @_ % 2 |
|
854
|
1 |
0 |
unless $att{'DIR'} |
|
859
|
0 |
1 |
if (-f $old) |
|
860
|
0 |
0 |
unless _unlink($old) |
|
862
|
0 |
1 |
if (-f $new) |
|
863
|
0 |
0 |
unless _rename($new, $old) |
|
865
|
0 |
1 |
unless open my $mfh, ">", $new |
|
890
|
0 |
1 |
unless close $mfh |
|
919
|
7 |
466 |
if (-r $tmp) |
|
939
|
157 |
1030 |
if $key eq "ARGS" |
|
941
|
161 |
869 |
if ($key eq 'PREREQ_PM') { } |
|
945
|
0 |
161 |
unless $att->{'PREREQ_PM'} |
|
946
|
2 |
159 |
unless $att->{'BUILD_REQUIRES'} |
|
947
|
4 |
157 |
unless $att->{'TEST_REQUIRES'} |
|
969
|
0 |
102 |
if @words and not defined $words[-1] |
|
970
|
0 |
102 |
unless @words or not length $line |
|
986
|
0 |
8 |
unless $line =~ s/^
(?:
# double quoted string
(") # $quote
((?>[^\\"]*(?:\\.[^\\"]*)*))" # $quoted
| # --OR--
# singe quoted string
(') # $quote
((?>[^\\']*(?:\\.[^\\']*)*))' # $quoted
| # --OR--
# unquoted string
( # $unquoted
(?:\\.|[^\\"'])*?
)
# followed by
( # $delim
\Z(?!\n) # EOL
| # --OR--
(?-x:$delimiter) # delimiter
| # --OR--
(?!^)(?=["']) # a quote
)
)//sx |
|
1009
|
3 |
5 |
$1 ? : |
|
1012
|
0 |
5 |
unless defined $quote or length $unquoted or length $delim |
|
1014
|
0 |
8 |
if ($keep) { } |
|
1019
|
3 |
5 |
if (defined $quote) |
|
1020
|
3 |
0 |
if $quote eq "\"" |
|
1025
|
3 |
5 |
defined $quote ? : |
|
1027
|
1 |
7 |
if (length $delim) |
|
1029
|
0 |
1 |
if $keep eq "delimiters" |
|
1032
|
3 |
5 |
unless (length $line) |
|
1045
|
0 |
0 |
if (@missed) { } |
|
1057
|
102 |
0 |
if $CAN_DECODE |
|
1059
|
0 |
5 |
unless (/(.*?)=(.*)/) |
|
1060
|
0 |
0 |
if /^verb/ |
|
1064
|
0 |
5 |
if ($value =~ /^~(\w+)?/) |
|
1066
|
0 |
0 |
$1 ? : |
|
1077
|
0 |
102 |
if (defined $self->{'potential_libs'}) |
|
1079
|
0 |
0 |
if ($self->{'potential_libs'}) { } |
|
1088
|
0 |
102 |
if (defined $self->{'ARMAYBE'}) |
|
1092
|
0 |
0 |
unless $self->{'dynamic_lib'} |
|
1096
|
0 |
102 |
if (defined $self->{'LDTARGET'}) |
|
1102
|
0 |
102 |
if (defined $self->{'DIR'} and ref \$self->{'DIR'} eq "SCALAR") |
|
1109
|
0 |
102 |
if (defined $self->{'INCLUDE_EXT'} and ref \$self->{'INCLUDE_EXT'} eq "SCALAR") |
|
1113
|
0 |
102 |
if (defined $self->{'EXCLUDE_EXT'} and ref \$self->{'EXCLUDE_EXT'} eq "SCALAR") |
|
1118
|
102 |
638 |
if $mmkey eq "ARGS" |
|
1119
|
0 |
638 |
if $Verbose |
|
1121
|
2 |
636 |
unless exists $Recognized_Att_Keys{$mmkey} |
|
1123
|
0 |
102 |
if $Verbose |
|
1134
|
163 |
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
|
11446 |
2 |
unless defined &{"${from}::$method";} |
|
1202
|
0 |
156 |
if $section eq "metafile" and $UNDER_CORE |
|
1203
|
156 |
8583 |
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
|
156 |
8583 |
if ($section eq "dynamic_lib") |
|
1214
|
0 |
0 |
if $self->{'SKIPHASH'}{'dynamic_bs'} and $Verbose |
|
1216
|
156 |
8583 |
if ($section eq "static") |
|
1219
|
0 |
0 |
if $self->{'SKIPHASH'}{'static_lib'} and $Verbose |
|
1221
|
399 |
8340 |
if $self->{'SKIPHASH'}{$section} |
|
1228
|
0 |
153 |
unless open my $fh, ">", $file |
|
1230
|
153 |
0 |
if $CAN_DECODE |
|
1239
|
96 |
57 |
if $Verbose or not $self->{'PARENT'} |
|
1240
|
96 |
57 |
if $Verbose or not $self->{'PARENT'} |
|
1242
|
0 |
153 |
$Is_VMS ? : |
|
1248
|
125 |
28 |
if not $self->{'NO_MYMETA'} and $self->write_mymeta($self->mymeta) |
|
1251
|
0 |
153 |
if ($self->{'PARENT'} and not $self->{'_KEEP_AFTER_FLUSH'}) |
|
1257
|
0 |
153 |
if $Config::Config{'eunicefix'} ne ":" |
|
1265
|
0 |
153 |
unless ref $contents |
|
1268
|
0 |
18191 |
unless defined $to_write |
|
1269
|
0 |
18191 |
if not $CAN_DECODE and "$]" > "5.008" |
|
1270
|
0 |
18191 |
unless print $fh "$to_write\n" |
|
1272
|
0 |
153 |
unless close $fh |
|
1273
|
0 |
153 |
unless _rename("MakeMaker.tmp", $finalname) |
|
1275
|
153 |
0 |
unless $Is_VMS |
|
1316
|
8 |
1234 |
unless defined $v |
|
1318
|
421 |
813 |
unless $t |
|
1319
|
168 |
645 |
if ($t eq "ARRAY") |
|
1329
|
5 |
640 |
unless $t eq "HASH" |
|
1332
|
0 |
54 |
unless defined $key |
|
1341
|
0 |
156 |
if ($Verbose) |
|
1344
|
0 |
0 |
if $key eq "RESULT" or $key =~ /^[A-Z][a-z]/ |