| line | % | coverage | branch |
|---|
| 185 | 50 | T | F | unless &GetOptions('code|C=s', \$code_name, 'header|H=s', \$header_name, 'function-name=s', \$function_name, 'ignore-case', \$ignore_case, 'enum-name=s', \$enum_name, 'language|l=s', \$language, 'multi-byte=s', \$multi_byte, 'enum-class', \$enum_class, 'include=s', \@includes, 'counter-name=s', \$counter_name) |
| 216 | 100 | T | F | if $length >= 8 and $multi_byte =~ /3/ |
| 217 | 100 | T | F | if $length >= 4 and $multi_byte =~ /2/ |
| 218 | 100 | T | F | if $length >= 2 and $multi_byte =~ /1/ |
| 235 | 100 | T | F | if (length $key == 0) |
| 243 | 100 | T | F | unless defined $self->{'children'}{$child} |
| 253 | 100 | T | F | if ($togo != 0) { } |
| 256 | 100 | T | F | if ($togo > length $key or defined $self->{'children'}{$key}{'value'}) |
| 259 | 100 | T | F | if defined $child |
| 260 | 100 | T | F | if defined $child |
| 263 | 100 | T | F | unless $found |
| 277 | 100 | T | F | if defined $self->{'value'} |
| 288 | 100 | T | F | if ($ignore_case) |
| 293 | 100 | T | F | if main::ambiguous(substr($key, $i, 1)) |
| 306 | 100 | T | F | if $special_length < $new_split |
| 332 | 100 | T | F | $code_name eq $header_name ? : |
| 333 | 100 | T | F | $enum_class ? : |
| 345 | 100 | T | F | if ($code_name ne '-') { } |
| 346 | 50 | T | F | unless open $code, '>', $code_name |
| 350 | 100 | T | F | if ($code_name eq $header_name) { } |
| 100 | T | F | elsif ($header_name ne '-') { } |
| 353 | 50 | T | F | unless open $header, '>', $header_name |
| 371 | 100 | T | F | unless $multi_byte |
| 386 | 100 | T | F | if $length == 1 |
| 395 | 100 | T | F | if (defined $trie->{'value'}) |
| 396 | 100 | T | F | $enum_class ? : |
| 414 | 100 | T | F | if ($ignore_case and $can_use_bit and $want_use_bit) { } |
| 422 | 100 | T | F | if ($notfirst) |
| 425 | 100 | T | F | if ($ignore_case) { } |
| 427 | 100 | T | F | if lc $key ne uc $key and not $can_use_bit && $want_use_bit |
| 447 | 100 | T | F | if defined $trie->{'value'} |
| 460 | 100 | T | F | $enum_class ? : |
| 474 | 100 | T | F | if defined $counter_name |
| 481 | 100 | T | F | if $header_name ne $code_name |
| 483 | 100 | T | F | if ($multi_byte) { } |
| 518 | 100 | T | F | $enum_class ? : |
| 534 | 100 | T | F | if (ord $char | 32) != ord lc $char |
| 541 | 100 | T | F | if ($i | 32) == ord lc $char and lc chr $i ne lc $char |
| 555 | 100 | T | F | unless open my $input, '<', $ARGV[0] |
| 559 | 100 | T | F | if (defined $word) { } |
| 50 | T | F | elsif (defined $value) { } |
| 560 | 100 | T | F | if defined $value |
| 568 | 50 | T | F | if defined $label |
| 615 | 50 | T | F | if ($code_name ne '-') { } |
| 616 | 0 | T | F | unless open $code, '>', $code_name |
| 627 | 100 | T | F | if defined $trie->{'label'} |
| 642 | 50 | T | F | unless defined $codegens{$language} |