| line |
true |
false |
branch |
|
27
|
0 |
0 |
if (my $file = $obj->FILE) { }
|
|
|
0 |
0 |
elsif (my $data = $obj->DATA) { }
|
|
54
|
0 |
0 |
unless my $obj = shift()
|
|
57
|
0 |
0 |
if (utf8::is_utf8($data))
|
|
66
|
0 |
0 |
unless my $obj = shift()
|
|
70
|
0 |
0 |
if $obj->CONFIG->{'dictname'}
|
|
71
|
0 |
0 |
unless open my $fh, "<", $file
|
|
79
|
0 |
0 |
unless my $obj = shift()
|
|
84
|
0 |
0 |
if $conf->{'linefold'}
|
|
87
|
0 |
0 |
if $conf->{'printdict'}
|
|
88
|
0 |
0 |
unless (/^\s*[^#]/u)
|
|
104
|
0 |
0 |
if (not defined $_[0] or length $_[0] == 0)
|
|
116
|
0 |
0 |
if ($p->is_comment) { }
|
|
129
|
0 |
0 |
unless open my $fh, ">:encoding(utf8)", \$text
|
|
179
|
0 |
0 |
if (@_ < 2)
|
|
190
|
0 |
0 |
@_ ? :
|
|
203
|
0 |
0 |
@_ ? :
|