line |
true |
false |
branch |
22
|
0 |
0 |
if (ref $_[0] eq 'HASH') |
24
|
0 |
0 |
if ($opt{'type'} eq 'default') |
25
|
0 |
0 |
if ($opt{'type'} eq 'term') |
29
|
0 |
0 |
unless open IN, "<$file" |
32
|
0 |
0 |
if (/^%enc(oding)? ([a-zA-Z0-9-]+)/l) { } |
|
0 |
0 |
elsif ($opt{'type'} eq 'term') { } |
|
0 |
0 |
elsif ($opt{'type'} eq 'default' and /(.*?)\s*\{\s*(.*?)\s*\}/l) { } |
36
|
0 |
0 |
if not $opt{'lang'} and /(\w+)/l |
41
|
0 |
0 |
if (/(\w+)\s+(.*)/ls) |
69
|
0 |
0 |
if -d '/usr/share/stardict/dic/' |
70
|
0 |
0 |
if -d '/usr/local/share/stardict/dic/' |
71
|
0 |
0 |
unless (-d "$dirpath$dic") |
72
|
0 |
0 |
unless mkdir $dirpath . $dic, 493 |
76
|
0 |
0 |
unless open DICT, ">$dic.dict" |
78
|
0 |
0 |
unless open IDX, ">$dic.idx" |
79
|
0 |
0 |
unless open IFO, ">$dic.ifo" |
87
|
0 |
0 |
if (utf8::is_utf8($chave)) { } |
98
|
0 |
0 |
if (ref $hash->{$chave} eq 'ARRAY') { } |
|
0 |
0 |
elsif (ref $hash->{$chave}) { } |
138
|
0 |
0 |
unless utf8::is_utf8($string) |