| File: | lib/CheckSpelling/Homoglyph.pm |
| Coverage: | 100.0% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 18 | 100 | T | F | unless open my $fh, "<:encoding(UTF-8)", $file |
| 24 | 100 | T | F | if /^#/ |
| 26 | 100 | T | F | unless /^($upper_pattern|$lower_pattern|$punctuation_pattern)(.+)$/ |
| 31 | 100 | T | F | if $ch =~ /$upper_pattern|$lower_pattern|$punctuation_pattern/ |
| 34 | 100 | T | F | if (defined $homoglyph_map{$ch}) |
| 47 | 100 | T | F | if (scalar @known_aliases == 1) { } |