| 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) |