Branch Coverage

blib/lib/C/Utility.pm
Criterion Covered Total %
branch 3 56 5.3


line true false branch
45 0 2 if (length $text == 0)
61 1 1 unless ($text =~ /\\n\"$/)
75 0 0 unless ($c_file_name =~ /\.c/)
80 0 0 if (-f $c_file_name)
83 0 0 if (-f $h_file_name)
106 0 0 unless ($c_file_name =~ /\.c/)
117 0 0 if (not $variable_name =~ /^[A-Za-z_][A-Za-z_0-9]+$/ or $variable_name =~ /^(?:$C::Utility::reserved_re)$/)
131 0 0 unless (valid_c_variable($string))
153 0 0 if (ref $fh and ref $fh eq 'SCALAR') { }
184 0 0 unless ref $hash_ref eq 'HASH'
185 0 0 unless $prefix
186 0 0 unless open my $c_out, '>:utf8', $c_file_name
189 0 0 unless open my $h_out, '>:utf8', $h_file_name
192 0 0 unless (valid_c_variable($variable))
200 0 0 unless close $c_out
202 0 0 unless close $h_out
209 0 0 unless $line_number =~ /^[0-9]+$/ and $line_number > 0
217 0 0 unless open my $input, '<:encoding(utf8)', $input_file
218 0 0 unless open my $output, '>:encoding(utf8)', $output_file
223 0 0 unless close $input
224 0 0 unless close $output
232 0 0 unless open my $input, '<:encoding(utf8)', $input_file
234 0 0 if (/^#line/) { }
0 0 elsif ($. == 1) { }
259 0 0 unless $intext and $file and $directive
268 0 0 if $intext =~ /$tag\d+/
285 0 0 if $intext =~ /$tag\d+$tag/
308 0 0 unless (defined $name)