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) |