Branch Coverage

File:lib/Parrot/Configure/Compiler.pm
Coverage:84.4%

line%coveragebranch
92100TFunless defined $cc_args
93100TFunless defined $link_args
105100TFif ($compile_result)
11050TFif my $link_result = _run_command("$link $linkflags $test$o $link_args $cc_exe_out$test$exe $libs", "$test.ldo", "$test.ldo", $verbose)
11450TFif ($link_result)
13750TFif (defined $_[0] and length $_[0]) { }
16650TFif (defined $_[0] and length $_[0]) { }
21050TFunless open my $in, '<', $source
21150TFunless open my $out, '>', "$target.tmp"
21750TFif (defined(my $val = $conf->data->get($1))) { }
23250TFunless close $in
23350TFunless close $out
395100TFunless ($calling_sub =~ /cc_gen$/)
399100TFunless open my $in, '<', $source
40050TFunless open my $out, '>', "$target.tmp"
402100TFif (not exists $options{'file_type'}) { }
50TFelsif ($options{'file_type'} eq 'none') { }
403100TFif ($target =~ /makefile$/i or $target =~ /\.mak/) { }
50TFelsif ($target =~ /\.p[lm]$/i) { }
100TFelsif ($target =~ /\.[hc]$/) { }
50TFelsif ($target =~ /\.pmc$/) { }
100TFelsif ($target =~ /\.pir$/) { }
422100TFif ($options{'file_type'})
423100TFunless (exists $file_types_info{$options{'file_type'}})
426100TFunless (exists $options{'comment_type'})
430100TFif ($options{'file_type'} eq 'makefile')
435100TFif ($options{'comment_type'})
440100TFif ($options{'comment_type'} eq '#') { }
100TFelsif ($options{'comment_type'} eq '/*') { }
458100TFif ($target eq 'CFLAGS')
472100TFif ($line =~ /^#perl/ and $options{'feature_file'})
484100TFif $@
487100TFif ($options{'conditioned_lines'})
490100TFif (($op, $expr, $rest) = $line =~ /^#(IF|UNLESS|ELSIF)\((.+)\):(.*)/s) { }
100TFelsif ($former_truth != -1 and $line =~ /^#ELSE:(.*)/s) { }
491100TFif ($op eq 'ELSIF' and $former_truth)
495100TFif ($op eq 'IF') { }
100TFelsif ($op eq 'UNLESS') { }
50TFelsif ($op eq 'ELSIF') { }
497100TFunless $truth
501100TFif $truth
505100TFunless $truth
510100TFif $former_truth
519100TFif ($options{'expand_gmake_syntax'})
52450TFif ($line =~ s/\$ \( wildcard \s+ ([^)]+) \)/join ' ', glob(glob("$1"));/egx)
533100TFif ($line =~ s/\$ \( notdir \s+ ([^)]+) \)/join ' ', map({('File::Spec'->splitpath($_))[2];} split(' ', $1, 0));/egx)
546100TFif ($line =~ s[\$ \( basename \s+ ([^)]+) \)][join ' ', map({my(@split) = 'File::Spec'->splitpath($_); $split[2] =~ s/\.[^.]*$//; 'File::Spec'->catpath(@split);} split(' ', $1, 0));]egx)
561100TFif ($line =~ s/\$ \( addprefix \s+ ([^,]+) \s* , \s* ([^)]+) \)/my($prefix, $list) = ($1, $2); join ' ', map({$_ = $prefix . $_;} split(' ', $list, 0));/egx)
575100TFif $any_gmake
580100TFif (defined(my $val = $conf->data->get($1))) { }
593100TFif (defined(my $val = $conf->data->get($full))) { }
50TFelsif (defined($val = $conf->data->get($base))) { }
60850TFunless close $in
60950TFunless close $out
623100TFunless $s
625100TFif ($s =~ /^\((.+)\)\s*(.*)/) { }
626100TF$2 ? :
631100TFif ($s =~ /^([-\w=]+)\s*(.*)?/) { }
633100TF$2 ? :
63950TF$2 ? :
65150TFunless defined $key
652100TFif ($key =~ /^([-\w]+)==(.+)$/) { }
656100TF$conf->data->get($key) ? :
100TFexists $conf->data->{'c'}{$key} ? :
669100TFif (@count > 1)
676100TFif ($key eq '!' or uc $key eq 'NOT') { }
100TFelsif ($truth and $op eq 'OR') { }
686100TFif (not $truth and $op eq 'AND')
690100TFif ($op eq 'NOT') { }
100TFelsif ($op eq 'AND' and not $truth) { }
691100TF$truth ? :
699100TFif ($op) { }
50TFelsif ($prevexpr) { }
700100TFif ($op eq '|' or uc $op eq 'OR') { }
100TFelsif ($op eq '&' or uc $op eq 'AND') { }
50TFelsif ($op eq '!' or uc $op eq 'NOT') { }
72050TFif ($prevexpr eq $expr)
732100TFif ($$conf{'active_configuration'})
73450TFunless open my $GEN, '>>', $generated_log
73750TFunless close $GEN