| line |
true |
false |
branch |
|
24
|
0 |
10 |
@_ == 1 ? : |
|
31
|
2 |
8 |
unless ($ENV{'PERL_SPELLUNKER_NO_USER_DICT'}) |
|
40
|
0 |
2 |
unless defined $home |
|
41
|
0 |
2 |
unless -d $home |
|
43
|
0 |
2 |
if (-f $dictpath) |
|
52
|
4 |
20 |
if (&Scalar::Util::openhandle($filename_or_fh)) { } |
|
56
|
0 |
20 |
unless open $fh, '<:utf8', $filename_or_fh |
|
81
|
0 |
904 |
unless defined $word |
|
83
|
8 |
896 |
if length $word == 0 |
|
84
|
32 |
864 |
if length $word == 1 |
|
87
|
7 |
857 |
unless $word =~ /[A-Za-z]/ |
|
90
|
1 |
856 |
if $word =~ /\A[a-z0-9]{40}\z/ |
|
93
|
3 |
853 |
if $word =~ /^[0-9]+(xx|yy)$/ |
|
95
|
1 |
852 |
if $word =~ /^[0-9]+(th)$/ |
|
98
|
9 |
843 |
if $word =~ /\A([a-zA-Z0-9]+_)+[a-zA-Z0-9]+\z/ |
|
101
|
8 |
835 |
if $word =~ /\A\.[a-zA-Z0-9]{2,4}\z/ |
|
104
|
2 |
833 |
if $word =~ /\A[a-zA-Z0-9-]+\.[a-zA-Z0-9]{1,4}\z/ |
|
106
|
0 |
833 |
if looks_like_domain($word) |
|
107
|
44 |
789 |
if looks_like_perl_code($word) |
|
108
|
7 |
782 |
if looks_like_file_path($word) |
|
114
|
59 |
723 |
if $word =~ /\A [A-Z']+ s? \z/x |
|
117
|
559 |
164 |
if $$self{'stopwords'}{$word} |
|
122
|
80 |
84 |
if ($word =~ /\A[A-Z][a-z]+\z/) |
|
127
|
1 |
83 |
if ($word =~ /\A [A-Z][a-z]+ (?:[A-Z][a-z]+)+ \z/x) |
|
132
|
16 |
67 |
if $word =~ /\A
(.*?)
(?:
's # Dan's
| s' # cookies'
| 've # You've
| 're # We're
| 'll # You'll
| n't # doesn't
| 'd # You'd
| -ish # -ish
)
\z/x and $self->check_word($1) |
|
148
|
1 |
66 |
if $word =~ /\Anon-(.*)\z/ and $self->check_word($1) |
|
149
|
1 |
65 |
if $word =~ /\Are-(.*)\z/ and $self->check_word($1) |
|
152
|
1 |
64 |
if $word =~ m[\A (.*) \z] and $self->check_word($1) |
|
155
|
1 |
63 |
if $word =~ /\A
:
(?:[A-Z][a-z]+)+
\z/x |
|
161
|
2 |
61 |
if $word =~ /\A#[a-z0-9-]+\z/ |
|
164
|
26 |
35 |
if $word =~ /\A(.*?)[^A-Za-z]+\z/ and $self->check_word($1) |
|
166
|
9 |
26 |
if $word =~ /\A[^A-Za-z]+(.*?)\z/ and $self->check_word($1) |
|
168
|
11 |
15 |
if ($word =~ /[^A-Za-z]+/) |
|
172
|
31 |
0 |
if ($self->check_word($_)) |
|
176
|
11 |
0 |
if @words == $ok |
|
190
|
14 |
783 |
if $word =~ m[\A
(?:
~ [a-zA-Z0-9_.-]* / (?: [a-z0-9A-Z_.-]+ / )* (?: [a-z0-9A-Z_.-]+ )?
|
/ (?: [a-z0-9A-Z_.-]+ / )* (?: [a-z0-9A-Z_.]+ )?
|
(?: [a-z0-9A-Z_.-]+ / )+ (?: [a-z0-9A-Z_.]+ )?
)
\z]x |
|
204
|
0 |
833 |
if $word =~ /\A
([a-zA-Z0-9]([a-zA-Z0-9\-]{0,61}[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}
\z/x |
|
212
|
0 |
208 |
unless defined $line |
|
221
|
4 |
792 |
if (/\A'(.*)'\z/) { } |
|
|
54 |
738 |
elsif (/\A(.*)\.\z/) { } |
|
|
14 |
724 |
elsif (/\./) { } |
|
225
|
0 |
54 |
unless $self->check_word($word) |
|
228
|
0 |
14 |
unless $self->check_word($_) |
|
232
|
1 |
723 |
if /\A
--
(?: [a-z]+ - )+
[a-z]+
\z/x |
|
238
|
6 |
717 |
unless $self->check_word($_) |
|
251
|
12 |
836 |
if $_[0] =~ /\A
[\+\$]?
(?: $PERL_NAME :: )+
$PERL_NAME
$PERL_NAME?
\z/x |
|
259
|
6 |
830 |
if $_[0] =~ /\A
$PERL_NAME
\(
\s*
( \$ $PERL_NAME \s* , \s* )*
( \$ $PERL_NAME )?
\s*
\)
\z/x |
|
271
|
2 |
828 |
if $_[0] =~ /\A
[0-9]+\.[0-9]+\.x
\z/x |
|
276
|
1 |
827 |
if $_[0] =~ /\A
U \+ [0-9a-fA-F]{4,}
\z/x |
|
282
|
2 |
825 |
if $_[0] =~ /\A
(
\\ x [0-9a-fA-F][0-9a-fA-F] -?
)+
\z/x |
|
293
|
19 |
806 |
if $_[0] =~ /\A
\\?
[\*\@\$\%]
$PERL_NAME
\z/x |
|
303
|
15 |
791 |
if $_[0] =~ /\A
(?:
\$ $PERL_NAME
| ( $PERL_NAME :: )* $PERL_NAME
)
->
$PERL_NAME
(?:\([^\)]*\))?
\z/x |
|
314
|
1 |
790 |
if $_[0] =~ /\A
\$ $PERL_NAME \{ $PERL_NAME \}
\z/x |
|
319
|
1 |
789 |
if $_[0] =~ /\A
\$ $PERL_NAME -> \{ $PERL_NAME \}
\z/x |
|
324
|
0 |
789 |
if $_[0] eq '\\1' or $_[0] eq '\\1' |