| line |
true |
false |
branch |
|
28
|
0 |
1 |
unless open my $fh, "<", "Build.PL" |
|
37
|
0 |
0 |
if ($argv =~ /^[^-].*=.*/ and $argv_i == 0 || !($ARGV[$argv_i - 1] =~ /^--?config$/)) |
|
44
|
0 |
1 |
if (basename($0) eq "Build.PL") |
|
50
|
0 |
1 |
unless open my $fh, "<", $0 |
|
54
|
1 |
0 |
if (my($old_md5hex) = $md5_line =~ /^# MD5: (\S+)/) { } |
|
55
|
0 |
1 |
if ($old_md5hex ne $Build_PL_md5hex) |
|
57
|
0 |
0 |
if (($perl) = $shebang =~ /^#!\s*(.*)/) { } |
|
74
|
0 |
1 |
unless &Getopt::Long::GetOptions(\%opt, "allow_mb_mismatch=i", "config=s%", "create_packlist=i", "destdir=s", "installdirs=s", "install_base=s", "install_path=s%", "jobs=i", "prefix=s", "pureperl-only:1", "uninst:1", "verbose:1", "versionlib=s", "version=s", "extra_compiler_flags=s", "extra_linker_flags=s") |
|
98
|
0 |
1 |
unless ($action_with_arg_handling{$action}) |
|
99
|
0 |
0 |
if (@ARGV) |
|
121
|
36 |
3 |
if /\.(pm|pod)$/ and -f $_ |
|
125
|
0 |
36 |
if (not -e $dest or -M $dest > -M $file) |
|
134
|
0 |
40 |
if (-f $_ and not $seen_blib{$File::Find::name}) |
|
150
|
0 |
1 |
$^O =~ /^(MSWin32|cygwin)$/ ? : |
|
155
|
13 |
26 |
if (-f $_ and /\.pod$/) |
|
164
|
0 |
13 |
if (not -e $man or -M $man > -M $pod or -M $man > -M "Build") |
|
167
|
0 |
0 |
if ($doit->is_dry_run) { } |
|
171
|
0 |
0 |
unless $parser->parse_from_file($pod, $man) |
|
185
|
0 |
14 |
if (-f $_ and not $seen_blib_man{$File::Find::name}) |
|
204
|
0 |
0 |
$_[0] ? : |
|
206
|
0 |
1 |
unless &Getopt::Long::GetOptions("build!", \$do_build) |
|
211
|
1 |
0 |
if $do_build |
|
217
|
0 |
1 |
if ($opt{'jobs'} and not defined $ENV{'HARNESS_OPTIONS'} && $ENV{'HARNESS_OPTIONS'} =~ /(^|:)j\d+($|:)/) |
|
218
|
0 |
0 |
defined $ENV{'HARNESS_OPTIONS'} && $ENV{'HARNESS_OPTIONS'} ne '' ? : |
|
223
|
1 |
0 |
unless (@test_files) |
|
230
|
0 |
1 |
if ($doit->is_dry_run) { } |
|
243
|
0 |
0 |
$opt{'jobs'} ? : |
|
248
|
0 |
0 |
unless chdir "/" |
|
255
|
0 |
0 |
$_[0] ? : |
|
256
|
0 |
0 |
unless &Getopt::Long::GetOptions("more-testing!", \my $more_testing, "invalidate-cache!", \my $do_invalidate_cache) |
|
260
|
0 |
0 |
unless my $distro_spec = shift @ARGV |
|
261
|
0 |
0 |
if @ARGV |
|
262
|
0 |
0 |
unless ($distro_spec and $distro_spec =~ /^.*:.*$/) |
|
265
|
0 |
0 |
$more_testing ? : |
|
267
|
0 |
0 |
unless $doit->which($tool) |
|
275
|
0 |
0 |
if ($do_invalidate_cache) |
|
282
|
0 |
0 |
if (-e "$dir/.distro_support") |
|
289
|
0 |
0 |
if ($distro_spec =~ /^(centos|rockylinux|fedora):/) { } |
|
|
0 |
0 |
elsif ($distro_spec =~ /^alpine(:|$)/) { } |
|
293
|
0 |
0 |
if ($distro_spec eq 'centos:6') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'centos:7') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'rockylinux:8') { } |
|
323
|
0 |
0 |
if ($distro_spec eq 'centos:8') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'rockylinux:8') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'rockylinux:9') { } |
|
342
|
0 |
0 |
if ($distro_spec ne "centos:8" and $distro_spec ne "rockylinux:8" and $distro_spec ne "rockylinux:9") |
|
349
|
0 |
0 |
if ($distro_spec eq 'centos:6') { } |
|
362
|
0 |
0 |
if ($more_testing) |
|
377
|
0 |
0 |
if ($distro_spec eq 'centos:6') { } |
|
398
|
0 |
0 |
if ($more_testing) |
|
415
|
0 |
0 |
$distro_spec eq 'ubuntu:precise' ? : |
|
423
|
0 |
0 |
if ($more_testing) |
|
424
|
0 |
0 |
$distro_spec eq 'ubuntu:precise' ? : |
|
440
|
0 |
0 |
if ($distro_spec =~ /^(ubuntu:precise)$/) |
|
453
|
0 |
0 |
if ($more_testing) |
|
463
|
0 |
0 |
if (defined $ENV{$env_key}) |
|
486
|
0 |
0 |
$_[0] ? : |
|
487
|
0 |
0 |
unless &Getopt::Long::GetOptions("package=s", \my $package) |
|
490
|
0 |
0 |
unless $package |
|
491
|
0 |
0 |
unless my $distro_spec = shift @ARGV |
|
492
|
0 |
0 |
if @ARGV |
|
493
|
0 |
0 |
unless ($distro_spec and $distro_spec =~ /^.*:.*$/) |
|
498
|
0 |
0 |
unless $doit->which($tool) |
|
544
|
0 |
0 |
$more_testing ? : |
|
557
|
0 |
0 |
if not defined $max_width or $max_width < $width |
|
574
|
0 |
0 |
unless defined $distdir |
|
576
|
0 |
0 |
if (eval {
do {
require Test::Kwalitee;
1
}
}) { } |
|
588
|
0 |
0 |
unless defined $distdir |
|
590
|
0 |
0 |
if (eval {
do {
require Test::Pod;
1
}
}) { } |
|
602
|
0 |
0 |
if ($doit->which('cpan_check_versions')) { } |
|
620
|
0 |
0 |
if (defined $out and $out ne "") |
|
628
|
0 |
0 |
if %options |
|
636
|
0 |
0 |
if $line =~ m[^( \.travis\.yml
| \.?appveyor\.yml
| \.github/.*
| \.gitignore
)$]x |
|
643
|
0 |
0 |
if ($dirname ne ".") |
|
658
|
0 |
0 |
unless ($temporary) |
|
666
|
0 |
0 |
unless ($ENV{'DOIT_TEST_SKIP_SOME_CHECKS'}) |
|
674
|
0 |
0 |
if (-e $tarfile) |
|
679
|
0 |
0 |
unless ($ENV{'DOIT_TEST_SKIP_SOME_CHECKS'}) |
|
698
|
0 |
0 |
unless (-e $tarfile) |
|
710
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
711
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
722
|
0 |
0 |
unless (-e $tarfile) |
|
742
|
0 |
0 |
if (@files) { } |
|
754
|
0 |
0 |
unless &Getopt::Long::GetOptions("show-only", \my $show_only) |
|
758
|
0 |
0 |
if (@files and $show_only) |
|
759
|
0 |
0 |
if ($show_only) { } |
|
764
|
0 |
0 |
$doit->which('xdg-open') ? : |
|
|
0 |
0 |
$^O eq 'darwin' ? : |
|
861
|
0 |
0 |
$opt{'create_packlist'} ? : |
|
|
0 |
0 |
$opt{'create_packlist'} ? : |
|
|
0 |
0 |
$Config{'installman1dir'} ? : |
|
|
0 |
0 |
$Config{'installman3dir'} ? : |
|
|
0 |
0 |
$opt{'create_packlist'} ? : |
|
|
0 |
0 |
$Config{'installvendorman1dir'} ? : |
|
|
0 |
0 |
$Config{'installvendorman3dir'} ? : |
|
|
0 |
0 |
$opt{'create_packlist'} ? : |
|
|
0 |
0 |
$Config{'installsiteman1dir'} ? : |
|
|
0 |
0 |
$Config{'installsiteman3dir'} ? : |
|
|
0 |
0 |
($opt{'installdirs'} || '') eq 'vendor' ? : |
|
|
0 |
0 |
($opt{'installdirs'} || '') eq 'core' ? : |
|
|
0 |
0 |
$opt{'install_base'} ? : |
|
867
|
0 |
0 |
if ($doit->is_dry_run) |
|
876
|
0 |
0 |
if defined $Doit_VERSION |
|
880
|
0 |
0 |
unless open my $fh, $Doit_pm |
|
882
|
0 |
0 |
if (/\$VERSION\s*=\s*'(.*)'/) |
|
887
|
0 |
0 |
unless (defined $Doit_VERSION) |
|
891
|
0 |
0 |
unless ($Doit_VERSION =~ /^\d+\.[\d_]+$/) |
|
895
|
0 |
0 |
unless (defined $Doit::VERSION) |
|
900
|
0 |
0 |
if ($Doit_numerical_version != $Doit::VERSION) |
|
955
|
0 |
0 |
if ($doit->is_dry_run) { } |
|
956
|
0 |
0 |
defined $meta_version ? : |
|
958
|
0 |
0 |
defined $meta_version ? : |
|
983
|
0 |
0 |
unless $doit->which($tool) |
|
990
|
0 |
0 |
unless (defined $version) |
|
992
|
0 |
0 |
if ($add_distro_version) |
|
994
|
0 |
0 |
unless ($osr) |
|
999
|
0 |
0 |
if ($dist_id eq 'debian') { } |
|
|
0 |
0 |
elsif ($dist_id eq 'linuxmint') { } |
|
|
0 |
0 |
elsif ($dist_id eq 'ubuntu') { } |
|
1014
|
0 |
0 |
defined $version ? : |
|
1017
|
0 |
0 |
if (@debs != 1) |
|
1028
|
0 |
0 |
unless $doit->which("git") |
|
1030
|
0 |
0 |
if (defined $git_describe) { } |
|
1031
|
0 |
0 |
if ($git_describe =~ /^([0-9\._]+)$/) { } |
|
|
0 |
0 |
elsif ($git_describe =~ /^([0-9\._]+)-(\d+)-g(.*)/) { } |
|
1047
|
0 |
0 |
$_[0] ? : |
|
1048
|
0 |
0 |
unless &Getopt::Long::GetOptions("use-workdir!", \my $use_workdir, "tag=s", \my $tag) |
|
1052
|
0 |
0 |
if $tag and $use_workdir |
|
1053
|
0 |
0 |
unless my $distro_spec = shift @ARGV |
|
1054
|
0 |
0 |
if @ARGV |
|
1055
|
0 |
0 |
if ($distro_spec eq "self") |
|
1058
|
0 |
0 |
unless ($distro_spec and $distro_spec =~ /^.*:.*$/) |
|
1062
|
0 |
0 |
unless $doit->which($tool) |
|
1074
|
0 |
0 |
$limited_volume_availability ? : |
|
1075
|
0 |
0 |
unless (-d $pkgdir) |
|
1079
|
0 |
0 |
if ($use_workdir) { } |
|
1084
|
0 |
0 |
$tag ? : |
|
1112
|
0 |
0 |
if ($ENV{$env_key}) |
|
1134
|
0 |
0 |
if ($Doit_VERSION eq $existing_tag) |
|
1140
|
0 |
0 |
unless open my $cfh, "<", "Changes" |
|
1143
|
0 |
0 |
if (/^\Q$Doit_VERSION\E\s/) |
|
1154
|
0 |
0 |
if ($git_status ne "" and $git_status ne "<") |
|
1160
|
0 |
0 |
if (not -e $tarfile) { } |
|
1167
|
0 |
0 |
unless (&y_or_n()) |
|
1199
|
0 |
0 |
if ($^O eq "MSWin32") |
|
1203
|
0 |
0 |
if (-x $candidate) |
|
1212
|
0 |
0 |
if ($^O eq "MSWin32") |
|
1216
|
0 |
0 |
if (-x $candidate) |
|
1226
|
0 |
0 |
if ($ENV{'PERL_MB_OPT'}) |
|
1234
|
0 |
0 |
if (-l "Build") |
|
1249
|
0 |
0 |
if $@ |
|
1260
|
0 |
0 |
if ($distro_spec =~ /^debian:(wheezy|jessie|stretch|buster|7|8|9|10)$/) { } |
|
|
0 |
0 |
elsif ($distro_spec =~ /^perl:(5\.18\.\d+|.*stretch)$/) { } |
|
1262
|
0 |
0 |
if ($codename eq '7') { } |
|
|
0 |
0 |
elsif ($codename eq '8') { } |
|
|
0 |
0 |
elsif ($codename eq '9') { } |
|
|
0 |
0 |
elsif ($codename eq '10') { } |
|
1306
|
0 |
0 |
if %opts |
|
1308
|
0 |
0 |
if ($distro_spec eq "centos:6" or $distro_spec eq "centos:7") |
|
1311
|
0 |
0 |
if ($distro_spec eq 'centos:6') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'centos:7') { } |
|
1430
|
0 |
0 |
if ($status eq "<<") |
|
1433
|
0 |
0 |
if ($status eq "*") |
|
1458
|
0 |
0 |
if ($yn eq "" and defined $default) |
|
1461
|
0 |
0 |
if (lc $yn eq 'y') { } |
|
|
0 |
0 |
elsif (lc $yn eq 'n') { } |
|
1485
|
0 |
13 |
if (exists $self->{'custom_options'}{$key}) { } |