| line |
true |
false |
branch |
|
44
|
0 |
7 |
if ($full_path and -e $full_path)
|
|
48
|
7 |
0 |
unless (defined $file)
|
|
53
|
0 |
7 |
unless open my $fh, "<:encoding(UTF-8)", $file
|
|
70
|
2 |
43 |
if ($word =~ /^!(.+)/s) { }
|
|
76
|
1 |
1 |
if $self->_is_debug
|
|
82
|
13 |
30 |
if $self->_is_debug
|
|
91
|
71 |
90 |
if (exists $stopwords->{$word} or exists $$stopwords{lc $word})
|
|
92
|
8 |
63 |
if $self->_is_debug
|
|
102
|
11 |
27 |
if $self->_is_debug
|
|
107
|
35 |
176 |
if $self->_is_debug
|
|
109
|
6 |
205 |
if $self->no_wide_chars and /[^\x00-\xFF]/
|
|
131
|
48 |
163 |
if $is_sigil or $is_strange
|
|
136
|
55 |
156 |
unless /\w/
|
|
138
|
22 |
134 |
if $self->_is_debug
|
|
143
|
15 |
141 |
if $_ and $self->_is_debug
|
|
146
|
211 |
0 |
if defined $_
|
|
154
|
69 |
87 |
if ($self->is_stopword($word)) { }
|
|
|
2 |
85 |
elsif (index($word, '.') != -1) { }
|
|
|
1 |
84 |
elsif (index($word, '-') != -1) { }
|
|
161
|
1 |
1 |
$self->is_stopword($abbr) ? :
|
|
168
|
2 |
1 |
unless $self->is_stopword($part)
|
|
170
|
1 |
0 |
if @keep
|