| line |
true |
false |
branch |
|
42
|
0 |
53 |
if ($^O eq "darwin") |
|
44
|
0 |
0 |
if ($^X eq "/usr/bin/perl") |
|
52
|
0 |
53 |
if ($Is{'VMS'}) |
|
138
|
156 |
0 |
unless $self->needs_linking |
|
144
|
0 |
0 |
if ($Is{'ApplCor'}) |
|
148
|
0 |
0 |
if (my $cpp = $self->{'CPPRUN'}) |
|
157
|
0 |
0 |
$self->{'XSMULTI'} ? : |
|
165
|
0 |
0 |
unless $Is{'OS2'} or $Is{'Win32'} or $Is{'Dos'} |
|
166
|
0 |
0 |
$self->{'XSMULTI'} ? : |
|
169
|
0 |
0 |
$dbgout ? : |
|
|
0 |
0 |
$m_o ? : |
|
213
|
0 |
157 |
if $self->{'CFLAGS'} |
|
214
|
156 |
1 |
unless $self->needs_linking |
|
228
|
0 |
1 |
if ($ENV{'PERL_CORE'}) |
|
230
|
0 |
0 |
if (exists $ExtUtils::MM_Unix::Config{$x}) |
|
248
|
1 |
0 |
if ($libperl =~ /libperl(\w*)\Q$self->{'LIB_EXT'}\E/) { } |
|
253
|
0 |
1 |
$map{$uc} ? : |
|
255
|
0 |
1 |
if ($uc =~ /^D/) |
|
262
|
0 |
1 |
if ($prog = $ExtUtils::MM_Unix::Config{$name}) |
|
264
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose |
|
279
|
0 |
0 |
if ($line =~ /(.*?)=\s*(.*)\s*$/) { } |
|
281
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose |
|
288
|
0 |
1 |
if ($optdebug) |
|
300
|
0 |
1 |
if ($self->{'POLLUTE'}) |
|
305
|
1 |
0 |
unless exists $cflags{$x} |
|
306
|
0 |
0 |
$cflags{$x} =~ /^\s/ ? : |
|
310
|
0 |
1 |
if ($ExtUtils::MM_Unix::Config{'usemymalloc'} and not $ExtUtils::MM_Unix::Config{'bincompat5005'} and not $ExtUtils::MM_Unix::Config{'ccflags'} =~ /-DPERL_POLLUTE_MALLOC\b/ and $self->{'PERL_MALLOC_OK'}) |
|
335
|
0 |
156 |
if $self->{'CONST_CCCMD'} |
|
336
|
156 |
0 |
unless $self->needs_linking |
|
365
|
0 |
3611 |
if $once_only{$key} |
|
381
|
156 |
0 |
unless $self->needs_linking |
|
391
|
0 |
0 |
unless defined $self->{$tmp} |
|
398
|
0 |
0 |
unless $self->{$tmp} |
|
448
|
483 |
13333 |
unless defined $self->{$macro} |
|
454
|
0 |
13333 |
if $ExtUtils::MakeMaker::macro_dep{$macro} |
|
477
|
314 |
1570 |
unless defined $self->{$macro} |
|
494
|
0 |
156 |
if $Is{'ApplCor'} and $self->{'PERL_INC'} =~ m[^/System/Library/Perl/] |
|
535
|
2 |
310 |
unless defined $self->{$macro} |
|
540
|
310 |
0 |
if $ExtUtils::MakeMaker::macro_dep{$macro} |
|
552
|
0 |
156 |
if $Is{'ApplCor'} |
|
556
|
154 |
2 |
if -e $self->catfile($self->{'PERL_INC'}, "config.h") and not $Is{'ApplCor'} |
|
572
|
0 |
0 |
unless defined $key and defined $val |
|
665
|
157 |
1 |
unless $self->{'DISTNAME'} |
|
684
|
0 |
99 |
if ($attribs{'SUFFIX'} and not $attribs{'SUFFIX'} =~ /^\./) |
|
944
|
156 |
0 |
unless $self->has_link_code |
|
946
|
0 |
0 |
if ($self->{'XSMULTI'}) { } |
|
960
|
0 |
0 |
if $self->{'XSMULTI'} and $d[0] eq "lib" |
|
962
|
0 |
0 |
if $basename eq "\$(BASEEXT)" |
|
992
|
156 |
0 |
unless $self->needs_linking |
|
993
|
0 |
0 |
unless $self->has_link_code |
|
997
|
0 |
0 |
if ($self->{'XSMULTI'}) { } |
|
1002
|
0 |
0 |
if $d[0] eq "lib" |
|
1003
|
0 |
0 |
if $d[$#d] eq "" |
|
1008
|
0 |
0 |
if (defined &DynaLoader::mod2fname) |
|
1014
|
0 |
0 |
unless defined $objfile |
|
1016
|
0 |
0 |
unless defined $ldfrom |
|
1019
|
0 |
0 |
$dlsyms_ext ? : |
|
1024
|
0 |
0 |
$dlsyms_ext ? : |
|
1043
|
0 |
0 |
$Is{'OS2'} ? : |
|
1044
|
0 |
0 |
$Is{'OS2'} ? : |
|
1058
|
0 |
0 |
if $Is{'OSF'} and $armaybe eq ":" |
|
1070
|
0 |
0 |
if $exportlist ne "\$(EXPORT_LIST)" |
|
1074
|
0 |
0 |
if ($armaybe ne ":") |
|
1079
|
0 |
0 |
if $Is{'OSF'} |
|
1083
|
0 |
0 |
if ($self->{'LD_RUN_PATH'}) |
|
1084
|
0 |
0 |
if ($Is{'IRIX'}) { } |
|
|
0 |
0 |
elsif ($^O eq 'darwin' and $Is{'AppleRPath'}) { } |
|
1104
|
0 |
0 |
if ($Is{'NetBSD'} || $Is{'Interix'} || $Is{'Android'} and $ExtUtils::MM_Unix::Config{'useshrplib'} eq "true") |
|
1109
|
0 |
0 |
if ($ExtUtils::MM_Unix::Config{'lddlflags'} =~ /-Wl,-R/) { } |
|
|
0 |
0 |
elsif ($ExtUtils::MM_Unix::Config{'lddlflags'} =~ /-R/) { } |
|
|
0 |
0 |
elsif ($Is{'Android'}) { } |
|
1121
|
0 |
0 |
if ($self->{'LD_RUN_PATH'} ne "") |
|
1166
|
0 |
102 |
if ($trace >= 2) |
|
1177
|
102 |
0 |
unless ($Is{'BSD'}) |
|
1179
|
102 |
0 |
if (open STDERR_COPY, '>&STDERR') { } |
|
1192
|
102 |
0 |
if ($self->file_name_is_absolute($name)) { } |
|
|
0 |
0 |
elsif ($self->canonpath($name) eq $self->canonpath(basename($name))) { } |
|
1200
|
0 |
102 |
$use_dir ? : |
|
1201
|
0 |
102 |
unless defined $dir |
|
1203
|
0 |
102 |
if $use_dir |
|
1206
|
0 |
102 |
if $trace >= 2 |
|
1207
|
0 |
102 |
unless $self->maybe_command($abs) |
|
1208
|
0 |
102 |
if $trace >= 2 |
|
1219
|
0 |
102 |
if ($Is{'BSD'}) { } |
|
1222
|
102 |
0 |
if $stderr_duped |
|
1226
|
102 |
0 |
if $stderr_duped |
|
1230
|
102 |
0 |
if ($val =~ /^VER_OK/m) { } |
|
|
0 |
0 |
elsif ($trace >= 2) { } |
|
1231
|
0 |
102 |
if $trace |
|
1258
|
0 |
7 |
unless open my $fixin, "<", $file |
|
1261
|
0 |
7 |
unless $line =~ s/^\s*\#!\s*// |
|
1264
|
1 |
6 |
unless defined $shb |
|
1266
|
0 |
6 |
unless (open my $fixout, ">", "$file_new") |
|
1280
|
0 |
6 |
unless (_rename($file, $file_bak)) |
|
1284
|
0 |
6 |
unless (_rename($file_new, $file)) |
|
1286
|
0 |
0 |
unless (_rename($file_bak, $file)) |
|
1295
|
0 |
7 |
if $ExtUtils::MM_Unix::Config{'eunicefix'} ne ":" |
|
1304
|
0 |
24 |
if ($Is{'VMS'} and not basename($file) =~ /\./) |
|
1323
|
1 |
6 |
if (defined $ENV{'PERL_MM_SHEBANG'} and $ENV{'PERL_MM_SHEBANG'} eq 'relocatable') { } |
|
|
3 |
3 |
elsif ($cmd =~ /^perl(?:\z|[^a-z])/) { } |
|
1328
|
3 |
0 |
if ($ExtUtils::MM_Unix::Config{'startperl'} =~ m[^\#!.*/perl]) { } |
|
1343
|
3 |
10 |
if ($self->maybe_command($maybefile)) |
|
1344
|
0 |
3 |
if $ExtUtils::MM_Unix::Verbose and $interpreter |
|
1355
|
3 |
0 |
if ($origcmd ne $interpreter and $self->file_name_is_absolute($origcmd)) |
|
1357
|
1 |
2 |
if ($self->maybe_command($origcmd) and grep {$_ eq $origdir;} @absdirs) |
|
1360
|
1 |
0 |
if ($odev == $idev and $oino eq $iino) |
|
1361
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose |
|
1373
|
6 |
1 |
if ($interpreter) { } |
|
1374
|
0 |
6 |
if $ExtUtils::MM_Unix::Verbose |
|
1377
|
6 |
0 |
if ($does_shbang) |
|
1379
|
4 |
2 |
if defined $arg |
|
1384
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose |
|
1436
|
626 |
162 |
if defined $self->{'HAS_LINK_CODE'} |
|
1437
|
2 |
159 |
unless $self->{'C'} |
|
|
2 |
159 |
if ($self->{'OBJECT'} or @{[] unless $self->{'C'};} or $self->{'MYEXTLIB'}) |
|
1462
|
0 |
158 |
$Is{'VMS'} ? : |
|
1464
|
0 |
158 |
$Is{'VMS'} ? : |
|
1467
|
0 |
158 |
if $Is{'VMS'} |
|
1469
|
0 |
158 |
if (defined $self->{'XS'} and not defined $self->{'C'}) |
|
1477
|
0 |
1269 |
if $name =~ /\#/ |
|
1478
|
0 |
1269 |
if $name =~ /$distprefix/ and -d $name |
|
1479
|
0 |
1269 |
if ($Is{'VMS'}) |
|
1481
|
0 |
0 |
if $name eq "." |
|
1483
|
455 |
656 |
if $name eq $Curdir or $name eq $Updir or $ignore{$name} |
|
1484
|
4 |
652 |
unless $self->libscan($name) |
|
1485
|
301 |
351 |
if (-d $name) { } |
|
|
0 |
351 |
elsif ($name =~ /\.xs\z/) { } |
|
|
0 |
351 |
elsif ($name =~ /\.c(pp|xx|c)?\z/i) { } |
|
|
0 |
351 |
elsif ($name =~ /\.h\z/i) { } |
|
|
0 |
351 |
elsif ($name =~ /\.PL\z/) { } |
|
|
0 |
351 |
elsif ($Is{'VMS'} || $Is{'Dos'} and $name =~ /[._]pl$/i) { } |
|
|
0 |
351 |
elsif ($name =~ /\.(p[ml]|pod)\z/) { } |
|
1486
|
0 |
301 |
if -l $name |
|
1487
|
0 |
301 |
if $self->{'NORECURS'} |
|
1488
|
58 |
243 |
if -f $self->catfile($name, "Makefile.PL") |
|
1494
|
0 |
0 |
unless $name =~ /perlmain\.c/ |
|
1504
|
0 |
0 |
if ($txt =~ /Extracting \S+ \(with variable substitutions/) { } |
|
1540
|
235 |
81 |
if ($$self{"${man}PODS"} or $$self{"INSTALL${man}DIR"} =~ /^(none|\s*)$/) { } |
|
1554
|
2 |
314 |
if $installdirs eq "PERL" |
|
1561
|
48 |
2611 |
if ($mandir =~ /^(?:man|cat)$_$/) |
|
1576
|
42 |
0 |
if (open my $fh, '<', $file) { } |
|
1578
|
22 |
189 |
if (/^=(?:head\d+|item|pod)\b/) |
|
1602
|
1 |
39 |
if (exists $self->{'EXE_FILES'}) |
|
1604
|
0 |
1 |
unless $self->_has_pod($name) |
|
1627
|
0 |
41 |
if ($name =~ /\.pod\z/) { } |
|
|
41 |
0 |
elsif ($name =~ /\.p[ml]\z/) { } |
|
1630
|
21 |
20 |
if ($self->_has_pod($name)) |
|
1642
|
0 |
21 |
if ($self->{'PERL_CORE'} and $name =~ /(config|setup).*\.pm/is or $name =~ /^README\.pod$/i) |
|
1652
|
0 |
21 |
unless ($manpagename =~ s/^\W*($parentlibs_re)\W+//s) |
|
1699
|
158 |
0 |
unless ($self->{'PMLIBDIRS'}) |
|
1700
|
0 |
158 |
if ($Is{'VMS'}) { } |
|
1717
|
124 |
192 |
if -d $pmlibdir and not $dir{$pmlibdir} |
|
1720
|
158 |
0 |
unless ($self->{'PMLIBPARENTDIRS'}) |
|
1724
|
1 |
157 |
if $self->{'PM'} and $self->{'ARGS'}{'PM'} |
|
1726
|
123 |
34 |
if (@{$self->{'PMLIBDIRS'};}) |
|
1727
|
0 |
123 |
if $ExtUtils::MM_Unix::Verbose >= 2 |
|
1731
|
246 |
123 |
if (-d $_) |
|
1732
|
0 |
246 |
unless ($self->libscan($_)) |
|
1737
|
0 |
123 |
if /\#/ |
|
1738
|
0 |
123 |
if /~$/ |
|
1739
|
0 |
123 |
if /,v$/ |
|
1740
|
0 |
123 |
if /\.swp$/ |
|
1748
|
123 |
0 |
if ($striplibpath = $path) =~ s/^(\W*)($parentlibs_re)\W/$1/i |
|
1754
|
0 |
123 |
if $ExtUtils::MM_Unix::Verbose >= 2 |
|
1755
|
0 |
123 |
unless $inst |
|
1756
|
0 |
123 |
if ($self->{'XSMULTI'} and $inst =~ /\.xs\z/) { } |
|
1818
|
0 |
158 |
if (defined &DynaLoader::mod2fname) |
|
1825
|
0 |
158 |
if (defined &DynaLoader::mod2fname) { } |
|
1839
|
158 |
0 |
unless ($self->{'PERL_SRC'}) |
|
1843
|
0 |
0 |
if (-f $self->catfile($dir, "config_h.SH") and -f $self->catfile($dir, "perl.h") and -f $self->catfile($dir, "lib", "strict.pm")) |
|
1854
|
0 |
158 |
if $self->{'PERL_CORE'} and not $self->{'PERL_SRC'} |
|
1856
|
0 |
158 |
if ($self->{'PERL_SRC'}) { } |
|
1861
|
0 |
0 |
$Is{'Win32'} ? : |
|
1864
|
0 |
0 |
unless (-s $self->catfile($self->{'PERL_SRC'}, "cflags") or $Is{'VMS'} and -s $self->catfile($self->{'PERL_SRC'}, "vmsish.h") or $Is{'Win32'}) |
|
1895
|
2 |
0 |
unless (-f ($perl_h = $self->catfile($self->{'PERL_INC'}, "perl.h")) or $old) |
|
1901
|
2 |
14 |
if -e $self->catfile($dir, "Config.pm") |
|
1903
|
2 |
0 |
if ($lib) |
|
1906
|
0 |
2 |
$Is{'Win32'} ? : |
|
1908
|
0 |
2 |
if (-e $self->catfile($inc, "perl.h")) |
|
1921
|
0 |
158 |
if ($Is{'Android'}) |
|
1946
|
0 |
158 |
if $self->{'CONFIG'} and ref $self->{'CONFIG'} ne "ARRAY" |
|
1947
|
158 |
0 |
unless ref $self->{'CONFIG'} |
|
1949
|
0 |
158 |
if $ExtUtils::MM_Unix::Config{'shellflags'} |
|
1952
|
0 |
3634 |
if $once_only{$m} |
|
1954
|
40 |
3594 |
unless exists $ExtUtils::MM_Unix::Config{$m} |
|
1973
|
2 |
156 |
unless -f $self->catfile("$self->{'PERL_LIB'}", "strict.pm") or $self->{'NAME'} eq "ExtUtils::MakeMaker" |
|
2052
|
0 |
468 |
if ($self->{$Lib} and not $self->{$Arch}) |
|
2057
|
0 |
0 |
unless (-d $self->{$Arch}) |
|
2058
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose |
|
2062
|
0 |
0 |
if $ExtUtils::MM_Unix::Verbose |
|
2095
|
1589 |
160 |
if defined $component |
|
2102
|
0 |
159 |
$Is{'VMS'} ? : |
|
|
0 |
159 |
unless $Is{'VMS'} ? $thisperl =~ /$ExtUtils::MM_Unix::Config{'exe_ext'}(;\d+)?$/i : $thisperl =~ /$ExtUtils::MM_Unix::Config{'exe_ext'}$/i |
|
2106
|
0 |
159 |
if $self->{'PERL_CORE'} |
|
2115
|
0 |
159 |
if ($self->{'PERL_CORE'}) { } |
|
2132
|
159 |
0 |
if -x $stripped_perl |
|
2133
|
0 |
0 |
unless $perl =~ s/(\s+\S+)$// |
|
2137
|
0 |
159 |
if $has_mcr or $Is{'VMS'} |
|
2142
|
0 |
0 |
if $Is{'VMS'} and defined $ExtUtils::MM_Unix::Config{'usevmsdebug'} and $ExtUtils::MM_Unix::Config{'usevmsdebug'} eq "define" |
|
2147
|
102 |
57 |
unless ($self->{'FULLPERL'}) |
|
2153
|
0 |
159 |
if $Is{'VMS'} |
|
2159
|
159 |
0 |
if ($self->file_name_is_absolute($self->{'ABSPERL'})) { } |
|
2167
|
0 |
0 |
if $self->{'ABSPERL'} =~ /\s/ |
|
2169
|
0 |
0 |
if $has_mcr |
|
2175
|
0 |
159 |
if $Is{'VMS'} |
|
2178
|
94 |
65 |
unless exists $self->{'PERL_CORE'} |
|
2179
|
102 |
57 |
unless defined $self->{'PERL_CORE'} |
|
2183
|
0 |
0 |
$self->{'PERL_ARCHLIB'} && $self->{'PERL_LIB'} && $self->{'PERL_ARCHLIB'} ne $self->{'PERL_LIB'} ? : |
|
|
0 |
159 |
$self->{'UNINSTALLED_PERL'} || $self->{'PERL_CORE'} ? : |
|
2187
|
159 |
0 |
$self->{'INST_ARCHLIB'} ne $self->{'INST_LIB'} ? : |
|
2194
|
0 |
477 |
if $lib_paths |
|
2227
|
0 |
312 |
unless defined $self->{$macro} |
|
2246
|
158 |
0 |
unless defined $self->{'PERM_DIR'} |
|
2247
|
158 |
0 |
unless defined $self->{'PERM_RW'} |
|
2248
|
158 |
0 |
unless defined $self->{'PERM_RWX'} |
|
2266
|
0 |
158 |
if ($self->has_link_code) { } |
|
2273
|
0 |
0 |
if ($self->{'XSMULTI'}) |
|
2279
|
0 |
0 |
if defined $d[0] and $d[0] eq "lib" |
|
2280
|
0 |
0 |
if $d[$#d] eq "" |
|
2288
|
0 |
0 |
if (defined &DynaLoader::mod2fname) |
|
2348
|
99 |
0 |
unless $self->{'NO_PACKLIST'} |
|
2367
|
99 |
0 |
unless $self->{'NO_PACKLIST'} |
|
2385
|
99 |
0 |
unless $self->{'NO_PACKLIST'} |
|
2407
|
0 |
99 |
if $self->{'NO_PERLLOCAL'} |
|
2443
|
99 |
0 |
unless $self->{'NO_PERLLOCAL'} |
|
2471
|
155 |
1 |
unless $self->{'EXE_FILES'} and ref $self->{'EXE_FILES'} eq "ARRAY" |
|
2473
|
0 |
1 |
unless @exefiles |
|
2475
|
0 |
1 |
if $Is{'VMS'} |
|
2483
|
0 |
1 |
if $ExtUtils::MM_Unix::Verbose >= 2 |
|
2485
|
0 |
1 |
if $Is{'VMS'} |
|
2532
|
156 |
0 |
unless defined $linktype |
|
2533
|
0 |
156 |
if (defined $linktype and $linktype eq "") |
|
2536
|
0 |
156 |
unless defined $linktype |
|
2553
|
248 |
0 |
defined $dir ? : |
|
|
0 |
248 |
unless opendir my $dh, defined $dir ? $dir : "." |
|
2557
|
90 |
158 |
if defined $regex |
|
2593
|
1 |
156 |
unless $perlinc |
|
2599
|
1 |
156 |
unless $perlinc |
|
2601
|
57 |
100 |
if $self->{'PARENT'} |
|
2605
|
100 |
0 |
unless ($self->{'MAKEAPERL'}) |
|
2619
|
1 |
0 |
if ($arg =~ /(^.*?=)(.*['\s].*)/) |
|
2633
|
0 |
0 |
if $ExtUtils::MM_Unix::Config{'useshrplib'} eq "true" |
|
2645
|
0 |
0 |
unless $static |
|
2648
|
0 |
0 |
unless $extra and ref $extra eq "ARRAY" |
|
2650
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E\z/ |
|
2655
|
0 |
0 |
unless $perlinc |
|
2673
|
0 |
0 |
if (defined $libperl) |
|
2676
|
0 |
0 |
unless ($libperl and -f $lperl) |
|
2678
|
0 |
0 |
if $self->{'UNINSTALLED_PERL'} |
|
2684
|
0 |
0 |
unless (-f $libperl or -f $lperl) |
|
2686
|
0 |
0 |
if ($Is{'SunOS'}) |
|
2689
|
0 |
0 |
if $Is{'SunOS4'} |
|
2693
|
0 |
0 |
unless -f $lperl or defined $self->{'PERL_SRC'} |
|
2701
|
0 |
0 |
$libperl ? : |
|
2720
|
0 |
0 |
$self->{'XSMULTI'} ? : |
|
2733
|
0 |
0 |
$ExtUtils::MM_Unix::Config{'usedl'} ? : |
|
2743
|
0 |
0 |
if defined &Dos::UseLFN and Dos::UseLFN() == 0 |
|
2785
|
0 |
0 |
if ($File::Find::name =~ m[/auto/share\z]) |
|
2793
|
0 |
0 |
unless /\Q$self->{'LIB_EXT'}\E$/ |
|
2795
|
0 |
0 |
unless -f "extralibs.ld" |
|
2798
|
0 |
0 |
if /^libperl/ or /^perl\Q$self->{'LIB_EXT'}\E$/ |
|
2802
|
0 |
0 |
if /_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure" |
|
2804
|
0 |
0 |
if (exists $self->{'INCLUDE_EXT'}) { } |
|
|
0 |
0 |
elsif (exists $self->{'EXCLUDE_EXT'}) { } |
|
2814
|
0 |
0 |
if ($xx eq $incl) |
|
2819
|
0 |
0 |
unless $found |
|
2828
|
0 |
0 |
if $xx eq $excl |
|
2839
|
0 |
0 |
if $File::Find::name =~ /\Q$installed_version\E\z/ |
|
2840
|
0 |
0 |
unless $self->xs_static_lib_is_xs($_) |
|
2843
|
0 |
0 |
unless $searchdirs |
|
2876
|
0 |
156 |
if $self->{'OBJECT'} |
|
2878
|
0 |
156 |
$Is{'VMS'} ? : |
|
2881
|
0 |
156 |
if (defined $::Cross::platform) |
|
2914
|
2 |
354 |
unless defined $file and length $file |
|
2915
|
107 |
247 |
if -x $file and not -d $file |
|
2931
|
0 |
1687 |
if $caller =~ /^ExtUtils::MakeMaker::/ |
|
2933
|
1531 |
156 |
if defined $self->{'NEEDS_LINKING'} |
|
2934
|
0 |
156 |
if ($self->has_link_code or $self->{'MAKEAPERL'}) |
|
2939
|
0 |
56 |
if ($self->{'CHILDREN'}{$child}->needs_linking) |
|
2959
|
0 |
13 |
unless open my $fh, "<", $parsefile |
|
2966
|
2 |
51 |
/^=cut/ ? : |
|
|
17 |
53 |
/^=(?!cut)/ ? : |
|
2967
|
18 |
52 |
unless $inpod |
|
2970
|
1 |
51 |
if (/^=encoding\s*(.*)$/i) |
|
2974
|
13 |
39 |
if (/^($package(?:\.pm)? \s+ -+ \s+)(.*)/x) |
|
2978
|
34 |
5 |
unless $result |
|
2980
|
3 |
2 |
if ($result and /^\s*$/ || /^\=/) |
|
2987
|
1 |
12 |
if ($pod_encoding and not "$]" < 5.008 || !$ExtUtils::MM_Unix::Config{'useperlio'}) |
|
3026
|
0 |
183 |
unless open my $fh, "<", $parsefile |
|
3029
|
0 |
383 |
/^=cut/ ? : |
|
|
0 |
383 |
/^=(?!cut)/ ? : |
|
3030
|
0 |
383 |
if $inpod or /^\s*#/ |
|
3032
|
2 |
381 |
if /^\s*(if|unless|elsif)/ |
|
3033
|
44 |
337 |
if (/^ \s* (?:package|class) \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* (:|;|\{) /x) { } |
|
|
130 |
207 |
elsif (/(?=!])\=[^=]/x) { } |
|
3043
|
170 |
4 |
if defined $result |
|
3047
|
3 |
180 |
if (defined $result and not $result =~ /^v?[\d_\.]+$/) |
|
3050
|
1 |
2 |
if defined $normal |
|
3052
|
170 |
13 |
if (defined $result) |
|
3054
|
2 |
168 |
unless $result =~ /^v?[\d_\.]+$/ or eval {
do {
"version"->parse($result)
}
} |
|
3056
|
13 |
170 |
unless defined $result |
|
3073
|
130 |
0 |
if $line =~ /^(.+)/s |
|
3100
|
0 |
156 |
$Is{'VMS'} ? : |
|
3107
|
466 |
470 |
unless defined $self->{$key} |
|
3116
|
0 |
312 |
if defined $self->{$key} |
|
3136
|
1 |
0 |
if -r $file and -f _ |
|
3153
|
0 |
156 |
if $self->{'PERL_SRC'} |
|
3165
|
156 |
0 |
unless $self->needs_linking |
|
3167
|
0 |
0 |
if ($self->{'OBJECT'}) |
|
3173
|
0 |
0 |
if %{$self->{'XS'};} |
|
3236
|
5 |
151 |
ref $self->{'AUTHOR'} eq 'ARRAY' ? : |
|
3250
|
6 |
150 |
if ($self->{'MIN_PERL_VERSION'}) |
|
3266
|
4 |
31 |
unless $name =~ /::/ |
|
3270
|
18 |
17 |
if $version |
|
3280
|
156 |
0 |
if ("$]" >= "5.008") |
|
3287
|
0 |
156 |
if ($self->{'PPM_INSTALL_SCRIPT'}) |
|
3288
|
0 |
0 |
if ($self->{'PPM_INSTALL_EXEC'}) { } |
|
3298
|
0 |
156 |
if ($self->{'PPM_UNINSTALL_SCRIPT'}) |
|
3299
|
0 |
0 |
if ($self->{'PPM_UNINSTALL_EXEC'}) { } |
|
3360
|
0 |
2259 |
if $sprefix =~ m[/$] |
|
3362
|
0 |
2259 |
if $ExtUtils::MM_Unix::Verbose >= 2 |
|
3363
|
0 |
2259 |
if $ExtUtils::MM_Unix::Verbose >= 2 |
|
3365
|
14 |
2245 |
if ($self->{'ARGS'}{'PREFIX'} and not $path =~ s/^\Q$sprefix\E\b/$rprefix/s) |
|
3369
|
0 |
14 |
if $ExtUtils::MM_Unix::Verbose >= 2 |
|
3370
|
0 |
14 |
if not $default and $ExtUtils::MM_Unix::Verbose >= 2 |
|
3372
|
14 |
0 |
if $default |
|
3375
|
0 |
2259 |
if $ExtUtils::MM_Unix::Verbose >= 2 |
|
3390
|
0 |
156 |
unless $pl_files |
|
3398
|
0 |
0 |
ref $targets eq 'ARRAY' ? : |
|
|
0 |
0 |
ref $targets eq 'HASH' ? : |
|
3401
|
0 |
0 |
if ($Is{'VMS'}) |
|
3413
|
0 |
0 |
if (defined $self->{'PM'}{$target}) { } |
|
3423
|
0 |
0 |
if (ref $targets eq "HASH") |
|
3426
|
0 |
0 |
ref $targets->{$target} ? : |
|
3429
|
0 |
0 |
if ($Is{'VMS'}) |
|
3504
|
0 |
1205 |
if $self->is_make_type("bsdmake") |
|
3516
|
326 |
2109 |
unless defined $switches |
|
3549
|
4893 |
8839 |
unless defined $opts->{'allow_variables'} |
|
3555
|
4894 |
8838 |
$opts->{'allow_variables'} ? : |
|
3583
|
157 |
619 |
unless (defined $self->{'_MAX_EXEC_LEN'}) |
|
3584
|
0 |
157 |
if (my $arg_max = eval {
do {
require POSIX;
&POSIX::ARG_MAX
}
}) { } |
|
3616
|
156 |
0 |
unless $self->has_link_code |
|
3619
|
0 |
0 |
if ($self->{'XSMULTI'}) { } |
|
3623
|
0 |
0 |
if $d[0] eq "lib" |
|
3665
|
0 |
0 |
if $self->{'PERL_SRC'} and $self->{'EXTRALIBS'} |
|
3682
|
0 |
0 |
unless $self->{'MYEXTLIB'} |
|
3695
|
0 |
0 |
if (exists $self->{'FULL_AR'} and -x $self->{'FULL_AR'}) { } |
|
3722
|
0 |
156 |
if (@{$self->{'C'};}) |
|
3787
|
56 |
100 |
if (@m) { } |
|
3809
|
0 |
156 |
if (not $tests and -d 't' and defined $attribs{'RECURSIVE_TEST_FILES'}) { } |
|
|
113 |
43 |
elsif (not $tests and -d 't') { } |
|
3816
|
0 |
156 |
if $self->is_make_type("nmake") |
|
3819
|
154 |
2 |
$ExtUtils::MM_Unix::Config{'usedl'} ? : |
|
3847
|
226 |
86 |
if ($tests or -f 'test.pl') { } |
|
3852
|
226 |
226 |
$db eq 'db' ? : |
|
3853
|
0 |
452 |
if ($linktype eq 'static' and $self->needs_linking) { } |
|
3861
|
226 |
226 |
if ($db eq 'db') { } |
|
3864
|
112 |
114 |
if -f "test.pl" |
|
3866
|
226 |
0 |
if $tests |
|
3915
|
156 |
0 |
unless $self->needs_linking |
|
3921
|
0 |
0 |
if $self->{'PERL_CORE'} |
|
3926
|
0 |
0 |
if (-r $self->catfile($xsdir, "xsubpp")) |
|
3931
|
0 |
0 |
unless $foundxsubpp |
|
3935
|
0 |
0 |
if ($self->{'TYPEMAPS'}) |
|
3937
|
0 |
0 |
if (not -f $typemap) { } |
|
3941
|
0 |
0 |
if $Is{'VMS'} |
|
3946
|
0 |
0 |
if -f "typemap" |
|
3957
|
0 |
0 |
if (exists $self->{'XSOPT'}) |
|
3961
|
0 |
0 |
if ($Is{'VMS'} and $ExtUtils::MM_Unix::Config{'ldflags'} and $ExtUtils::MM_Unix::Config{'ldflags'} =~ m[/Debug]i and not exists $self->{'XSOPT'} && $self->{'XSOPT'} =~ /linenumbers/) |
|
3971
|
0 |
0 |
unless defined $self->{'XSPROTOARG'} |
|
4017
|
156 |
0 |
unless $self->{'SKIPHASH'}{'all'} |
|
4032
|
0 |
156 |
unless $self->{'O_FILES'} |
|
|
0 |
0 |
unless $self->{'H'} |
|
|
0 |
156 |
if @{[] unless $self->{'O_FILES'};} and @{[] unless $self->{'H'};} |
|
4065
|
156 |
0 |
unless $self->needs_linking |
|
4081
|
0 |
0 |
unless $self->needs_linking |
|
4100
|
156 |
0 |
unless $self->needs_linking |
|
4101
|
0 |
0 |
$self->{'XSMULTI'} ? : |
|
4103
|
0 |
0 |
$dbgout ? : |
|
4106
|
0 |
0 |
unless $self->is_make_type("dmake") |
|
4112
|
0 |
0 |
if ($self->{'XSMULTI'}) |
|
4115
|
0 |
0 |
unless -f $pmfile |
|
4134
|
0 |
0 |
if $Is{'ApplCor'} |
|
4142
|
0 |
0 |
unless defined $value |
|
4149
|
0 |
0 |
if $self->{'XSBUILD'}{$xstype}{$ext}{$varname} |
|
4151
|
0 |
0 |
if $self->{'XSBUILD'}{$xstype}{'all'}{$varname} |