| line |
true |
false |
branch |
|
45
|
1 |
3 |
unless (defined $caseSensitive) |
|
53
|
3 |
1 |
if (defined $lemmatised_corpus_filename) |
|
57
|
3 |
1 |
if (defined $lemmatised_corpus_filename) |
|
61
|
3 |
1 |
if (defined $lemmatised_corpus_filename) |
|
65
|
3 |
1 |
if (defined $lemmatised_corpus_filename) |
|
88
|
1 |
0 |
unless (defined $caseSensitive) |
|
96
|
0 |
1 |
if (defined $lemmatised_corpus_filename) |
|
100
|
0 |
1 |
if (defined $lemmatised_corpus_filename) |
|
104
|
0 |
1 |
if (defined $lemmatised_corpus_filename) |
|
108
|
0 |
1 |
if (defined $lemmatised_corpus_filename) |
|
126
|
0 |
5 |
unless open DESC_TERMLIST, $termlist_name |
|
136
|
35 |
0 |
unless ($line =~ /^\s*\#/o or $line =~ m[^\s*//]o or $line =~ /^\s*$/o) |
|
139
|
35 |
0 |
unless ($tab[0] =~ /^\s*$/) |
|
146
|
35 |
0 |
if (not exists $$ref_termlistIdx{$tab[0]}) { } |
|
168
|
35 |
0 |
if (defined $ref_regex_lemmaWordtermlist) |
|
169
|
0 |
35 |
if (defined $ref_termlist->[$term_counter][3]) { } |
|
179
|
35 |
0 |
if (defined $ref_regex_lemmaWordtermlist) |
|
185
|
5 |
0 |
if (defined $ref_regex_lemmaWordtermlist) |
|
201
|
0 |
8 |
unless open CORPUS, $corpus_filename |
|
237
|
226 |
355 |
if (defined $caseSensitive and $caseSensitive == 0 || length $tab_words_lc[$i] <= $caseSensitive) { } |
|
242
|
520 |
61 |
if ($word ne '') |
|
243
|
388 |
132 |
unless (exists $ref_corpus_index->{$word}) |
|
290
|
0 |
0 |
if ($word ne '' and length $word > 2 || scalar @tab_termlex == 1 and exists $ref_corpus_index->{$word}) |
|
293
|
0 |
0 |
unless (exists $ref_tabh_idtrm_select->{$counter}) |
|
322
|
8 |
0 |
unless (defined $termField) |
|
332
|
56 |
0 |
if (defined $ref_termlist->[$counter][$termField]) { } |
|
334
|
14 |
42 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField] <= $caseSensitive) { } |
|
366
|
102 |
0 |
if ($word ne '') |
|
376
|
55 |
1 |
if ($i == scalar @tab_termlex) |
|
379
|
55 |
47 |
unless (exists $ref_tabh_idtrm_select->{$counter}) |
|
410
|
7 |
0 |
unless (defined $termField) |
|
417
|
0 |
7 |
unless open TAGGEDCORPUS, ">>$offset_tagged_corpus_name" |
|
424
|
48 |
0 |
if (defined $ref_termlist->[$counter][$termField]) |
|
431
|
51 |
25 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\{\}\(\)\[\]\+]($term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]> or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\{\}\(\)\[\]\+]($term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>i) |
|
437
|
4 |
72 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<^($term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>i or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<^($term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>i) |
|
443
|
0 |
76 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]($term_regex)$> or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]($term_regex)$>i) |
|
449
|
0 |
76 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ /^($term_regex)$/i or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ /^($term_regex)$/i) |
|
487
|
0 |
0 |
unless (defined $termField) |
|
500
|
0 |
0 |
if (defined $ref_termlist->[$counter][$termField]) |
|
509
|
0 |
0 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\{\}\(\)\[\]\+](?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\{\}\(\)\[\]\+](?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>is) |
|
515
|
0 |
0 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<^(?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<^(?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>is) |
|
521
|
0 |
0 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+](?$term_regex)$>s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+](?$term_regex)$>is) |
|
527
|
0 |
0 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ /^(?$term_regex)$/s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ /^(?$term_regex)$/is) |
|
559
|
0 |
1 |
unless open TAGGEDCORPUS, ">$offset_tagged_corpus_name" |
|
564
|
1 |
0 |
unless (defined $termField) |
|
577
|
7 |
0 |
if (defined $ref_termlist->[$counter][$termField]) |
|
588
|
7 |
5 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<(?[,.?!:;/ \n\-/\*'\#\{\}\(\)\[\]\+])(?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<(?[,.?!:;/ \n\-/\*'\#\{\}\(\)\[\]\+])(?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>is) |
|
595
|
1 |
11 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<^(?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<^(?$term_regex)[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+]>is) |
|
602
|
0 |
12 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ m<(?[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+])(?$term_regex)$>s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ m<(?[,.?!:;/ \n\-/\*'\#\(\)\[\]\{\}\+])(?$term_regex)$>is) |
|
609
|
0 |
12 |
if (defined $caseSensitive and $caseSensitive == 0 || length $ref_termlist->[$counter][$termField2] <= $caseSensitive and $line =~ /^(?$term_regex)$/s or !defined($caseSensitive) || $caseSensitive < 0 || length $ref_termlist->[$counter][$termField2] > $caseSensitive and $line =~ /^(?$term_regex)$/is) |
|
643
|
0 |
0 |
if (ref $ref_tab_results eq 'ARRAY') { } |
|
649
|
0 |
0 |
if (ref $ref_tab_results eq 'HASH') |
|
661
|
0 |
0 |
if (not exists $ref_tab_results->{$tmp_key}) { } |
|
667
|
0 |
0 |
if (defined $tab_tmp[3]) { } |