| line |
true |
false |
branch |
|
95
|
0 |
9 |
ref $class ? : |
|
98
|
1 |
8 |
$args{'lang'} ? : |
|
101
|
9 |
0 |
if ($args{'path'}) { } |
|
106
|
0 |
0 |
if ($args{'dir'}) { } |
|
107
|
0 |
0 |
unless -d $args{'dir'} |
|
115
|
0 |
0 |
if (/(?:SUBTLEX\-)?\Q$lang\E/imsx) |
|
121
|
0 |
9 |
if nocontent($$self{'path'}) |
|
130
|
0 |
9 |
if nocontent($fields{$lang}) |
|
132
|
9 |
0 |
$args{'fieldpath'} ? : |
|
136
|
0 |
9 |
unless open my $fh, '<', $fieldpath |
|
138
|
9 |
108 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
141
|
108 |
0 |
hascontent($dat[$fields{$lang}]) ? : |
|
144
|
0 |
9 |
unless close $fh |
|
162
|
0 |
2 |
if nocontent($args{'string'}) |
|
166
|
0 |
2 |
unless open my $fh, '<', $$self{'path'} |
|
168
|
2 |
33 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
169
|
0 |
33 |
unless /^([^\Q$$self{'delim'}\E]+)/msx |
|
171
|
1 |
32 |
if ($str eq $1) |
|
176
|
0 |
2 |
unless close $fh |
|
294
|
0 |
8 |
unless $args{'strings'} |
|
297
|
8 |
0 |
ref $args{'strings'} ? : |
|
301
|
4 |
4 |
hascontent($args{'scale'}) ? : |
|
307
|
0 |
8 |
unless open my $fh, '<', $$self{'path'} |
|
309
|
8 |
232 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
312
|
21 |
211 |
if (hascontent($frq{lc $line[0]})) |
|
316
|
0 |
8 |
unless close $fh |
|
332
|
0 |
1 |
unless $args{'string'} |
|
335
|
0 |
1 |
unless open my $fh, '<', $$self{'path'} |
|
337
|
1 |
2 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
339
|
1 |
1 |
if ($word eq $1) |
|
346
|
0 |
1 |
unless close $fh |
|
411
|
0 |
14 |
unless $args{'string'} |
|
416
|
0 |
14 |
unless open my $fh, '<', $$self{'path'} |
|
418
|
14 |
406 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
419
|
0 |
406 |
unless /^([^\Q$$self{'delim'}\E]+)/msx |
|
421
|
39 |
367 |
if ($ortho->are_orthons($word, $test)) |
|
426
|
0 |
14 |
unless close $fh |
|
427
|
1 |
13 |
wantarray ? : |
|
440
|
0 |
1 |
unless $args{'string'} |
|
445
|
1 |
0 |
scalar @{$frq_aref;} ? : |
|
459
|
0 |
1 |
unless $args{'string'} |
|
464
|
1 |
0 |
scalar @{$frq_aref;} ? : |
|
478
|
0 |
0 |
unless $args{'string'} |
|
483
|
0 |
0 |
scalar @{$frq_aref;} ? : |
|
497
|
0 |
1 |
unless $args{'string'} |
|
502
|
1 |
0 |
scalar @{$frq_aref;} ? : |
|
518
|
0 |
2 |
unless $args{'string'} |
|
553
|
1 |
2 |
if (hascontent($args{'regex'})) |
|
556
|
1 |
2 |
if (hascontent($args{'cv_pattern'})) |
|
560
|
2 |
2 |
$_ eq 'C' ? : |
|
566
|
0 |
3 |
unless open my $fh, '<', $$self{'path'} |
|
569
|
3 |
87 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
572
|
54 |
33 |
unless _in_range(length $line[0], @{$args{'length'};}) |
|
574
|
1 |
6 |
unless $line[0] =~ /$patterns{$_}/ |
|
577
|
32 |
96 |
if (ref $args{$_}) |
|
580
|
20 |
12 |
unless _in_range(_nummify($line[$$self{'IDX'}{$_}]), @{$args{$_};}) |
|
583
|
0 |
12 |
if (ref $args{'pos'}) |
|
586
|
0 |
0 |
if none sub {
$_ eq $line[$$self{'IDX'}{'pos'}];
}
, @{$args{'pos'};} |
|
590
|
2 |
10 |
unless _in_range(scalar $self->on_count('string', $line[0]), @{$args{'onc'};}) |
|
593
|
0 |
3 |
unless close $fh |
|
612
|
0 |
0 |
unless open my $fh, '<', $$self{'path'} |
|
614
|
0 |
0 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
615
|
0 |
0 |
unless /^([^\Q$$self{'delim'}\E]+)/msx |
|
618
|
0 |
0 |
unless close $fh |
|
637
|
0 |
2 |
if $Lingua::Norms::SUBTLEX::EVAL_ERROR |
|
644
|
1 |
1 |
wantarray ? : |
|
661
|
0 |
0 |
unless open my $fh, '<', $$self{'path'} |
|
663
|
0 |
0 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
666
|
0 |
0 |
unless close $fh |
|
678
|
0 |
3 |
unless open my $fh, '<', $path |
|
680
|
3 |
87 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
681
|
0 |
87 |
unless /^([^\Q$delim\E]+)/msx |
|
683
|
33 |
54 |
if ($ortho->are_orthons($word, $test)) |
|
689
|
0 |
3 |
unless close $fh |
|
699
|
0 |
2 |
unless open my $fh, '<', $path |
|
702
|
2 |
84 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
703
|
0 |
84 |
unless /^([^\Q$delim\E]+)/msx |
|
705
|
2 |
82 |
if $word eq $test |
|
708
|
0 |
2 |
unless close $fh |
|
715
|
0 |
10 |
if nocontent($str) |
|
720
|
0 |
10 |
unless open my $fh, '<', $$self{'path'} |
|
722
|
10 |
125 |
if $Lingua::Norms::SUBTLEX::INPUT_LINE_NUMBER == 1 |
|
724
|
10 |
115 |
if ($str eq $1) |
|
731
|
0 |
10 |
unless close $fh |
|
738
|
48 |
83 |
if (hascontent($min) and $n < $min) |
|
741
|
28 |
55 |
if ($res and (hascontent($max) and $n > $max)) |