| line | % | coverage | branch |
|---|
| 44 | 50 | T | F | if $expression =~ /\?\{/u |
| 56 | 50 | T | F | defined $2 ? : |
| 64 | 50 | T | F | unless open FILE, "<:utf8", $re |
| 72 | 100 | T | F | if /^#/u |
| 74 | 100 | T | F | unless s/^(.+)/(?:$1)/u |
| 76 | 100 | T | F | if (test_re($quoted)) { } |
| 92 | 50 | T | F | test_re($quoted) ? : |
| 94 | 50 | T | F | unless scalar @list |
| 106 | 50 | T | F | if $CheckSpelling::UnknownWordSplitter::shortest_word |
| 107 | 100 | T | F | if ($CheckSpelling::UnknownWordSplitter::longest_word) { } |
| 100 | T | F | elsif (not_empty($CheckSpelling::UnknownWordSplitter::longest)) { } |
| 116 | 100 | T | F | if defined $_ |
| 117 | 100 | T | F | unless $word_pattern |
| 118 | 50 | T | F | if (defined $CheckSpelling::UnknownWordSplitter::shortest and not_empty($CheckSpelling::UnknownWordSplitter::longest) and $CheckSpelling::UnknownWordSplitter::shortest > $CheckSpelling::UnknownWordSplitter::longest) |
| 123 | 100 | T | F | unless defined $CheckSpelling::UnknownWordSplitter::shortest |
| 124 | 100 | T | F | unless defined $CheckSpelling::UnknownWordSplitter::longest |
| 147 | 100 | T | F | unless $word =~ /$CheckSpelling::UnknownWordSplitter::word_match/u |
| 149 | 100 | T | F | unless not_empty($CheckSpelling::UnknownWordSplitter::longest) |
| 150 | 100 | T | F | if $l > $CheckSpelling::UnknownWordSplitter::longest |
| 151 | 100 | T | F | if $l < $CheckSpelling::UnknownWordSplitter::shortest |
| 167 | 50 | T | F | if (open AFF, "<", $aff) |
| 169 | 0 | T | F | unless /^SET\s+(\S+)/u |
| 170 | 0 | T | F | unless $1 =~ /utf-8/iu |
| 190 | 100 | T | F | if ($CheckSpelling::UnknownWordSplitter::hunspell_dictionary_path) |
| 192 | 50 | T | F | if (eval 'use Text::Hunspell; 1') { } |
| 202 | 50 | T | F | if (-e "$configuration/patterns.txt") { } |
| 210 | 100 | T | F | if (-e "$configuration/forbidden.txt") { } |
| 217 | 100 | T | F | if (-e "$configuration/candidates.txt") { } |
| 219 | 50 | T | F | $in_patterns_re_list{$_} || !test_re($quoted) ? : |
| 239 | 100 | T | F | unless -e $CheckSpelling::UnknownWordSplitter::base_dict |
| 261 | 100 | T | F | unless $token =~ /$pattern/u |
| 267 | 100 | T | F | unless $token =~ /$CheckSpelling::UnknownWordSplitter::word_match/u |
| 268 | 100 | T | F | if (defined $CheckSpelling::UnknownWordSplitter::dictionary{$token}) |
| 273 | 100 | T | F | if (@CheckSpelling::UnknownWordSplitter::hunspell_dictionaries) |
| 277 | 50 | T | F | defined $hunspell_dictionary->{'encoding'} ? : |
| 278 | 50 | T | F | unless $hunspell_dictionary->{'engine'}->check($token_encoded) |
| 285 | 50 | T | F | if $found |
| 288 | 100 | T | F | if (defined $CheckSpelling::UnknownWordSplitter::dictionary{$key}) |
| 293 | 50 | T | F | unless ($CheckSpelling::UnknownWordSplitter::disable_word_collating) |
| 297 | 50 | T | F | if (defined $CheckSpelling::UnknownWordSplitter::dictionary{$key}) |
| 336 | 50 | T | F | if defined $ENV{'DEBUG'} |
| 341 | 50 | T | F | if (defined $largest_file) |
| 342 | 50 | T | F | unless ($CheckSpelling::UnknownWordSplitter::check_file_names eq $file) |
| 343 | 100 | T | F | if ($file_size > $largest_file) |
| 349 | 100 | T | F | if ($use_magic_file) |
| 350 | 50 | T | F | if (open my $file_fh, "-|", "/usr/bin/file", "-b", "--mime", "-e", "cdf", "-e", "compress", "-e", "csv", "-e", "elf", "-e", "json", "-e", "tar", $file) |
| 363 | 100 | T | F | if ($file_kind =~ /^(.*?); charset=binary/u) |
| 378 | 100 | T | F | if ($unix_new_lines == 0 and $mac_new_lines == 0) { } |
| 100 | T | F | elsif ($dos_new_lines >= $unix_new_lines and $dos_new_lines >= $mac_new_lines) { } |
| 100 | T | F | elsif ($mac_new_lines > $unix_new_lines) { } |
| 407 | 100 | T | F | if ($. == 1) |
| 408 | 50 | T | F | unless ($disable_minified_file) |
| 409 | 100 | T | F | if ($file_size >= 512 and length $_ == $file_size) |
| 416 | 50 | T | F | if (/[\x{D800}-\x{DFFF}]/u) |
| 421 | 100 | T | F | if $. == 1 |
| 422 | 100 | T | F | unless /./u |
| 426 | 100 | T | F | if (defined $CheckSpelling::UnknownWordSplitter::patterns_re) |
| 431 | 100 | T | F | if ($CheckSpelling::UnknownWordSplitter::forbidden_re) |
| 439 | 100 | T | F | if ($test_line =~ s/($forbidden_re_singleton)/"=" x length($1);/eu) |
| 440 | 50 | T | F | unless $test_line eq $_ |
| 442 | 50 | T | F | unless $begin == $begin_test |
| 443 | 50 | T | F | unless $end == $end_test |
| 444 | 50 | T | F | unless $match eq $match_test |
| 448 | 100 | T | F | unless $forbidden_re_lines[$i] |
| 453 | 100 | T | F | if ($found_trigger_re) { } |
| 475 | 100 | T | F | if ($token =~ /^$CheckSpelling::UnknownWordSplitter::upper_pattern$CheckSpelling::UnknownWordSplitter::lower_pattern/u) { } |
| 50 | T | F | elsif ($token =~ /^$CheckSpelling::UnknownWordSplitter::upper_pattern/u) { } |
| 482 | 50 | T | F | $token =~ /$CheckSpelling::UnknownWordSplitter::upper_pattern$/u ? : |
| 487 | 50 | T | F | unless $match =~ /./u |
| 491 | 100 | T | F | unless ($found_token) |
| 492 | 50 | T | F | if (not $raw_line =~ /$token.*$token/u and $raw_line =~ /($token)/u) { } |
| 503 | 100 | T | F | if ($line_flagged and $CheckSpelling::UnknownWordSplitter::candidates_re) |
| 506 | 50 | T | F | if ($_ ne $previous_line_state) |
| 510 | 100 | T | F | unless $candidate_re =~ /./u and $raw_line =~ /$candidate_re/u |
| 511 | 50 | T | F | if ($_ =~ s/($candidate_re)/"=" x length($1);/eu) |
| 517 | 50 | T | F | unless $candidates_re_lines[$i] |
| 523 | 50 | T | F | unless ($disable_minified_file) |
| 528 | 100 | T | F | if ($ratio > $ratio_threshold) |
| 536 | 50 | T | F | if ($@) |
| 537 | 0 | T | F | unless $@ eq "alarm\n" |
| 545 | 100 | T | F | if ($CheckSpelling::UnknownWordSplitter::unrecognized or @candidates_re_hits or @forbidden_re_hits) |
| 547 | 100 | T | F | @candidates_re_hits ? : |
| 100 | T | F | @candidates_re_lines ? : |
| 100 | T | F | @forbidden_re_hits ? : |
| 100 | T | F | @forbidden_re_lines ? : |
| 566 | 100 | T | F | unless (%CheckSpelling::UnknownWordSplitter::dictionary) |