| line |
true |
false |
branch |
|
44
|
0 |
6 |
if ($full_path and -e $full_path) |
|
48
|
6 |
0 |
unless (defined $file) |
|
53
|
0 |
6 |
unless open my $fh, "<:encoding(UTF-8)", $file |
|
70
|
2 |
23 |
if ($word =~ /^!(.+)/s) { } |
|
76
|
1 |
1 |
if $self->_is_debug |
|
82
|
17 |
6 |
if $self->_is_debug |
|
91
|
21 |
35 |
if (exists $stopwords->{$word} or exists $$stopwords{lc $word}) |
|
92
|
18 |
3 |
if $self->_is_debug |
|
102
|
15 |
3 |
if $self->_is_debug |
|
107
|
63 |
8 |
if $self->_is_debug |
|
109
|
1 |
70 |
if $self->no_wide_chars and /[^\x00-\xFF]/ |
|
131
|
18 |
53 |
if $is_sigil or $is_strange |
|
136
|
20 |
51 |
unless /\w/ |
|
138
|
43 |
8 |
if $self->_is_debug |
|
143
|
26 |
25 |
if $_ and $self->_is_debug |
|
146
|
71 |
0 |
if defined $_ |
|
154
|
19 |
32 |
if ($self->is_stopword($word)) { } |
|
|
2 |
30 |
elsif (index($word, '.') >= 0) { } |
|
|
1 |
29 |
elsif (index($word, '-') >= 0) { } |
|
161
|
1 |
1 |
$self->is_stopword($abbr) ? : |
|
168
|
2 |
1 |
unless $self->is_stopword($part) |
|
170
|
1 |
0 |
if @keep |