| line |
true |
false |
branch |
|
58
|
2 |
0 |
if ref $_[0] eq 'HASH' |
|
68
|
1 |
1 |
if ($opt{'from'} eq 'string') { } |
|
71
|
0 |
1 |
if $opt{'ignorecase'} |
|
72
|
0 |
1 |
if $opt{'ignorexml'} |
|
78
|
0 |
1 |
unless open F, "< $_" |
|
79
|
0 |
1 |
if $opt{'encoding'} =~ /utf8/il |
|
81
|
0 |
500 |
if $opt{'ignorecase'} |
|
82
|
0 |
500 |
if $opt{'ignorexml'} |
|
89
|
0 |
2 |
if ($opt{'log'}) |
|
92
|
0 |
0 |
if $opt{'log'} > 1 |
|
98
|
0 |
2 |
if ($opt{'num'}) { } |
|
|
0 |
2 |
elsif ($opt{'alpha'}) { } |
|
101
|
0 |
0 |
if (defined $opt{'output'}) { } |
|
114
|
0 |
0 |
if (defined $opt{'output'}) { } |
|
140
|
0 |
0 |
unless my $flag = $_[1] |
|
142
|
0 |
0 |
unless s/(\w*$acento)/"$1/il or s/(\w*([zlr]|[iu]s?))$/"$1/il or s/(\w+\|\w+)$/"$1/l |
|
148
|
0 |
0 |
unless ($flag) |
|
188
|
0 |
0 |
if ($spri{lc $1} < $spri{lc $2} and $spri{lc $2} >= $spri{lc $3}) { } |
|
222
|
0 |
0 |
unless ($word =~ /,/l) |
|
226
|
0 |
0 |
unless ($res or length $word < 3) |
|
236
|
0 |
0 |
if (defined $prefix) |
|
237
|
0 |
0 |
if ($res) |
|
245
|
0 |
0 |
if ($res) { } |
|
|
0 |
0 |
elsif ($$no_accented{$word}) { } |
|
246
|
0 |
0 |
if ($res =~ /^!/l) |
|
268
|
0 |
0 |
unless open F, $file |
|
280
|
0 |
0 |
unless open F, $file |
|
292
|
0 |
0 |
unless $word =~ /\w/l |
|
294
|
0 |
0 |
if $word =~ /^(.*)s$/l |
|
|
0 |
0 |
unless ($res) |
|
295
|
0 |
0 |
unless $res |
|
296
|
0 |
0 |
if ($res =~ /^!/l) { } |
|
313
|
0 |
0 |
if ($s =~ /^(.+) $p/l) { } |
|
361
|
0 |
0 |
unless $n |