| line |
true |
false |
branch |
|
36
|
11 |
0 |
if ($self->config_file) |
|
87
|
0 |
0 |
if $bad_opt |
|
93
|
0 |
23 |
if (is_win()) { } |
|
94
|
0 |
0 |
if $ENV{'BB_CONF'} |
|
98
|
4 |
19 |
if $ENV{'BB_CONF'} |
|
103
|
0 |
33 |
$^O =~ /Win/ ? : |
|
112
|
0 |
3 |
if ($self->{'args'}{'nocache'}) { } |
|
120
|
0 |
3 |
if $brew_info |
|
142
|
1 |
0 |
unless ($timeout) |
|
143
|
0 |
1 |
if ($self->{'args'}{'timeout'}) { } |
|
157
|
0 |
1 |
if (ref $install eq 'ARRAY') { } |
|
|
0 |
1 |
elsif ($install == -1) { } |
|
|
1 |
0 |
elsif ($install) { } |
|
159
|
0 |
0 |
unless $self->is_win or $version =~ /perl/ |
|
161
|
0 |
0 |
if ($self->is_win) |
|
162
|
0 |
0 |
unless ($version =~ /_/) |
|
164
|
0 |
0 |
if (not grep({$_ =~ /$version/;} @perls_available)) { } |
|
174
|
0 |
0 |
unless $self->is_win |
|
176
|
0 |
0 |
unless (grep {$version eq $_;} @perls_available) |
|
181
|
0 |
0 |
if (grep {$version eq $_;} @perls_installed) |
|
192
|
0 |
0 |
if (grep {$_ eq $perl;} @perls_installed) |
|
205
|
1 |
0 |
unless keys %avail |
|
210
|
0 |
0 |
if (grep {$_ eq $candidate;} @perls_installed) |
|
220
|
0 |
1 |
if (@new_installs) { } |
|
237
|
0 |
0 |
if ($@) |
|
244
|
0 |
0 |
if not $self->{'args'}{'nocache'} |
|
263
|
1 |
0 |
if ($version) { } |
|
265
|
0 |
1 |
if ($self->is_win) { } |
|
271
|
1 |
0 |
unless $self->{'args'}{'nocache'} |
|
280
|
0 |
0 |
if ($using eq $installed_perl) |
|
287
|
0 |
0 |
if ($bcmd->is_win) { } |
|
293
|
0 |
0 |
unless $self->{'args'}{'nocache'} |
|
332
|
0 |
0 |
if $self->{'args'}{'notest'} |
|
347
|
0 |
0 |
unless ($results =~ /${re_brewbuild('check_result');}/) |
|
348
|
0 |
0 |
if ($self->{'args'}{'on'} and @{$self->{'args'}{'on'};} == 1) { } |
|
|
0 |
0 |
elsif (@perls_installed == 1) { } |
|
367
|
0 |
0 |
if ($result =~ /${re_brewbuild('extract_perl_version');}/) |
|
373
|
0 |
0 |
if ($result =~ /Successfully tested / and not $result =~ /FAIL/) { } |
|
395
|
0 |
0 |
if $self->{'args'}{'plugin_arg'} |
|
404
|
11 |
11 |
if $self->{'tempdir'} |
|
420
|
0 |
1 |
is_win() ? : |
|
443
|
0 |
0 |
if $mod |
|
445
|
0 |
0 |
if (-f $_ and $_ =~ /\.pm$/) |
|
460
|
0 |
0 |
if ref $dist |
|
476
|
1 |
5 |
if (not defined $legacy and defined $self->{'args'}{'legacy'}) |
|
480
|
2 |
3 |
defined $legacy ? : |
|
533
|
2 |
9 |
if (-f $conf_file) |
|
548
|
0 |
0 |
unless open my $bblog_fh, '<', $bblog |
|
553
|
0 |
0 |
if ($bbfile =~ /${re_brewbuild('check_failed');}/) |
|
555
|
0 |
0 |
unless open my $bblog_wfh, '>>', $bblog |
|
559
|
0 |
0 |
unless open my $build_log_fh, '<', $build_log |
|
571
|
0 |
0 |
if $self->{'tempdir'} |
|
572
|
0 |
0 |
if -e 'bblog/stderr.bblog' |
|
579
|
2 |
9 |
defined $level ? : |
|
586
|
10 |
1 |
if ($self->{'log'}->level < 6) |
|
589
|
10 |
0 |
'set log level to ' . defined($level) ? : |
|
601
|
0 |
0 |
if ($self->{'args'}{'plugin_arg'}) |
|
620
|
0 |
0 |
if ($self->{'args'}{'on'}) { } |
|
628
|
0 |
0 |
unless ($run_on_version =~ /^perl-/) |
|
631
|
0 |
0 |
unless (grep {$prefixed_version eq $_;} $self->perls_installed) |
|
641
|
0 |
0 |
unless open $wfh, '>', $fname |
|
662
|
0 |
0 |
if ($bcmd->is_win) { } |
|
678
|
0 |
0 |
if ($_ =~ /${re_brewbuild('extract_result');}/gsx) |
|
700
|
0 |
0 |
unless open $wfh, '>', $fname |
|
726
|
0 |
0 |
if -e 'Build.PL' or -e 'Makefile.PL' |
|
727
|
0 |
0 |
unless -e 'dist.ini' |
|
732
|
0 |
0 |
$self->is_win ? : |
|
734
|
0 |
0 |
unless (grep {-x "$_/dzil";} split(/$path_sep/, $ENV{'PATH'}, 0)) |
|
743
|
0 |
0 |
unless open my $fh, '<', 'dist.ini' |
|
748
|
0 |
0 |
if (/${re_brewbuild('extract_dzil_dist_name');}/) |
|
751
|
0 |
0 |
if (/${re_brewbuild('extract_dzil_dist_version');}/) |
|
754
|
0 |
0 |
if $dist and $version |
|
766
|
0 |
0 |
if defined $cmd_file |
|
777
|
0 |
0 |
unless ($self->{'is_dzil'}) |
|
818
|
0 |
0 |
if (-e $errlog) |
|
819
|
0 |
0 |
unless open my $errlog_fh, '<', $errlog |
|
833
|
0 |
0 |
if (/${re_brewbuild('extract_error_perl_ver');}/) |
|
838
|
0 |
0 |
unless (keys %error_map) |
|
849
|
0 |
0 |
if ($status ne 'FAIL' and not $self->{'args'}{'save_reports'}) |
|
855
|
0 |
0 |
if (defined $tested_mod) { } |
|
858
|
0 |
0 |
unless open my $wfh, '>', $report |
|
862
|
0 |
0 |
unless ($self->is_win) |
|
865
|
0 |
0 |
if (defined $errors{'0'}) { } |
|
872
|
0 |
0 |
if ('version'->parse($_) == 'version'->parse($ver)) |
|
885
|
0 |
0 |
unless open my $wfh, '>', $report |
|
888
|
0 |
0 |
unless ($self->is_win) |
|
891
|
0 |
0 |
if ('version'->parse($_) == 'version'->parse($ver)) |
|
899
|
0 |
0 |
if not $self->is_win |
|
909
|
0 |
9 |
$self->{'args'}{'plugin'} ? : |
|
911
|
9 |
0 |
'plugin param set to: ' . defined($plugin) ? : |
|
933
|
0 |
0 |
if (@$args) |
|
937
|
0 |
0 |
unless (grep {$arg eq $_;} @valid_args) |