| line |
true |
false |
branch |
|
127
|
0 |
1 |
if ($file) { } |
|
128
|
0 |
0 |
unless open C, $file |
|
131
|
0 |
0 |
if /^\s*$/l |
|
137
|
0 |
1 |
unless open D, $f |
|
140
|
0 |
12854 |
if /^\s*$/l |
|
151
|
0 |
0 |
unless return exists $$self{'dic'}{$word} or exists $$self{'cdic'}{$word} |
|
180
|
1 |
0 |
if (exists $$self{'dic'}{$word}) { } |
|
|
0 |
0 |
elsif (exists $$self{'cdic'}{$word}) { } |
|
|
0 |
0 |
elsif (exists $$self{'sdic'}{$word}) { } |
|
226
|
0 |
0 |
if ref $_[0] eq 'HASH' |
|
228
|
0 |
0 |
unless ref $_[0] |
|
235
|
0 |
0 |
unless ref $f eq 'CODE' |
|
237
|
0 |
0 |
if ($opt{'t'} eq 'double') |
|
238
|
0 |
0 |
unless ref $f1 eq 'CODE' |
|
243
|
0 |
0 |
if (defined $opt{'in'}) { } |
|
|
0 |
0 |
elsif (defined $instring) { } |
|
244
|
0 |
0 |
unless open $F1, "$opt{'in'}" |
|
251
|
0 |
0 |
if (defined $opt{'out'}) { } |
|
|
0 |
0 |
elsif (defined $instring) { } |
|
252
|
0 |
0 |
unless open F, ">$opt{'out'}" |
|
261
|
0 |
0 |
if ($opt{'t'} eq 'double') { } |
|
270
|
0 |
0 |
if (defined $aux3) { } |
|
283
|
0 |
0 |
if $opt{'in'} |
|
284
|
0 |
0 |
if (defined $opt{'out'}) { } |
|
|
0 |
0 |
elsif (defined $instring) { } |
|
302
|
0 |
0 |
unless ref $f eq 'CODE' |
|
324
|
0 |
0 |
if (ref $text eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $text eq 'ARRAY') { } |
|
335
|
0 |
0 |
if ($opt{'em'}) |
|
338
|
0 |
0 |
if ($opt{'prof'}) |
|
350
|
0 |
0 |
if (/^(\w+)/l and $vazia{lc $1}) { } |
|
359
|
0 |
0 |
if (/^(\w+)/l and $vazia{lc $1}) |
|
367
|
0 |
0 |
if ($opt{'oco'}) { } |
|
372
|
0 |
0 |
if ($opt{'comp'}) { } |
|
380
|
0 |
0 |
if ($opt{'prof'}) |
|
386
|
0 |
0 |
if ($opt{'em'}) |
|
413
|
0 |
0 |
if ($opt{'em'}) |
|
415
|
0 |
0 |
if ($opt{'prof'}) |
|
427
|
0 |
0 |
if (/^(\w+)/l and $vazia{lc $1}) { } |
|
464
|
0 |
0 |
if ($opt{'em'}) |
|
467
|
0 |
0 |
if ($opt{'prof'}) |
|
479
|
0 |
0 |
if (/^(\w+)/l and $vazia{lc $1}) { } |
|
489
|
0 |
0 |
if (/^(\w+)/l and $vazia{lc $1}) |
|
496
|
0 |
0 |
if ($opt{'oco'}) { } |
|
502
|
0 |
0 |
if ($opt{'comp'}) { } |
|
507
|
0 |
0 |
if ($opt{'prof'}) |
|
510
|
0 |
0 |
if ($opt{'em'}) |
|
523
|
0 |
0 |
unless $a =~ /(\w+)(.*)$/l |
|
539
|
0 |
0 |
if ($s =~ /^(.+) $p/l) { } |