| line |
true |
false |
branch |
|
106
|
0 |
1 |
if @_ & 1 |
|
136
|
0 |
1 |
if (@_ > 1) { } |
|
139
|
0 |
0 |
if (@_ > 1) { } |
|
142
|
0 |
4 |
if (@_ > 1) { } |
|
152
|
7 |
0 |
unless $self->{'emit_tty'} |
|
153
|
0 |
7 |
if ($self->{'emit_unicode'} and utf8::is_utf8($msg)) |
|
155
|
0 |
0 |
unless grep /utf-?8/i, &PerlIO::get_layers($handle) |
|
219
|
0 |
7 |
if (@_ > 1) { } |
|
221
|
0 |
0 |
if ref $_[1] |
|
229
|
0 |
6 |
if (@_ > 1) { } |
|
231
|
0 |
0 |
unless ref $_[1] eq "HASH" |
|
240
|
6 |
0 |
if (defined(my $val = $macros->{$_})) { } |
|
251
|
0 |
5 |
if (@_ > 1) { } |
|
253
|
0 |
0 |
if ref $_[1] |
|
278
|
0 |
13 |
if (@_ > 1) { } |
|
282
|
0 |
0 |
if (@_ > 1) { } |
|
285
|
0 |
0 |
if (@_ > 1) { } |
|
288
|
0 |
0 |
if (@_ > 1) { } |
|
305
|
0 |
8 |
if (@_ > 1) { } |
|
306
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
308
|
0 |
8 |
if (@_ > 1) { } |
|
309
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
311
|
0 |
8 |
if (@_ > 1) { } |
|
312
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
316
|
0 |
8 |
unless open my $fh, ">", $fname |
|
317
|
0 |
8 |
unless $fh->print(@_) |
|
318
|
0 |
8 |
unless $fh->close |
|
322
|
0 |
0 |
defined $_[0] && length $_[0] ? : |
|
|
0 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
|
330
|
0 |
12 |
unless open my $out_fh, "+>", $outfile |
|
331
|
0 |
12 |
unless open my $stdout_save, ">&STDOUT" |
|
332
|
0 |
12 |
unless open my $stderr_save, ">&STDERR" |
|
333
|
0 |
12 |
unless open STDOUT, '>&' . fileno($out_fh) |
|
334
|
0 |
12 |
unless open STDERR, '>&' . fileno($out_fh) |
|
336
|
0 |
12 |
unless eval {
do {
&$code();
1
}
} |
|
339
|
0 |
12 |
unless open STDERR, '>&' . fileno($stderr_save) |
|
340
|
0 |
12 |
unless open STDOUT, '>&' . fileno($stdout_save) |
|
346
|
0 |
12 |
if defined $ex |
|
386
|
24 |
0 |
unless $opts{$_} |
|
401
|
4 |
0 |
$@ ? : |
|
|
4 |
4 |
unless $success |
|
403
|
4 |
4 |
if ($success) |
|
408
|
0 |
1 |
$? & 255 ? : |
|
|
1 |
3 |
if ($?) |
|
411
|
0 |
1 |
$@ ? : |
|
|
1 |
3 |
unless $success |
|
441
|
0 |
2 |
if $self->{'config_include_set'}{$header} |
|
451
|
0 |
2 |
defined $path ? : |
|
|
1 |
1 |
if ($self->compile_and_run($code, defined $path ? ("include_dirs", [$path]) : ())) |
|
455
|
0 |
1 |
if defined $path |
|
457
|
0 |
1 |
defined $path ? : |
|
458
|
0 |
1 |
$self->emit_unicode ? : |
|
462
|
0 |
1 |
$self->emit_unicode ? : |
|
469
|
0 |
0 |
unless ($success) |
|
518
|
2 |
0 |
if ($code =~ /^\w+\z/) |
|
524
|
2 |
0 |
unless ($code =~ /int main\(/) |
|
526
|
2 |
0 |
if ($code =~ /return [^{}]+;/) { } |
|
536
|
0 |
2 |
if ($p) |
|
546
|
0 |
0 |
if defined $p->{'-I'} |
|
548
|
0 |
0 |
if defined $p->{'-D'} |
|
550
|
0 |
0 |
if defined $p->{'-L'} |
|
552
|
0 |
0 |
if defined $p->{'-l'} |
|
555
|
0 |
0 |
if (my(@mod) = _maybe_list(delete $p->{'pkg_config'})) |
|
558
|
0 |
0 |
if ($self->get_pkg_config($_, $p)) { } |
|
566
|
0 |
0 |
unless @pkg_found |
|
570
|
0 |
2 |
if ($p) |
|
574
|
0 |
0 |
unless defined $val |
|
575
|
0 |
0 |
if (ref $val eq "ARRAY") |
|
576
|
0 |
0 |
unless @$val |
|
579
|
0 |
0 |
unless length $val |
|
582
|
0 |
0 |
if (@show_options) |
|
587
|
0 |
2 |
$p ? : |
|
|
1 |
1 |
if ($self->compile_and_run($prefix . $code, $p ? %$p : ())) { } |
|
|
0 |
1 |
elsif ($self->verbose) { } |
|
588
|
0 |
1 |
if ($p) |
|
590
|
0 |
0 |
if $p->{$_} |
|
597
|
1 |
0 |
if (defined $macro and length $macro) |
|
599
|
0 |
1 |
$self->emit_unicode ? : |
|
608
|
0 |
1 |
$self->emit_unicode ? : |
|
|
1 |
0 |
if defined $macro and length $macro |
|
616
|
0 |
0 |
unless ($success) |
|
647
|
0 |
0 |
if (defined $ENV{'PKG_CONFIG'}) |
|
649
|
0 |
0 |
if ($pc = $ENV{'PKG_CONFIG'}) =~ /[\0-\x1F"'\$\%{}\x7F]/ |
|
653
|
0 |
0 |
unless (defined $have_pkg_config) |
|
656
|
0 |
0 |
$wstat == 0 ? : |
|
657
|
0 |
0 |
unless $have_pkg_config |
|
661
|
0 |
0 |
if ($have_pkg_config) |
|
663
|
0 |
0 |
unless (exists $self->{'config_pkg_set'}{$m}) |
|
665
|
0 |
0 |
if (system({$pc;} $pc, '--exists', $m) == 0) { } |
|
669
|
0 |
0 |
if ($self->verbose or $cf_wstat or $l_wstat) |
|
670
|
0 |
0 |
$cf_wstat ? : |
|
671
|
0 |
0 |
$l_wstat ? : |
|
673
|
0 |
0 |
$cf_wstat ? : |
|
674
|
0 |
0 |
$l_wstat ? : |
|
678
|
0 |
0 |
if $self->verbose |
|
682
|
0 |
0 |
if (my $cfg = $self->{'config_pkg_set'}{$m}) |
|
684
|
0 |
0 |
if (/^-I(.+)$/) { } |
|
688
|
0 |
0 |
if length $cfg->{'libs'} |
|
705
|
0 |
0 |
unless length $s |
|
706
|
0 |
0 |
if ($s =~ s/^"((?:\\.|[^"])*)"//) { } |
|
|
0 |
0 |
elsif ($s =~ s/^'((?:\\.|[^'])*)'//) { } |
|
715
|
0 |
0 |
unless $s =~ s/^([^\s]+)// |
|
794
|
0 |
0 |
if @inc |
|
796
|
0 |
0 |
if @{$self->{'extra_linker_flags'};} |