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/)
129 0 0 if (not $variable_name =~ /^[A-Za-z_][A-Za-z_0-9]+$/ or $variable_name =~ /^(?:$reserved_words_re)$/)
143 0 0 unless (valid_c_variable($string))
165 0 0 if (ref $fh and ref $fh eq 'SCALAR') { }
196 0 0 unless ref $hash_ref eq 'HASH'
197 0 0 unless $prefix
198 0 0 unless open my $c_out, '>:utf8', $c_file_name
201 0 0 unless open my $h_out, '>:utf8', $h_file_name
204 0 0 unless (valid_c_variable($variable))
212 0 0 unless close $c_out
214 0 0 unless close $h_out
221 0 0 unless $line_number =~ /^[0-9]+$/ and $line_number > 0
229 0 0 unless open my $input, '<:encoding(utf8)', $input_file
230 0 0 unless open my $output, '>:encoding(utf8)', $output_file
235 0 0 unless close $input
236 0 0 unless close $output
244 0 0 unless open my $input, '<:encoding(utf8)', $input_file
246 0 0 if (/^#line/) { }
0 0 elsif ($. == 1) { }
271 0 0 unless $intext and $file and $directive
280 0 0 if $intext =~ /$tag\d+/
297 0 0 if $intext =~ /$tag\d+$tag/
320 0 0 unless (defined $name)