| line |
true |
false |
branch |
|
37
|
0 |
80 |
if $self->{'action'} and $self->{'action'} ne "Build_PL" |
|
43
|
10 |
70 |
if (grep {not $_;} $self->check_prereq, $self->check_autofeatures) |
|
50
|
10 |
0 |
unless ($self->dist_name eq "Module-Build" or $ENV{'PERL5_CPANPLUS_IS_RUNNING'} or $ENV{'PERL5_CPAN_IS_RUNNING'}) |
|
68
|
5 |
64 |
unless $self->module_name |
|
80
|
0 |
466 |
unless $self->{'properties'}{'_added_to_INC'} |
|
88
|
0 |
463 |
unless ($package->isa($self->build_class)) |
|
93
|
0 |
0 |
unless ($build_class->can("new")) |
|
94
|
0 |
0 |
unless eval "require $build_class; 1" |
|
99
|
0 |
367 |
unless ($self->_perl_is_same($self->{'properties'}{'perl'})) |
|
111
|
367 |
0 |
unless ($self->allow_mb_mismatch) |
|
113
|
0 |
367 |
if ($mb_version ne $self->{'properties'}{'mb_version'}) |
|
164
|
2862 |
498 |
if -e $file |
|
165
|
0 |
3360 |
if (exists $p->{$_}) |
|
178
|
0 |
546 |
unless $p->{'perl'} = $self->find_perl_interpreter |
|
185
|
8 |
538 |
if defined $p->{'dist_author'} and not ref $p->{'dist_author'} |
|
188
|
0 |
546 |
if defined $p->{'prereq'} |
|
189
|
2 |
544 |
if defined $p->{'scripts'} |
|
193
|
1092 |
0 |
if exists $p->{$_} |
|
198
|
3 |
543 |
if exists $p->{$_} and not ref $p->{$_} |
|
202
|
0 |
546 |
if $p->{'add_to_cleanup'} |
|
211
|
78 |
90 |
if ref $self and $self->verbose || !$self->quiet |
|
215
|
23 |
4794 |
if ref $self and $self->verbose |
|
219
|
0 |
790 |
if ref $self and $self->debug |
|
225
|
0 |
103 |
if (@_ and not $_[-1] =~ /\n$/) { } |
|
241
|
365 |
0 |
$c->get('installstyle') ? : |
|
290
|
0 |
365 |
$c->get('usevendorprefix') ? : |
|
351
|
0 |
69 |
unless my $r = $self->recurse_into |
|
354
|
0 |
69 |
if (not ref $r and $r eq "auto") |
|
356
|
0 |
0 |
unless opendir DH, $self->base_dir |
|
360
|
0 |
0 |
unless -d $subdir |
|
361
|
0 |
0 |
if -e "File::Spec"->catfile($subdir, "Build.PL") |
|
380
|
21 |
7 |
if (/^[^\s*?!\$<>;\\|'"\[\]\{\}]+$/) { } |
|
396
|
2532 |
0 |
if ($self->have_forkpipe) { } |
|
399
|
2290 |
242 |
if ($pid) { } |
|
400
|
196 |
2094 |
wantarray ? : |
|
402
|
0 |
242 |
unless defined $pid |
|
428
|
0 |
751 |
if ($ENV{'PERL_CORE'}) |
|
442
|
3994 |
288 |
if defined $known_perl |
|
459
|
54 |
234 |
ref $proto ? : |
|
467
|
288 |
0 |
if "File::Spec"->file_name_is_absolute($perl) |
|
477
|
0 |
288 |
if ($ENV{'PERL_CORE'}) { } |
|
486
|
0 |
0 |
if (defined $perl_src and length $perl_src) |
|
510
|
288 |
0 |
if (defined $exe) |
|
511
|
0 |
288 |
unless $thisperl =~ /$exe$/i |
|
514
|
242 |
0 |
if (-f $thisperl and $proto->_perl_is_same($thisperl)) |
|
530
|
7 |
0 |
if ('File::Spec'->file_name_is_absolute($command)) { } |
|
536
|
0 |
0 |
if $abs = $self->_maybe_command($abs) |
|
544
|
0 |
7 |
if -x $file and not -d $file |
|
561
|
0 |
0 |
if $self->_is_unattended |
|
564
|
0 |
0 |
if defined $answer |
|
570
|
1 |
8 |
unless my $mess = shift() |
|
575
|
3 |
5 |
if @_ |
|
577
|
2 |
1 |
defined $def[0] ? : |
|
|
3 |
5 |
scalar @def ? : |
|
584
|
2 |
6 |
if ($self->_is_unattended and not @def) |
|
593
|
4 |
2 |
unless (defined $ans and length $ans) |
|
596
|
3 |
1 |
scalar @def ? : |
|
606
|
1 |
4 |
unless $mess |
|
607
|
1 |
3 |
if $def and not $def =~ /^[yn]/i |
|
613
|
2 |
0 |
if $answer =~ /^y/i |
|
614
|
0 |
0 |
if $answer =~ /^n/i |
|
625
|
0 |
4 |
@_ ? : |
|
632
|
2 |
0 |
if (@_) |
|
634
|
0 |
2 |
if ($ph->{'features'}->exists($key)) |
|
638
|
1 |
1 |
if (my $info = $ph->{'auto_features'}->access($key)) |
|
641
|
4 |
1 |
if $type eq "description" or $type eq "recommends" or not exists $info->{$type} |
|
646
|
0 |
1 |
if (not $status->{'ok'} xor $type =~ /conflicts$/) |
|
647
|
0 |
1 |
unless (eval "require $modname; 1") |
|
661
|
0 |
0 |
grep(/^(?:\w+_)?(?:requires|conflicts)$/, keys %$failures) ? : |
|
663
|
0 |
0 |
$disabled ? : |
|
667
|
0 |
0 |
wantarray ? : |
|
674
|
0 |
56 |
if (($self->module_name || '') eq 'Module::Build') { } |
|
697
|
1 |
1 |
unless grep {$_ eq $elem;} @$elems |
|
702
|
60 |
1 |
unless $self->has_config_data |
|
704
|
0 |
1 |
unless my $module_name = $self->module_name |
|
709
|
0 |
1 |
if $self->up_to_date(["Build.PL", $self->config_file("config_data"), $self->config_file("features")], $notes_pm) |
|
758
|
562 |
1161 |
exists $additive_properties{$_}{'ARRAY'} ? : |
|
762
|
2038 |
4143 |
exists $additive_properties{$_}{'HASH'} ? : |
|
767
|
1 |
26101 |
if $class->valid_property($property) |
|
769
|
12607 |
13494 |
@_ == 1 ? : |
|
776
|
2052 |
19643 |
$type eq 'ARRAY' ? : |
|
|
4400 |
21695 |
$type eq 'HASH' ? : |
|
|
6 |
26095 |
$type eq 'CODE' ? : |
|
778
|
6458 |
19643 |
if $type |
|
781
|
20241 |
5860 |
unless ($class->can($property)) |
|
783
|
2935 |
17306 |
$type eq 'HASH' ? : |
|
811
|
47450 |
2418 |
unless exists $self->{'properties'}{$prop} |
|
817
|
0 |
3920 |
unless exists $self->{'properties'}{$prop} |
|
822
|
0 |
8406 |
unless exists $self->{'properties'}{$prop} |
|
838
|
0 |
1260 |
unless (ref $self) |
|
844
|
1252 |
8 |
unless @_ |
|
847
|
4 |
4 |
if (defined $_[0] and not ref $_[0]) { } |
|
848
|
1 |
3 |
if (@_ == 1) { } |
|
|
3 |
0 |
elsif (@_ % 2 == 0) { } |
|
849
|
1 |
0 |
exists $$prop{$_[0]} ? : |
|
853
|
3 |
0 |
if &$check($self) |
|
859
|
1 |
3 |
if defined $_[0] and ref $_[0] ne "HASH" |
|
862
|
2 |
0 |
if &$check($self) |
|
877
|
0 |
11998 |
unless (ref $self) |
|
883
|
11811 |
187 |
unless @_ |
|
885
|
184 |
0 |
if &$check($self) |
|
1008
|
968 |
6916 |
ref $self ? : |
|
1009
|
30 |
7854 |
unless @_ |
|
1012
|
7853 |
1 |
unless @_ |
|
1025
|
1 |
41614 |
unless defined($current = shift @in_stack) and $current->isa("Module::Build::Base") |
|
1028
|
31131 |
10483 |
if $current eq "Module::Build::Base" |
|
1033
|
0 |
10485 |
if substr($c, 0, 2) eq "::" |
|
1036
|
1 |
10484 |
$seen{$c}++ ? : |
|
1053
|
0 |
42 |
if @_ |
|
1054
|
0 |
42 |
unless exists $p->{$_} |
|
1055
|
42 |
0 |
ref $p->{$_} ? : |
|
1064
|
7 |
15 |
if -e $build_dir |
|
1067
|
0 |
6 |
unless $opts{'code'} or $opts{'class'} |
|
1077
|
0 |
22 |
unless -d $filedir |
|
1079
|
0 |
22 |
unless open my $fh, ">", $filename |
|
1091
|
0 |
22 |
if $@ |
|
1099
|
0 |
5 |
if $p->{'module_name'} |
|
1100
|
0 |
5 |
if ($p->{'dist_version_from'} and -e $p->{'dist_version_from'}) { } |
|
1109
|
5 |
0 |
if (-e $mod_path or -e "lib/$mod_path") { } |
|
1127
|
162 |
63 |
if defined $p->{$me} |
|
1129
|
0 |
63 |
unless $self->module_name |
|
1142
|
69 |
72 |
unless (defined $p->{$me}) |
|
1143
|
0 |
69 |
$self->_is_dev_version ? : |
|
1146
|
0 |
141 |
unless ($p->{$me} =~ qr/\A(?:stable|testing|unstable)\z/) |
|
1150
|
0 |
141 |
if ($p->{$me} eq "stable" and $self->_is_dev_version) |
|
1162
|
18 |
22 |
if defined $p->{$me} |
|
1164
|
13 |
9 |
if ($self->release_status eq 'stable') { } |
|
1169
|
0 |
9 |
$self->_is_dev_version ? : |
|
1180
|
170 |
0 |
if ($self->module_name) |
|
1192
|
311 |
63 |
if defined $p->{$me} |
|
1194
|
63 |
0 |
if (my $dist_version_from = $self->dist_version_from) |
|
1196
|
0 |
63 |
unless my $pm_info = "Module::Metadata"->new_from_file($version_from) |
|
1200
|
0 |
63 |
unless (defined $p->{$me}) |
|
1207
|
0 |
63 |
unless defined $p->{$me} |
|
1219
|
2 |
197 |
$@ ? : |
|
1229
|
67 |
57 |
if defined $p->{$member} |
|
1231
|
0 |
57 |
unless my $docfile = $self->_main_docfile |
|
1233
|
0 |
57 |
unless open my $fh, "<", $docfile |
|
1257
|
0 |
0 |
if -f $f |
|
1263
|
51 |
0 |
unless $unlink_list_for_pid{$$} |
|
1264
|
0 |
0 |
unless -e $f |
|
1279
|
50 |
1 |
wantarray ? : |
|
1284
|
0 |
492 |
unless -d $self->config_dir |
|
1291
|
0 |
466 |
unless my $file = $self->config_file("build_params") |
|
1293
|
0 |
466 |
unless open my $fh, "<", $file |
|
1295
|
0 |
466 |
if $@ |
|
1311
|
0 |
18 |
unless open my $fh, ">", $file |
|
1312
|
6 |
12 |
unless (ref $data) |
|
1325
|
0 |
6 |
unless -d $self->{'properties'}{'config_dir'} |
|
1349
|
0 |
0 |
unless ($packlist) |
|
1352
|
0 |
0 |
if ($mod =~ qr/$re/) |
|
1359
|
0 |
0 |
$packlist ? : |
|
1368
|
69 |
0 |
unless "inc::latest"->can("loaded_modules") |
|
1372
|
0 |
0 |
if ($@) |
|
1394
|
0 |
0 |
if (not $lookup) { } |
|
1402
|
0 |
0 |
$prereq ? : |
|
1412
|
80 |
0 |
unless %$features |
|
1416
|
0 |
0 |
unless my(@str) = @_ |
|
1422
|
0 |
0 |
if $len[$i] > $max |
|
1436
|
0 |
0 |
if ($num_disabled) { } |
|
1454
|
0 |
0 |
if (my $failures = $self->prereq_failures($info)) { } |
|
1455
|
0 |
0 |
grep(/^(?:\w+_)?(?:requires|conflicts)$/, keys %$failures) ? : |
|
1457
|
0 |
0 |
$disabled ? : |
|
1460
|
0 |
0 |
unless exists $failures->{$type} |
|
1465
|
0 |
0 |
$type =~ /^(?:\w+_)?(?:requires|conflicts)$/ ? : |
|
1467
|
0 |
0 |
$required ? : |
|
1474
|
0 |
0 |
if $disabled or $self->verbose |
|
1485
|
7 |
4 |
if ($self->dist_name ne "Module-Build" and $self->auto_configure_requires and not exists $p->{'configure_requires'}{'Module::Build'}) |
|
1501
|
0 |
11 |
if ("inc::latest"->can("loaded_module")) |
|
1503
|
0 |
0 |
if exists $p->{'configure_requires'}{$mod} |
|
1519
|
80 |
0 |
unless (defined $p->{'needs_compiler'}) |
|
1520
|
0 |
80 |
if ($self->pureperl_only and $self->allow_pureperl) { } |
|
1530
|
0 |
80 |
if ($self->needs_compiler) |
|
1532
|
0 |
0 |
unless ($self->have_c_compiler) |
|
1542
|
0 |
80 |
if ($self->share_dir) |
|
1552
|
0 |
7 |
unless defined $version |
|
1553
|
0 |
7 |
if (exists $p->{$type}{$module}) |
|
1554
|
0 |
0 |
if $self->compare_versions($version, "<=", $p->{$type}{$module}) |
|
1575
|
1 |
44 |
if ($type =~ /^(?:\w+_)?conflicts$/) { } |
|
|
5 |
39 |
elsif ($type =~ /^(?:\w+_)?recommends$/) { } |
|
1576
|
1 |
0 |
unless $status->{'ok'} |
|
1581
|
0 |
5 |
if $status->{'ok'} |
|
1582
|
5 |
0 |
!ref($status->{'have'}) && $status->{'have'} eq '' ? : |
|
1586
|
10 |
29 |
if $status->{'ok'} |
|
1601
|
410 |
0 |
if ($self->can($type)) |
|
1603
|
20 |
390 |
if %$prereq |
|
1614
|
0 |
80 |
unless $info |
|
1620
|
10 |
70 |
if ($failures) { } |
|
1624
|
10 |
40 |
if keys %$prereqs |
|
1627
|
5 |
5 |
$type =~ /^(?:\w+_)?recommends$/ ? : |
|
1643
|
7 |
0 |
$^V ? : |
|
1648
|
7 |
0 |
if grep(/\./, $version) < 2 |
|
1657
|
0 |
148 |
unless defined $spec |
|
1658
|
143 |
5 |
if ($spec =~ /^\s*([\w.]+)\s*$/) { } |
|
1667
|
21 |
0 |
defined $spec ? : |
|
1668
|
0 |
21 |
unless $status->{'ok'} |
|
1672
|
12 |
9 |
if (defined $INC{$path}) { } |
|
|
0 |
9 |
elsif (exists $INC{$path}) { } |
|
1687
|
0 |
154 |
if ($modname eq 'perl') { } |
|
|
68 |
86 |
elsif (eval {
do {
no strict;
$status{'have'} = ${"${modname}::VERSION";}
}
}) { } |
|
1695
|
6 |
80 |
unless (defined $pm_info) |
|
1701
|
0 |
80 |
if ($spec and not defined $status{'have'}) |
|
1710
|
0 |
148 |
unless my($op, $version) = /^\s* (<=?|>=?|==|!=) \s* ([\w.]+) \s*$/x |
|
1713
|
0 |
148 |
if $modname eq "perl" |
|
1716
|
88 |
60 |
if $op eq ">=" and not $version |
|
1718
|
29 |
31 |
unless ($self->compare_versions($status{'have'}, $op, $version)) |
|
1732
|
25 |
36 |
unless eval {
do {
$v1->isa("version")
}
} |
|
1736
|
0 |
61 |
if $@ |
|
1747
|
0 |
0 |
if ($status->{'ok'}) |
|
1748
|
0 |
0 |
if $status->{'have'} and "$status->{'have'}" ne "" |
|
1792
|
4507 |
242 |
if @default_inc |
|
1796
|
40 |
202 |
ref $self ? : |
|
1813
|
0 |
6 |
if (-f $self->metafile) |
|
1821
|
0 |
6 |
if $self->is_windowsish |
|
1827
|
69 |
0 |
unless $self->is_vmsish |
|
1835
|
6 |
0 |
$INC[-1] eq '.' ? : |
|
1912
|
12 |
0 |
if ($self->delete_filetree($f)) |
|
1918
|
6 |
0 |
if ($self->try_require("CPAN::Meta", "2.142060")) |
|
1920
|
12 |
0 |
unless -f $file |
|
1922
|
0 |
0 |
if $meta_obj |
|
1929
|
0 |
6 |
if ($meta_obj) { } |
|
1945
|
0 |
6 |
unless @created |
|
1961
|
6 |
0 |
if ($self->delete_filetree($build_script)) |
|
1967
|
0 |
6 |
unless open my $fh, ">", $build_script |
|
1978
|
2 |
78 |
unless -e "MANIFEST" |
|
1987
|
0 |
78 |
if (my(@missed) = ExtUtils::Manifest::manicheck()) { } |
|
2000
|
130 |
0 |
if (@_) |
|
2002
|
2 |
128 |
$p{'args'} ? : |
|
2010
|
0 |
0 |
unless $self->{'action'} |
|
2018
|
84 |
398 |
if $self->{'_completed_actions'}{$action}++ |
|
2022
|
0 |
398 |
unless $method |
|
2040
|
114 |
447 |
unless ref $self |
|
2043
|
437 |
10 |
unless $specs and %$specs |
|
2056
|
0 |
40 |
if $self->valid_property($k) |
|
2059
|
30 |
10 |
defined $v->{'type'} ? : |
|
2060
|
0 |
40 |
if exists $v->{'store'} |
|
2061
|
10 |
30 |
if exists $v->{'default'} |
|
2068
|
10 |
0 |
if (@specs) |
|
2082
|
57 |
457 |
ref $v eq 'ARRAY' ? : |
|
|
85 |
514 |
ref $v eq 'HASH' ? : |
|
2090
|
4 |
4 |
wantarray ? : |
|
|
8 |
48 |
unless @_ |
|
2092
|
0 |
48 |
if @_ |
|
2104
|
0 |
693 |
if grep(($tr_opt =~ /^(?:no_?)?$_$/), ("create_license", "create_makefile_pl", "create_readme", "extra_compiler_flags", "extra_linker_flags", "install_base", "install_path", "meta_add", "meta_merge", "test_files", "use_rcfile", "use_tap_harness", "tap_harness_args", "cpan_client", "pureperl_only", "allow_pureperl")) |
|
2133
|
58 |
346 |
if (exists $args->{$key} and not $singular_argument{$key}) { } |
|
2134
|
58 |
0 |
unless ref $args->{$key} |
|
2167
|
0 |
289 |
if (grep(($opt =~ /^no[-_]?$_$/), @bool_opts)) |
|
2173
|
288 |
1 |
unless grep(($_ eq $opt), @bool_opts) |
|
2180
|
0 |
1 |
if @$argv and $argv->[0] =~ /^\d+$/ |
|
2196
|
115 |
289 |
if (/^(?:--)?($opt_re)=(.*)$/) { } |
|
|
289 |
0 |
elsif (/^--($opt_re)$/) { } |
|
|
0 |
0 |
elsif (/^($opt_re)$/ and not defined $action) { } |
|
2210
|
0 |
1122 |
if exists $args{$_} |
|
2215
|
0 |
561 |
if exists $args{$_} and not ref $args{$_} |
|
2220
|
8923 |
58 |
unless exists $args{$_} |
|
2223
|
0 |
58 |
unless ref $args{$_} |
|
2225
|
0 |
116 |
unless $arg =~ /($opt_re)=(.*)/ |
|
2234
|
1683 |
0 |
unless defined $args{$key} |
|
2239
|
561 |
0 |
unless defined $args{$key} |
|
2242
|
0 |
0 |
unless defined $args{$key}{$subkey} |
|
2244
|
0 |
0 |
if ($subkey eq 'html') { } |
|
2253
|
0 |
561 |
if ($args{'makefile_env_macros'}) |
|
2275
|
0 |
1665 |
if (exists $opts1->{$key}) { } |
|
2276
|
0 |
0 |
if (ref $val eq "HASH") |
|
2278
|
0 |
0 |
unless exists $opts1->{$key}{$k} |
|
2292
|
443 |
0 |
if $ENV{'HOME'} |
|
2295
|
0 |
0 |
if $ENV{'HOMEDRIVE'} and $ENV{'HOMEPATH'} |
|
2302
|
443 |
0 |
wantarray ? : |
|
2310
|
0 |
436 |
if -e $path |
|
2320
|
4 |
443 |
unless $self->use_rcfile |
|
2323
|
0 |
443 |
if (exists $ENV{'MODULEBUILDRC'} and $ENV{'MODULEBUILDRC'} eq 'NONE') { } |
|
|
0 |
443 |
elsif (exists $ENV{'MODULEBUILDRC'} and -e $ENV{'MODULEBUILDRC'}) { } |
|
|
0 |
443 |
elsif (exists $ENV{'MODULEBUILDRC'}) { } |
|
2334
|
443 |
0 |
unless $modulebuildrc |
|
2337
|
0 |
0 |
unless open my $fh, "<", $modulebuildrc |
|
2344
|
0 |
0 |
unless length $line |
|
2346
|
0 |
0 |
if ($line =~ /^\S/) { } |
|
2347
|
0 |
0 |
if ($buffer) |
|
2358
|
0 |
0 |
if ($buffer) |
|
2367
|
0 |
0 |
if ($action eq "fakeinstall" and not exists $options{'fakeinstall'}) |
|
2388
|
0 |
894 |
if defined $action |
|
2394
|
8 |
914 |
if $self->valid_property($key) |
|
2397
|
0 |
922 |
if ($key eq 'config') { } |
|
2402
|
6 |
914 |
$self->valid_property($key) ? : |
|
|
2 |
920 |
$additive{$key} ? : |
|
2404
|
2 |
920 |
if ($additive{$key}) { } |
|
2417
|
1 |
446 |
if $ENV{'PERL_MB_OPT'} |
|
2441
|
1097 |
11538 |
if /^ACTION_(\w+)/ |
|
2445
|
12 |
15 |
wantarray ? : |
|
2451
|
2 |
13 |
unless $actions->{$action} |
|
2457
|
0 |
49 |
unless $file = $INC{$file . ".pm"} |
|
2458
|
0 |
49 |
unless open my $fh, "<", $file |
|
2466
|
21 |
77470 |
if /^=head1 ACTIONS\s/ |
|
2472
|
10 |
5661 |
if /^=head1 / |
|
2475
|
11 |
5650 |
if (/^=(item|head2)\s+\Q$action\E\b/) |
|
2481
|
38 |
11 |
unless $style |
|
2484
|
8 |
3 |
if ($style eq 'item') { } |
|
2487
|
8 |
56 |
if (/^=(item|back)/) |
|
2488
|
8 |
0 |
unless $inlist |
|
2491
|
0 |
56 |
if /^=over/ |
|
2492
|
0 |
56 |
if /^=back/ |
|
2498
|
3 |
15 |
if /^=(?:head[12]|cut)/ |
|
2506
|
0 |
13 |
unless ($files_found) |
|
2510
|
3 |
10 |
unless (@docs) |
|
2549
|
0 |
0 |
if $len > $mod_len |
|
2552
|
0 |
0 |
if $len > $ver_len |
|
2557
|
0 |
0 |
if $type =~ /^(\w+_)?conflicts$/ |
|
2566
|
0 |
0 |
$type =~ /^(\w+_)?conflicts$/ ? : |
|
2577
|
0 |
0 |
$mod->{'ok'} ? : |
|
2580
|
0 |
0 |
defined $mod->{'have'} ? : |
|
2590
|
0 |
0 |
if (@{$self->{'args'}{'ARGV'};}) |
|
2592
|
0 |
0 |
$@ ? : |
|
2633
|
0 |
0 |
unless ref $_ |
|
|
0 |
0 |
if @INC > 100 |
|
2658
|
2 |
0 |
wantarray ? : |
|
|
2 |
0 |
defined $t ? : |
|
2669
|
0 |
32 |
if @_ % 2 |
|
2676
|
30 |
2 |
exists $args{'type'} ? : |
|
|
2 |
30 |
exists $args{'types'} ? : |
|
2678
|
0 |
32 |
unless @types |
|
2682
|
9 |
23 |
defined $p->{'test_types'} ? : |
|
2687
|
0 |
36 |
unless defined $test_types{$type} |
|
2691
|
25 |
11 |
ref $_ ? : |
|
2703
|
0 |
0 |
unless ref $_ |
|
|
0 |
32 |
if @INC > 100 |
|
2717
|
32 |
0 |
if (@$tests) { } |
|
2719
|
5 |
27 |
if ($self->use_tap_harness or $args and %$args) { } |
|
2721
|
0 |
5 |
if ($aggregate->has_errors) |
|
2767
|
0 |
32 |
if -e "visual.pl" |
|
2774
|
0 |
32 |
if $self->{'properties'}{'debugger'} |
|
2775
|
0 |
32 |
if $self->{'properties'}{'cover'} |
|
2782
|
2 |
2 |
if (@_) |
|
2783
|
1 |
1 |
@_ == 1 ? : |
|
2792
|
3 |
30 |
if $self->recursive_test_files |
|
2807
|
0 |
0 |
unless ("Module::Metadata"->find_module_by_name("Devel::Cover")) |
|
2817
|
0 |
0 |
if (-e "cover_db") |
|
2820
|
0 |
0 |
if -f $_ |
|
2822
|
0 |
0 |
unless $self->up_to_date($pm_files, $cover_files) and $self->up_to_date($self->test_files, $cover_files) |
|
2841
|
0 |
64 |
if (my $split = $self->autosplit) |
|
2842
|
0 |
0 |
ref $split ? : |
|
2847
|
1 |
439 |
unless $self->can($method) |
|
2865
|
125 |
1 |
$self->can($method) ? : |
|
2875
|
64 |
0 |
unless $p->{'c_source'} |
|
2876
|
0 |
0 |
if $self->pureperl_only and $self->allow_pureperl |
|
2879
|
0 |
0 |
if (ref $p->{'c_source'} eq 'ARRAY') { } |
|
2897
|
59 |
2 |
unless $files |
|
2913
|
59 |
3 |
unless $share_dir |
|
2916
|
3 |
0 |
if ($share_dir->{'dist'}) |
|
2921
|
3 |
0 |
if ($share_dir->{'module'}) |
|
2950
|
6 |
0 |
unless ($self->up_to_date($file, $to)) |
|
2951
|
0 |
6 |
unless $self->run_perl_script($file, [], [@$to]) |
|
2959
|
2 |
62 |
if $self->pureperl_only and $self->allow_pureperl |
|
2961
|
2 |
60 |
if %$files and $self->pureperl_only |
|
2964
|
2 |
17 |
unless ($from eq $to) |
|
2978
|
47 |
14 |
unless keys %$files |
|
2984
|
8 |
9 |
unless my $result = $self->copy_if_modified($file, $script_dir, "flatten") |
|
2985
|
9 |
0 |
unless $self->is_vmsish |
|
2992
|
3 |
61 |
if (my $files = $self->{'properties'}{'PL_files'}) |
|
2995
|
0 |
3 |
if (ref $files eq 'ARRAY') { } |
|
|
3 |
0 |
elsif (ref $files eq 'HASH') { } |
|
3003
|
1 |
4 |
ref $to ? : |
|
3013
|
1 |
60 |
unless -d "lib" |
|
3026
|
61 |
0 |
if (my $files = $self->script_files) |
|
3040
|
2 |
32 |
if (my $files = $p->{'test_files'}) { } |
|
3041
|
0 |
2 |
if ref $files eq "HASH" |
|
3042
|
1 |
3 |
-d $_ ? : |
|
3052
|
0 |
32 |
if -e "test.pl" |
|
3053
|
32 |
0 |
if -e "t" and -d _ |
|
3061
|
5 |
290 |
if (my $files = $self->{'properties'}{"${type}_files"}) |
|
3066
|
4 |
286 |
unless -d $dir |
|
3085
|
9 |
0 |
ref $self ? : |
|
3089
|
0 |
9 |
unless open my $FIXIN, "<", $file |
|
3092
|
2 |
7 |
unless $line =~ s/^\s*\#!\s*// |
|
3095
|
0 |
7 |
unless $cmd =~ /perl/i |
|
3100
|
7 |
0 |
if $does_shbang |
|
3102
|
0 |
7 |
unless open my $FIXOUT, ">", "$file.new" |
|
3112
|
0 |
7 |
unless rename $file, "$file.bak" |
|
3115
|
0 |
7 |
unless rename "$file.new", $file |
|
3118
|
0 |
7 |
unless $self->delete_filetree("$file.bak") |
|
3121
|
0 |
7 |
if $c->get("eunicefix") ne ":" |
|
3130
|
0 |
0 |
unless eval "use Test::Pod 0.95; 1" |
|
3134
|
0 |
0 |
unless my(@files) = sort(keys %{$self->_find_pods($self->libdoc_dirs);}, keys %{$self->_find_pods($self->bindoc_dirs, "exclude", [$self->file_qr("\\.bat\$")]);}) |
|
3151
|
0 |
0 |
unless eval "use Test::Pod::Coverage 1.00; 1" |
|
3186
|
28 |
84 |
$self->install_destination($type) && ($self->install_path($type) || $self->install_sets($self->installdirs)->{$type}) ? : |
|
3193
|
8 |
21 |
unless (exists $self->{'_is_ActivePerl'}) |
|
3202
|
5 |
4 |
unless (exists $self->{'_is_ActivePPM'}) |
|
3211
|
0 |
28 |
unless $self->_mb_feature("manpage_support") |
|
3215
|
1 |
27 |
$self->{'properties'}{'extra_manify_args'} ? : |
|
3218
|
32 |
24 |
unless $self->invoked_action eq "manpages" or $self->_is_default_installable("${type}doc") |
|
3221
|
6 |
18 |
unless %$files |
|
3224
|
18 |
0 |
if defined $sub |
|
3235
|
0 |
6 |
unless keys %$files |
|
3248
|
10 |
8 |
if $self->up_to_date($file, $outfile) |
|
3250
|
0 |
8 |
unless eval {
do {
$parser->parse_from_file($file, $outfile);
1
}
} |
|
3262
|
0 |
12 |
unless keys %$files |
|
3275
|
8 |
9 |
if $self->up_to_date($file, $outfile) |
|
3277
|
0 |
9 |
unless eval {
do {
$parser->parse_from_file($file, $outfile);
1
}
} |
|
3288
|
1 |
86 |
unless -e $dir |
|
3292
|
0 |
176 |
if $file =~ /$regexp/ |
|
3295
|
80 |
157 |
if $self->contains_pod($file) |
|
3303
|
129 |
117 |
unless -T $file |
|
3305
|
0 |
117 |
unless open my $fh, "<", $file |
|
3307
|
87 |
670 |
if $line =~ /^\=(?:head|pod|item)/ |
|
3316
|
0 |
28 |
unless $self->_mb_feature("HTML_support") |
|
3321
|
52 |
4 |
unless $self->invoked_action eq "html" or $self->_is_default_installable("${type}html") |
|
3338
|
0 |
10 |
unless %$pods |
|
3340
|
7 |
3 |
unless (-d $htmldir) |
|
3341
|
0 |
7 |
unless File::Path::mkpath($htmldir, 0, 493) |
|
3345
|
0 |
5 |
$self->installdirs eq 'core' ? : |
|
|
5 |
5 |
$type eq 'bin' ? : |
|
3349
|
0 |
10 |
$ENV{'PERL_CORE'} ? : |
|
3353
|
0 |
10 |
unless (defined $self->args("html_links") and not $self->args("html_links")) |
|
3362
|
0 |
0 |
$ENV{'PERL_CORE'} ? : |
|
3371
|
0 |
10 |
if ($with_ActiveState = $self->_is_ActivePerl && eval {
do {
require ActivePerl::DocTools::Pod;
1
}
}) { } |
|
3376
|
0 |
0 |
if $tool_v and length $tool_v |
|
3394
|
10 |
0 |
if scalar @dirs and $dirs[-1] eq "File::Spec"->curdir |
|
3401
|
0 |
10 |
if $self->up_to_date($infile, $outfile) |
|
3403
|
10 |
0 |
unless (-d $fulldir) |
|
3404
|
0 |
10 |
unless File::Path::mkpath($fulldir, 0, 493) |
|
3409
|
0 |
10 |
if ($with_ActiveState) { } |
|
3411
|
0 |
0 |
defined $podpath ? : |
|
3422
|
0 |
0 |
unless eval {
do {
ActivePerl::DocTools::Pod::pod2html(map({$_, $opts{$_};} sort(keys %opts)));
1
}
} |
|
3425
|
0 |
10 |
unless open my $fh, "<", $infile |
|
3429
|
5 |
5 |
if $abstract |
|
3431
|
0 |
10 |
defined $podpath ? : |
|
|
0 |
10 |
$path2root ? : |
|
3440
|
0 |
10 |
unless (eval {
do {
"Pod::Html"->VERSION("1.12")
}
}) |
|
3444
|
10 |
0 |
if (eval {
do {
'Pod::Html'->VERSION(1.12)
}
}) { } |
|
|
0 |
0 |
elsif (eval {
do {
'Pod::Html'->VERSION(1.03)
}
}) { } |
|
3455
|
0 |
10 |
unless eval {
do {
Pod::Html::pod2html(@opts);
1
}
} |
|
3460
|
0 |
10 |
unless (-r $tmpfile) |
|
3464
|
0 |
10 |
unless open my $fh, "<", $tmpfile |
|
3467
|
10 |
0 |
unless ($self->_is_ActivePerl) |
|
3481
|
0 |
10 |
unless open $fh, ">", $outfile |
|
3527
|
0 |
0 |
unless @flags |
|
3545
|
0 |
0 |
unless ($installed) |
|
3551
|
0 |
0 |
if $status == 0 |
|
3552
|
0 |
0 |
if $status == -1 |
|
3554
|
0 |
0 |
if ($file =~ /$text_suffix/) { } |
|
3579
|
0 |
0 |
if ($self->_is_ActivePerl and $self->{'_completed_actions'}{'html'}) |
|
3581
|
0 |
0 |
$self->verbose ? : |
|
|
0 |
0 |
unless eval {
do {
ActivePerl::DocTools::WriteTOC("verbose", $self->verbose ? 1 : 0);
1
}
} |
|
3584
|
0 |
9 |
if ($self->_is_ActivePPM) |
|
3606
|
0 |
0 |
if ($eui_version < "1.32") |
|
3621
|
0 |
0 |
unless eval {
do {
require only;
"only"->VERSION("0.25");
1
}
} |
|
3625
|
0 |
0 |
exists $self->{'args'}{$_} ? : |
|
3636
|
0 |
2 |
unless ($info) |
|
3642
|
0 |
2 |
unless ($failures) |
|
3650
|
4 |
0 |
if ($type =~ /^(?:\w+_)?requires$/) |
|
3656
|
0 |
0 |
if $self->y_n("Install $module?", "y") |
|
3660
|
0 |
2 |
unless @install |
|
3666
|
1 |
1 |
unless ("File::Spec"->file_name_is_absolute($command)) |
|
3676
|
0 |
7 |
if (defined $abs_cmd) |
|
3734
|
6 |
18 |
if exists $types{$type} and not defined $types{$type} |
|
3737
|
3 |
15 |
unless -e $dir |
|
3741
|
21 |
18 |
unless -f $file |
|
3747
|
18 |
0 |
exists $types{$type} ? : |
|
3771
|
0 |
0 |
unless (eval {
do {
require PAR::Dist;
"PAR::Dist"->VERSION("0.17")
}
}) |
|
3802
|
0 |
0 |
unless $self->invoked_action eq "distclean" |
|
3808
|
0 |
0 |
unless @$missing or @$extra |
|
3811
|
0 |
0 |
if ($self->invoked_action eq 'distcheck') { } |
|
3832
|
0 |
0 |
unless ($skip_factory and &$skip_factory($maniskip)->($file)) |
|
3842
|
30 |
0 |
unless ref $lines |
|
3845
|
8 |
22 |
unless defined $existing_files |
|
3847
|
0 |
22 |
unless @$lines = grep({not exists $existing_files->{$_};} @$lines) |
|
3851
|
0 |
22 |
unless chmod $mode | 146, $manifest |
|
3853
|
0 |
22 |
unless open my $fh, "<", $manifest |
|
3858
|
0 |
22 |
unless open $fh, ">>", $manifest |
|
3859
|
0 |
22 |
unless $has_newline |
|
3870
|
0 |
5 |
unless (eval {
do {
require Module::Signature;
1
}
}) |
|
3878
|
0 |
5 |
unless -e $manifest |
|
3891
|
0 |
18 |
unless chdir $dir |
|
3893
|
0 |
18 |
$@ ? : |
|
3894
|
0 |
18 |
unless chdir $start_dir |
|
3895
|
0 |
18 |
if @err |
|
3902
|
0 |
0 |
unless -d $self->dist_dir |
|
3927
|
0 |
1 |
if ($@) |
|
3938
|
0 |
0 |
unless ($self->_mb_feature("license_creation")) |
|
3943
|
0 |
0 |
unless my $l = $self->license |
|
3946
|
0 |
0 |
unless my $license = $self->_software_license_object |
|
3954
|
0 |
0 |
unless open my $fh, ">", "LICENSE" |
|
3967
|
0 |
6 |
unless ($docfile) |
|
3977
|
0 |
6 |
if (eval {
do {
require Pod::Readme;
'Pod::Readme'->can('new')
}
}) { } |
|
|
6 |
0 |
elsif (eval {
do {
require Pod::Text;
1
}
}) { } |
|
3986
|
6 |
0 |
if (open my $fh, '>', 'README') { } |
|
3999
|
0 |
0 |
if $_[1] |
|
4002
|
0 |
6 |
if $Pod::Text::VERSION == "3.01" |
|
4024
|
63 |
0 |
if (my $pm_file = $self->dist_version_from) { } |
|
4026
|
10 |
53 |
-e $pod_file ? : |
|
4044
|
0 |
10 |
if (@{$self->bundle_inc;} and not $self->_mb_feature("inc_bundling_support")) |
|
4051
|
0 |
10 |
unless my $dist_files = $self->_read_manifest("MANIFEST") |
|
4054
|
0 |
10 |
unless $dist_files and keys %$dist_files |
|
4058
|
0 |
10 |
unless exists $dist_files->{$metafile} |
|
4066
|
0 |
69 |
if $file =~ /^MYMETA\./ |
|
4070
|
0 |
10 |
if @{$self->bundle_inc;} |
|
4072
|
5 |
5 |
if $self->{'properties'}{'sign'} |
|
4088
|
0 |
1 |
unless $self->run_perl_script("Build.PL") |
|
4090
|
0 |
1 |
unless $self->run_perl_script($self->build_script) |
|
4092
|
0 |
1 |
unless $self->run_perl_script($self->build_script, [], ["test"]) |
|
4104
|
0 |
0 |
unless $self->run_perl_script("Build.PL") |
|
4106
|
0 |
0 |
unless $self->run_perl_script($self->build_script) |
|
4108
|
0 |
0 |
unless $self->run_perl_script($self->build_script, [], ["install"]) |
|
4151
|
0 |
0 |
if -r $default_maniskip |
|
4172
|
0 |
0 |
unless open my $fh, "<$mode", $file |
|
4182
|
0 |
0 |
unless open my $fh, ">$mode", $file |
|
4189
|
34 |
1 |
if (ref $self) { } |
|
4191
|
6 |
28 |
unless defined $self->{'_case_tolerant'} |
|
4203
|
0 |
0 |
unless defined $skip and length $skip |
|
4204
|
0 |
0 |
unless open my $fh, ">>", $file |
|
4214
|
0 |
1 |
unless open my $fh, ">", $file |
|
4217
|
1 |
0 |
$self->_eumanifest_has_include ? : |
|
4251
|
0 |
0 |
if (not -e $maniskip) { } |
|
4277
|
0 |
0 |
if (-e "MANIFEST.SKIP") |
|
4288
|
0 |
396 |
+(shift())->{'_case_tolerant'} ? : |
|
4294
|
1 |
28 |
if $self->dist_suffix |
|
4305
|
91 |
2 |
unless -d $dir |
|
4308
|
0 |
2 |
unless opendir DH, $dir |
|
4313
|
4 |
4 |
if -d $full_path |
|
4323
|
0 |
178 |
if @_ |
|
4326
|
154 |
24 |
if (not defined $p->{'share_dir'}) { } |
|
|
0 |
24 |
elsif (not ref $p->{'share_dir'}) { } |
|
|
0 |
24 |
elsif (ref $p->{'share_dir'} eq 'ARRAY') { } |
|
|
24 |
0 |
elsif (ref $p->{'share_dir'} eq 'HASH') { } |
|
4341
|
24 |
0 |
if (defined $share_dir->{'dist'}) |
|
4342
|
0 |
24 |
if (not ref $share_dir->{'dist'}) { } |
|
|
0 |
24 |
elsif (ref $share_dir->{'dist'} ne 'ARRAY') { } |
|
4351
|
6 |
18 |
if (defined $share_dir->{'module'}) |
|
4353
|
6 |
0 |
if (ref $mod_hash eq 'HASH') { } |
|
4355
|
0 |
6 |
if (not ref $mod_hash->{$k}) { } |
|
|
0 |
6 |
elsif (ref $mod_hash->{$k} ne 'ARRAY') { } |
|
4379
|
0 |
106 |
if @_ |
|
4380
|
93 |
13 |
unless $_ |
|
4383
|
0 |
13 |
if ref $_ eq "HASH" |
|
4384
|
13 |
0 |
if ref $_ eq "ARRAY" |
|
4386
|
0 |
0 |
if ref $_ |
|
4388
|
0 |
0 |
if -d $_ |
|
4394
|
74 |
19 |
unless $self->PL_files |
|
4460
|
0 |
23 |
if ($self->valid_licenses->{$license} and eval {
do {
require Software::LicenseUtils;
"Software::LicenseUtils"->VERSION("0.103009")
}
}) |
|
4462
|
0 |
0 |
if (@classes == 1) |
|
4468
|
3 |
43 |
unless defined $l |
|
4470
|
1 |
42 |
if (eval "require Software::License; Software::License->VERSION(0.014); require $trial; 1") |
|
4480
|
0 |
23 |
unless defined(my $license = $self->license) |
|
4482
|
22 |
1 |
unless my $class = $self->_software_license_class($license) |
|
4487
|
0 |
1 |
if ($@) |
|
4496
|
0 |
0 |
if (ref $h->{$k} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $h->{$k} eq 'HASH') { } |
|
4497
|
0 |
0 |
ref $v ? : |
|
4507
|
0 |
13 |
if $self->create_makefile_pl |
|
4508
|
0 |
13 |
if $self->create_readme |
|
4509
|
0 |
13 |
if $self->create_license |
|
4515
|
4 |
9 |
if $self->{'wrote_metadata'} |
|
4519
|
0 |
9 |
unless ($p->{'license'}) |
|
4531
|
0 |
9 |
if (($self->module_name || '') eq "Module::Build") |
|
4540
|
9 |
0 |
if (@created) |
|
4553
|
15 |
0 |
if $meta and $meta->save("$file.yml", {"version", "1.4"}) |
|
4555
|
15 |
0 |
if $meta and $meta->save("$file.json") |
|
4558
|
15 |
0 |
if (@created) |
|
4567
|
0 |
15 |
unless $self->try_require("CPAN::Meta", "2.142060") |
|
4575
|
6 |
9 |
if defined $args{'dynamic'} |
|
4578
|
0 |
15 |
if ($@ and not $args{'quiet'}) |
|
4591
|
0 |
0 |
unless $self->try_require("CPAN::Meta", "2.110420") |
|
4598
|
3 |
122 |
unless defined $version and length $version |
|
4600
|
0 |
125 |
if ($version =~ /[=<>!,]/) { } |
|
|
81 |
44 |
elsif (ref $version eq 'version') { } |
|
|
0 |
44 |
elsif ($version =~ /^[^v][^.]*\.[^.]+\./) { } |
|
4604
|
0 |
81 |
$version->is_qv ? : |
|
4633
|
21 |
135 |
if (exists $p->{$type} and keys %{$$p{$type};}) |
|
4650
|
1 |
22 |
if (my $sl = $self->_software_license_object) { } |
|
|
22 |
0 |
elsif (exists $valid_licenses->{$license}) { } |
|
4655
|
20 |
2 |
$valid_licenses->{$license} ? : |
|
4672
|
11 |
12 |
if $args{'auto'} |
|
4677
|
0 |
115 |
unless (defined $field and length $field) |
|
4679
|
0 |
0 |
if ($fatal) { } |
|
4698
|
23 |
0 |
exists $p->{'dynamic_config'} ? : |
|
4704
|
21 |
2 |
if defined $meta_license_url |
|
4708
|
0 |
23 |
if (exists $p->{'no_index'}) { } |
|
|
19 |
4 |
elsif (my $pkgs = eval {
do {
$self->find_dist_packages
}
}) { } |
|
4711
|
18 |
1 |
if %$pkgs |
|
4717
|
23 |
0 |
if (my $add = $self->meta_add) |
|
4718
|
23 |
0 |
if (not exists $add->{'meta-spec'} or $add->{'meta-spec'}{'version'} != 2) |
|
4720
|
23 |
0 |
if ('CPAN::Meta::Converter'->VERSION('2.141170')) { } |
|
4734
|
23 |
0 |
if (my $merge = $self->meta_merge) |
|
4735
|
23 |
0 |
if (eval {
do {
require CPAN::Meta::Merge
}
}) { } |
|
4754
|
0 |
0 |
unless (ref $node eq "HASH") |
|
4757
|
0 |
0 |
if $keys |
|
4764
|
12 |
51 |
unless -e $file |
|
4778
|
4 |
19 |
unless my $manifest = $self->_read_manifest("MANIFEST") |
|
4808
|
0 |
18 |
if $package eq "main" |
|
4809
|
0 |
18 |
if $package eq "DB" |
|
4810
|
0 |
18 |
if grep /^_/, split(/::/, $package, 0) |
|
4814
|
18 |
0 |
if ($package eq $prime_package) { } |
|
4815
|
0 |
18 |
if (exists $prime{$package}) { } |
|
4820
|
18 |
0 |
if defined $version |
|
4837
|
0 |
0 |
if (exists $prime{$package}) { } |
|
4839
|
0 |
0 |
if ($result->{'err'}) { } |
|
|
0 |
0 |
elsif (defined $result->{'version'}) { } |
|
4853
|
0 |
0 |
if (exists $prime{$package}{'version'} and defined $prime{$package}{'version'}) { } |
|
4857
|
0 |
0 |
if ($self->compare_versions($prime{$package}{'version'}, "!=", $result->{'version'})) |
|
4880
|
0 |
0 |
if ($result->{'err'}) |
|
4891
|
0 |
0 |
if defined $result->{'version'} |
|
4897
|
18 |
0 |
if ($provides->{'version'}) { } |
|
4919
|
0 |
0 |
if (defined $p->{'version'}) |
|
4920
|
0 |
0 |
if (defined $version) { } |
|
4921
|
0 |
0 |
if ($self->compare_versions($version, '!=', $p->{'version'})) { } |
|
4931
|
0 |
0 |
if defined $p->{'file'} |
|
4934
|
0 |
0 |
if ($err) |
|
4953
|
0 |
4 |
if ($self->{'args'}{'tar'}) { } |
|
4954
|
0 |
0 |
$self->verbose ? : |
|
4960
|
0 |
0 |
if $^O eq "darwin" |
|
4961
|
0 |
0 |
if $^O eq "darwin" |
|
4964
|
0 |
0 |
if $self->{'args'}{'gzip'} |
|
4966
|
4 |
0 |
if require Archive::Tar |
|
|
0 |
4 |
unless eval {
do {
"Archive::Tar"->VERSION("1.09") if require Archive::Tar;
1
}
} |
|
4979
|
0 |
4 |
grep({length $_ >= 100;} @$files) ? : |
|
4994
|
0 |
334 |
unless defined $type |
|
4998
|
15 |
319 |
unless @_ |
|
5001
|
1 |
318 |
unless (defined $value) |
|
5007
|
317 |
1 |
if ($value eq "") |
|
5008
|
266 |
51 |
unless exists $map->{$type} |
|
5020
|
3 |
214 |
unless defined $dirs |
|
5022
|
0 |
0 |
if (@_ == 4 and defined $dirs and defined $key) |
|
5030
|
0 |
217 |
if (defined $dirs and defined $key) { } |
|
|
217 |
0 |
elsif (defined $dirs) { } |
|
5046
|
0 |
34 |
if (@_ == 3 and defined $key) |
|
5054
|
0 |
34 |
unless defined $key |
|
5062
|
3 |
79 |
if (@_ > 1) |
|
5069
|
8 |
73 |
unless @_ |
|
5071
|
72 |
1 |
defined $relpath ? : |
|
5079
|
0 |
34 |
unless my $installdirs = shift() || $self->installdirs |
|
5081
|
3 |
31 |
if (@_ > 1) |
|
5089
|
6 |
27 |
unless @_ |
|
5091
|
26 |
1 |
defined $relpath ? : |
|
5098
|
0 |
6 |
unless defined $type |
|
5102
|
2 |
4 |
if (not defined $value) { } |
|
5108
|
2 |
2 |
if "File::Spec::Unix"->file_name_is_absolute($value) |
|
5134
|
0 |
24 |
if $sprefix =~ m[/$] |
|
5136
|
24 |
0 |
if defined $path and length $path |
|
5139
|
0 |
24 |
if (not defined $path or length $path == 0) { } |
|
|
0 |
24 |
elsif (not 'File::Spec'->file_name_is_absolute($path)) { } |
|
|
24 |
0 |
elsif (not $path =~ s/^\Q$sprefix\E\b//s) { } |
|
5160
|
0 |
24 |
if (not $default) { } |
|
5171
|
25 |
216 |
if $self->install_path($type) |
|
5173
|
70 |
146 |
if ($self->install_base) |
|
5175
|
70 |
0 |
$relpath ? : |
|
5178
|
24 |
122 |
if ($self->prefix) |
|
5180
|
24 |
0 |
$relpath ? : |
|
5190
|
5 |
7 |
if ($self->install_base) { } |
|
|
0 |
7 |
elsif ($self->prefix) { } |
|
5210
|
39 |
33 |
unless -e $localdir |
|
5219
|
33 |
0 |
if (my $dest = $self->install_destination($type)) { } |
|
5227
|
0 |
9 |
if @skipping |
|
5232
|
9 |
0 |
if ($self->create_packlist and my $module_name = $self->module_name) |
|
5239
|
5 |
4 |
if (length(my $destdir = $self->destdir || '')) |
|
5254
|
25 |
0 |
if ($file ne '') { } |
|
5279
|
123 |
954 |
if /$pattern/ |
|
5280
|
24 |
35 |
if &$pattern() |
|
5281
|
10 |
0 |
ref $pattern eq 'CODE' ? : |
|
|
351 |
10 |
!ref($pattern) || ref $pattern eq 'Regexp' ? : |
|
|
105 |
361 |
!$pattern ? : |
|
5291
|
380 |
200 |
unless -e $_ |
|
5294
|
0 |
200 |
if -e $_ |
|
5312
|
37 |
17 |
if $s->{'_cbuilder'} |
|
5315
|
9 |
8 |
$self->quiet ? : |
|
5325
|
19 |
8 |
if defined $p->{'_have_c_compiler'} |
|
5330
|
8 |
0 |
$have ? : |
|
5337
|
1 |
18 |
unless ($self->have_c_compiler) |
|
5344
|
6 |
12 |
if $self->up_to_date($file, $obj_file) |
|
5366
|
6 |
12 |
if $self->up_to_date([$spec->{'obj_file'}, @$objects], $spec->{'lib_file'}) |
|
5384
|
13 |
0 |
if (eval {
do {
require ExtUtils::ParseXS;
1
}
}) { } |
|
5394
|
0 |
0 |
unless my $xsubpp = "Module::Metadata"->find_module_by_name("ExtUtils::xsubpp") |
|
5404
|
0 |
0 |
if $lib_typemap |
|
5414
|
0 |
0 |
unless open my $fh, ">", $args{'outfile'} |
|
5423
|
1266 |
538 |
unless defined $string |
|
5424
|
115 |
423 |
if ref $string eq "ARRAY" |
|
5426
|
63 |
360 |
unless length $string |
|
5440
|
0 |
7 |
unless defined $switches |
|
5441
|
0 |
7 |
unless defined $args |
|
5447
|
0 |
7 |
ref $self ? : |
|
5454
|
308 |
7200 |
unless ref $_ |
|
5463
|
0 |
3766 |
unless ref $args |
|
5464
|
260 |
3506 |
ref $self ? : |
|
5507
|
0 |
19 |
defined &DynaLoader::mod2fname ? : |
|
5527
|
13 |
6 |
unless ($self->up_to_date($file, $spec->{'c_file'})) |
|
5537
|
12 |
6 |
unless -d $spec->{'archdir'} |
|
5541
|
12 |
6 |
unless ($self->up_to_date($file, $spec->{'bs_file'})) |
|
5564
|
0 |
0 |
if not $seen{$_}++ |
|
5565
|
4046 |
0 |
length $ENV{'PERL5LIB'} < 500 ? : |
|
|
0 |
4046 |
!exists $ENV{'PERL5LIB'} ? : |
|
5568
|
0 |
4046 |
if ($status and $! =~ /Argument list too long/i) |
|
5578
|
172 |
17 |
@_ > 3 ? : |
|
5583
|
120 |
69 |
unless exists $args{'verbose'} |
|
5586
|
0 |
189 |
unless (defined $file and length $file) |
|
5591
|
1 |
188 |
if "File::Spec"->file_name_is_absolute($file) |
|
5594
|
102 |
87 |
if (defined $args{'to'} and length $args{'to'}) { } |
|
|
87 |
0 |
elsif (defined $args{'to_dir'} and length $args{'to_dir'}) { } |
|
5598
|
18 |
69 |
$args{'flatten'} ? : |
|
5604
|
45 |
144 |
if $self->up_to_date($file, $to_path) |
|
5616
|
0 |
144 |
if ($^O eq 'os2') { } |
|
5618
|
0 |
0 |
unless File::Copy::syscopy($file, $to_path, 1) |
|
5620
|
0 |
144 |
unless File::Copy::copy($file, $to_path) |
|
5624
|
6 |
138 |
$self->is_executable($file) ? : |
|
5632
|
295 |
19 |
unless ref $source |
|
5633
|
308 |
6 |
unless ref $derived |
|
5636
|
226 |
88 |
if @$source and not @$derived or grep {not -e $_;} @$derived |
|
5640
|
0 |
88 |
unless (-e $file) |
|
5644
|
88 |
0 |
if -M _ < $most_recent_source |
|
5648
|
1 |
87 |
if -M $derived > $most_recent_source |
|
5662
|
0 |
35 |
if @second_dirs < @first_dirs |
|
5666
|
0 |
35 |
$self->_case_tolerant ? : |
|
5669
|
0 |
91 |
unless &$is_same(shift @first_dirs, shift @second_dirs) |