| line | % | coverage | branch |
|---|
| 16 | 100 | T | F | unless $record =~ /\b$field:\s*(\d+)/ |
| 22 | 50 | T | F | unless $record =~ /\b$field: \[([^\]]+)\]/ |
| 29 | 50 | T | F | unless $next and $next < $value |
| 38 | 100 | T | F | if (defined $CheckSpelling::SpellingCollator::expected{$item}) { } |
| 100 | T | F | elsif ($item =~ /^([A-Z])(.*)/) { } |
| 40 | 100 | T | F | if $value < $next |
| 43 | 100 | T | F | if (defined $CheckSpelling::SpellingCollator::expected{$item}) { } |
| 48 | 100 | T | F | if (defined $CheckSpelling::SpellingCollator::expected{$item}) |
| 54 | 100 | T | F | unless defined $next |
| 61 | 100 | T | F | if expect_item($word, 1) |
| 63 | 50 | T | F | if expect_item($key, 2) |
| 64 | 100 | T | F | if ($key =~ /.s$/) { } |
| 100 | T | F | elsif ($key =~ /^(.+[^aeiou])ed$/) { } |
| 100 | T | F | elsif ($key =~ /^(.+)'[ds]$/) { } |
| 65 | 100 | T | F | if ($key =~ /ies$/) { } |
| 77 | 50 | T | F | if expect_item($key, 3) |
| 83 | 100 | T | F | if ($warning =~ /\(([-\w]+)\)$/) |
| 86 | 100 | T | F | if $CheckSpelling::SpellingCollator::ignored_event_map{$code} |
| 93 | 50 | T | F | if should_skip_warning($warning) |
| 94 | 100 | T | F | if skip_item($item) |
| 96 | 100 | T | F | if (defined $seen_count) |
| 97 | 100 | T | F | if (not defined $unknown_word_limit or $seen_count++ < $unknown_word_limit) { } |
| 112 | 50 | T | F | if $CheckSpelling::SpellingCollator::disable_word_collating |
| 114 | 100 | T | F | if ($key =~ /.s$/) { } |
| 100 | T | F | elsif ($key =~ /.[^aeiou]ed$/) { } |
| 115 | 100 | T | F | if ($key =~ /ies$/) { } |
| 129 | 100 | T | F | if ($CheckSpelling::SpellingCollator::disable_word_collating) { } |
| 146 | 50 | T | F | if (open EXPECT, "<:utf8", $expect) |
| 163 | 100 | T | F | unless defined $CheckSpelling::SpellingCollator::letter_map{$char}{$key} |
| 165 | 100 | T | F | if defined $word_map{$word} |
| 167 | 50 | T | F | if $words > 2 |
| 168 | 100 | T | F | if ($word eq $key) |
| 169 | 50 | T | F | if $words > 1 |
| 178 | 100 | T | F | if $CheckSpelling::SpellingCollator::disable_word_collating |
| 184 | 100 | T | F | if $key eq $plural_key |
| 185 | 100 | T | F | unless defined $CheckSpelling::SpellingCollator::letter_map{$char}{$key} |
| 200 | 100 | T | F | if ($warning =~ /\(([-\w]+)\)$/) |
| 202 | 50 | T | F | if defined $CheckSpelling::SpellingCollator::ignored_event_map{$code} |
| 216 | 100 | T | F | unless defined $ENV{$path} |
| 218 | 50 | T | F | unless open ITEMS, "<:utf8", $1 |
| 224 | 100 | T | F | if ($pattern =~ /^#/) |
| 225 | 50 | T | F | if ($pattern =~ /^# /) { } |
| 233 | 50 | T | F | unless ($pattern =~ /./) |
| 246 | 100 | T | F | unless @{$totals;} |
| 247 | 50 | T | F | unless open my $fh, ">:utf8", $path |
| 250 | 50 | T | F | if ($file_counts) { } |
| 252 | 0 | T | F | unless $totals->[$b] <=> $totals->[$a] |
| 261 | 50 | T | F | unless $totals->[$i] > 0 |
| 264 | 50 | T | F | if ($rule_with_context =~ /^(.*\n)([^\n]+)$/s) { } |
| 269 | 50 | T | F | $file_counts ? : |
| 289 | 100 | T | F | if ($ignored_events) |
| 311 | 50 | T | F | if ($timing_report) |
| 330 | 50 | T | F | unless $directory =~ /^(.*)$/ |
| 332 | 100 | T | F | unless (-e $directory) |
| 336 | 100 | T | F | unless (-d $directory) |
| 342 | 100 | T | F | unless open NAME, "<:utf8", "$directory/name" |
| 351 | 50 | T | F | if ($timing_report) |
| 355 | 100 | T | F | if (-e "$directory/skipped") |
| 363 | 50 | T | F | if $timing_report |
| 368 | 100 | T | F | unless (-s "$directory/stats") |
| 370 | 50 | T | F | if $timing_report |
| 374 | 100 | T | F | if ($file eq $file_list) |
| 395 | 50 | T | F | if (@candidate_totals) |
| 398 | 0 | T | F | if (@candidate_list) |
| 401 | 0 | T | F | if ($hits) |
| 403 | 0 | T | F | if ($candidate_file_counts[$i]++ < $candidate_example_limit) |
| 414 | 100 | T | F | if (@forbidden_totals) |
| 417 | 50 | T | F | if (@forbidden_list) |
| 420 | 50 | T | F | if ($hits) |
| 429 | 50 | T | F | if $timing_report |
| 431 | 50 | T | F | if ($unknown > $unique) |
| 435 | 0 | T | F | unless ($disable_noisy_file) |
| 436 | 0 | T | F | if ($file eq $file_list) { } |
| 446 | 100 | T | F | unless (-s "$directory/unknown") |
| 453 | 100 | T | F | unless $token =~ /./ |
| 455 | 100 | T | F | unless defined $CheckSpelling::SpellingCollator::letter_map{$char} |
| 457 | 100 | T | F | if defined $CheckSpelling::SpellingCollator::letter_map{$char}{$key} |
| 465 | 50 | T | F | if $timing_report |
| 484 | 50 | T | F | if ($context =~ /^(.*?)$(.*)/ms) |
| 486 | 50 | T | F | if $details |
| 488 | 50 | T | F | unless $context |
| 498 | 100 | T | F | if (defined $ENV{'expect'}) |
| 508 | 100 | T | F | if (-s $early_warnings) |
| 513 | 50 | T | F | if should_skip_warning($warning) |
| 522 | 100 | T | F | unless -s "$directory/warnings" |
| 523 | 50 | T | F | unless open NAME, "<:utf8", "$directory/name" |
| 528 | 100 | T | F | if (not $is_file_list) { } |
| 531 | 100 | T | F | if ($warning =~ /:(\d+):(\d+ \.\.\. \d+): `(.*)`/) { } |
| 535 | 100 | T | F | if log_skip_item($item, $file, $warning, $unknown_word_limit) |
| 537 | 50 | T | F | if ($warning =~ /\`(.*?)\` in line\. \(token-is-substring\)/) |
| 538 | 0 | T | F | if skip_item($1) |
| 542 | 50 | T | F | if should_skip_warning($warning) |
| 548 | 50 | T | F | unless $warning =~ s/^:(\d+)/:1/ |
| 550 | 100 | T | F | if ($warning =~ /:(\d+ \.\.\. \d+): `(.*)`/) |
| 554 | 50 | T | F | if skip_item($item) |
| 555 | 50 | T | F | if (defined $unknown_file_word_limit) |
| 556 | 100 | T | F | if ++$unknown_file_word_count{$item} > $unknown_file_word_limit |
| 559 | 100 | T | F | if should_skip_warning($warning) |
| 569 | 50 | T | F | if should_skip_warning($warning) |
| 573 | 100 | T | F | if (defined $unknown_word_limit) |
| 576 | 0 | T | F | unless $warning_count >= $unknown_word_limit |
| 579 | 0 | T | F | if should_skip_warning($warning) |
| 586 | 100 | T | F | if (%counters) |
| 602 | 100 | T | F | if (scalar @words > 1) { } |
| 603 | 50 | T | F | unless length $a <=> length $b |