| line |
true |
false |
branch |
|
29
|
0 |
1 |
unless open my $fh, "<", "Build.PL" |
|
38
|
0 |
0 |
if ($argv =~ /^[^-].*=.*/ and $argv_i == 0 || !($ARGV[$argv_i - 1] =~ /^--?config$/)) |
|
45
|
0 |
1 |
if (basename($0) eq "Build.PL") |
|
51
|
0 |
1 |
unless open my $fh, "<", $0 |
|
55
|
1 |
0 |
if (my($old_md5hex) = $md5_line =~ /^# MD5: (\S+)/) { } |
|
56
|
0 |
1 |
if ($old_md5hex ne $Build_PL_md5hex) |
|
58
|
0 |
0 |
if (($perl) = $shebang =~ /^#!\s*(.*)/) { } |
|
75
|
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") |
|
99
|
0 |
1 |
unless ($action_with_arg_handling{$action}) |
|
100
|
0 |
0 |
if (@ARGV) |
|
122
|
36 |
3 |
if /\.(pm|pod)$/ and -f $_ |
|
126
|
0 |
36 |
if (not -e $dest or -M $dest > -M $file) |
|
135
|
0 |
40 |
if (-f $_ and not $seen_blib{$File::Find::name}) |
|
151
|
0 |
1 |
$^O =~ /^(MSWin32|cygwin)$/ ? : |
|
156
|
13 |
26 |
if (-f $_ and /\.pod$/) |
|
165
|
0 |
13 |
if (not -e $man or -M $man > -M $pod or -M $man > -M "Build") |
|
168
|
0 |
0 |
if ($doit->is_dry_run) { } |
|
172
|
0 |
0 |
unless $parser->parse_from_file($pod, $man) |
|
186
|
0 |
14 |
if (-f $_ and not $seen_blib_man{$File::Find::name}) |
|
205
|
0 |
0 |
$_[0] ? : |
|
207
|
0 |
1 |
unless &Getopt::Long::GetOptions("build!", \$do_build) |
|
212
|
1 |
0 |
if $do_build |
|
218
|
0 |
1 |
if ($opt{'jobs'} and not defined $ENV{'HARNESS_OPTIONS'} && $ENV{'HARNESS_OPTIONS'} =~ /(^|:)j\d+($|:)/) |
|
219
|
0 |
0 |
defined $ENV{'HARNESS_OPTIONS'} && $ENV{'HARNESS_OPTIONS'} ne '' ? : |
|
224
|
1 |
0 |
unless (@test_files) |
|
231
|
0 |
1 |
if ($doit->is_dry_run) { } |
|
244
|
0 |
0 |
$opt{'jobs'} ? : |
|
249
|
0 |
0 |
unless chdir "/" |
|
256
|
0 |
0 |
$_[0] ? : |
|
257
|
0 |
0 |
unless &Getopt::Long::GetOptions("more-testing!", \my $more_testing, "invalidate-cache!", \my $do_invalidate_cache) |
|
261
|
0 |
0 |
unless my $distro_spec = shift @ARGV |
|
262
|
0 |
0 |
if @ARGV |
|
263
|
0 |
0 |
unless ($distro_spec and $distro_spec =~ /^.*:.*$/) |
|
266
|
0 |
0 |
$more_testing ? : |
|
268
|
0 |
0 |
unless $doit->which($tool) |
|
276
|
0 |
0 |
if ($do_invalidate_cache) |
|
283
|
0 |
0 |
if (-e "$dir/.distro_support") |
|
290
|
0 |
0 |
if ($distro_spec =~ /^(centos|rockylinux|fedora):/) { } |
|
|
0 |
0 |
elsif ($distro_spec =~ /^alpine(:|$)/) { } |
|
294
|
0 |
0 |
if ($distro_spec eq 'centos:6') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'centos:7') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'rockylinux:8') { } |
|
324
|
0 |
0 |
if ($distro_spec eq 'centos:8') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'rockylinux:8') { } |
|
|
0 |
0 |
elsif ($distro_spec eq 'rockylinux:9') { } |
|
343
|
0 |
0 |
if ($distro_spec ne "centos:8" and $distro_spec ne "rockylinux:8" and $distro_spec ne "rockylinux:9") |
|
350
|
0 |
0 |
if ($distro_spec eq 'centos:6') { } |
|
363
|
0 |
0 |
if ($more_testing) |
|
378
|
0 |
0 |
if ($distro_spec eq 'centos:6') { } |
|
399
|
0 |
0 |
if ($more_testing) |
|
416
|
0 |
0 |
$distro_spec eq 'ubuntu:precise' ? : |
|
424
|
0 |
0 |
if ($more_testing) |
|
425
|
0 |
0 |
$distro_spec eq 'ubuntu:precise' ? : |
|
441
|
0 |
0 |
if ($distro_spec =~ /^(ubuntu:precise)$/) |
|
454
|
0 |
0 |
if ($more_testing) |
|
464
|
0 |
0 |
if (defined $ENV{$env_key}) |
|
487
|
0 |
0 |
$_[0] ? : |
|
488
|
0 |
0 |
unless &Getopt::Long::GetOptions("package=s", \my $package) |
|
491
|
0 |
0 |
unless $package |
|
492
|
0 |
0 |
unless my $distro_spec = shift @ARGV |
|
493
|
0 |
0 |
if @ARGV |
|
494
|
0 |
0 |
unless ($distro_spec and $distro_spec =~ /^.*:.*$/) |
|
499
|
0 |
0 |
unless $doit->which($tool) |
|
545
|
0 |
0 |
$more_testing ? : |
|
558
|
0 |
0 |
if not defined $max_width or $max_width < $width |
|
575
|
0 |
0 |
unless defined $distdir |
|
577
|
0 |
0 |
if (eval {
do {
require Test::Kwalitee;
1
}
}) { } |
|
589
|
0 |
0 |
unless defined $distdir |
|
591
|
0 |
0 |
if (eval {
do {
require Test::Pod;
1
}
}) { } |
|
603
|
0 |
0 |
if ($doit->which('cpan_check_versions')) { } |
|
621
|
0 |
0 |
if (defined $out and $out ne "") |
|
629
|
0 |
0 |
if %options |
|
637
|
0 |
0 |
if $line =~ m[^( \.travis\.yml
| \.?appveyor\.yml
| \.github/.*
| \.gitignore
)$]x |
|
644
|
0 |
0 |
if ($dirname ne ".") |
|
659
|
0 |
0 |
unless ($temporary) |
|
667
|
0 |
0 |
unless ($ENV{'DOIT_TEST_SKIP_SOME_CHECKS'}) |
|
675
|
0 |
0 |
if (-e $tarfile) |
|
680
|
0 |
0 |
unless ($ENV{'DOIT_TEST_SKIP_SOME_CHECKS'}) |
|
699
|
0 |
0 |
unless (-e $tarfile) |
|
711
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
712
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
723
|
0 |
0 |
unless (-e $tarfile) |
|
743
|
0 |
0 |
if (@files) { } |
|
755
|
0 |
0 |
unless &Getopt::Long::GetOptions("show-only", \my $show_only) |
|
759
|
0 |
0 |
if (@files and $show_only) |
|
760
|
0 |
0 |
if ($show_only) { } |
|
765
|
0 |
0 |
$doit->which('xdg-open') ? : |
|
|
0 |
0 |
$^O eq 'darwin' ? : |
|
862
|
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'} ? : |
|
868
|
0 |
0 |
if ($doit->is_dry_run) |
|
877
|
0 |
0 |
if defined $Doit_VERSION |
|
881
|
0 |
0 |
unless open my $fh, $Doit_pm |
|
883
|
0 |
0 |
if (/\$VERSION\s*=\s*'(.*)'/) |
|
888
|
0 |
0 |
unless (defined $Doit_VERSION) |
|
892
|
0 |
0 |
unless ($Doit_VERSION =~ /^\d+\.[\d_]+$/) |
|
896
|
0 |
0 |
unless (defined $Doit::VERSION) |
|
901
|
0 |
0 |
if ($Doit_numerical_version != $Doit::VERSION) |
|
956
|
0 |
0 |
if ($doit->is_dry_run) { } |
|
957
|
0 |
0 |
defined $meta_version ? : |
|
959
|
0 |
0 |
defined $meta_version ? : |
|
984
|
0 |
0 |
unless $doit->which($tool) |
|
991
|
0 |
0 |
unless (defined $version) |
|
993
|
0 |
0 |
if ($add_distro_version) |
|
995
|
0 |
0 |
unless ($osr) |
|
1000
|
0 |
0 |
if ($dist_id eq 'debian') { } |
|
|
0 |
0 |
elsif ($dist_id eq 'linuxmint') { } |
|
|
0 |
0 |
elsif ($dist_id eq 'ubuntu') { } |
|
1015
|
0 |
0 |
defined $version ? : |
|
1018
|
0 |
0 |
if (@debs != 1) |
|
1029
|
0 |
0 |
unless $doit->which("git") |
|
1031
|
0 |
0 |
if (defined $git_describe) { } |
|
1032
|
0 |
0 |
if ($git_describe =~ /^([0-9\._]+)$/) { } |
|
|
0 |
0 |
elsif ($git_describe =~ /^([0-9\._]+)-(\d+)-g(.*)/) { } |
|
1048
|
0 |
0 |
$_[0] ? : |
|
1049
|
0 |
0 |
unless &Getopt::Long::GetOptions("use-workdir!", \my $use_workdir, "tag=s", \my $tag) |
|
1053
|
0 |
0 |
if $tag and $use_workdir |
|
1054
|
0 |
0 |
unless my $distro_spec = shift @ARGV |
|
1055
|
0 |
0 |
if @ARGV |
|
1056
|
0 |
0 |
if ($distro_spec eq "self") |
|
1059
|
0 |
0 |
unless ($distro_spec and $distro_spec =~ /^.*:.*$/) |
|
1063
|
0 |
0 |
unless $doit->which($tool) |
|
1075
|
0 |
0 |
$limited_volume_availability ? : |
|
1076
|
0 |
0 |
unless (-d $pkgdir) |
|
1080
|
0 |
0 |
if ($use_workdir) { } |
|
1085
|
0 |
0 |
$tag ? : |
|
1113
|
0 |
0 |
if ($ENV{$env_key}) |
|
1135
|
0 |
0 |
if ($Doit_VERSION eq $existing_tag) |
|
1141
|
0 |
0 |
unless open my $cfh, "<", "Changes" |
|
1144
|
0 |
0 |
if (/^\Q$Doit_VERSION\E\s/) |
|
1155
|
0 |
0 |
if ($git_status ne "" and $git_status ne "<") |
|
1161
|
0 |
0 |
if (not -e $tarfile) { } |
|
1168
|
0 |
0 |
unless (&y_or_n()) |
|
1200
|
0 |
0 |
if ($^O eq "MSWin32") |
|
1204
|
0 |
0 |
if (-x $candidate) |
|
1213
|
0 |
0 |
if ($^O eq "MSWin32") |
|
1217
|
0 |
0 |
if (-x $candidate) |
|
1227
|
0 |
0 |
if ($ENV{'PERL_MB_OPT'}) |
|
1235
|
0 |
0 |
if (-l "Build") |
|
1250
|
0 |
0 |
if $@ |
|
1261
|
0 |
0 |
if ($distro_spec =~ /^debian:(wheezy|jessie|stretch|7|8|9)$/) { } |
|
|
0 |
0 |
elsif ($distro_spec =~ /^perl:(5\.18\.\d+|.*stretch)$/) { } |
|
1263
|
0 |
0 |
if ($codename eq '7') { } |
|
|
0 |
0 |
elsif ($codename eq '8') { } |
|
|
0 |
0 |
elsif ($codename eq '9') { } |
|
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}) { } |