| line |
true |
false |
branch |
|
27
|
17 |
4 |
if (my $file = $obj->FILE) { }
|
|
|
4 |
0 |
elsif (my $data = $obj->DATA) { }
|
|
54
|
0 |
4 |
unless my $obj = shift()
|
|
56
|
2 |
2 |
if (ref $data eq 'ARRAY') { }
|
|
58
|
2 |
0 |
if @$data
|
|
61
|
2 |
0 |
if (utf8::is_utf8($data))
|
|
71
|
0 |
17 |
unless my $obj = shift()
|
|
75
|
0 |
17 |
if $obj->CONFIG->{'dictname'}
|
|
76
|
0 |
17 |
unless open my $fh, "<", $file
|
|
84
|
0 |
19 |
unless my $obj = shift()
|
|
89
|
0 |
19 |
if $conf->{'linefold'}
|
|
92
|
0 |
194 |
if $conf->{'printdict'}
|
|
93
|
33 |
161 |
unless (/^\s*[^#]/u)
|
|
98
|
51 |
110 |
if ((@param = split(m[\h+//\h+]u, $_, 2)) == 2) { }
|
|
111
|
0 |
2 |
unless my $obj = shift()
|
|
114
|
0 |
2 |
if $conf->{'linefold'}
|
|
125
|
0 |
0 |
if (not defined $_[0] or length $_[0] == 0)
|
|
137
|
0 |
0 |
if ($p->is_comment) { }
|
|
150
|
0 |
0 |
unless open my $fh, ">:encoding(utf8)", \$text
|
|
200
|
0 |
164 |
if (@_ < 2)
|
|
211
|
164 |
224 |
if (@_) { }
|
|
224
|
33 |
0 |
if (@_) { }
|