| line |
true |
false |
branch |
|
102
|
5 |
0 |
if (@_ > 1 and not @_ % 2) { } |
|
|
0 |
0 |
elsif (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (@_ == 1) { } |
|
109
|
0 |
5 |
if $DEBUG > 5 |
|
113
|
0 |
5 |
unless $self |
|
115
|
5 |
0 |
exists $options{'file'} ? : |
|
116
|
0 |
5 |
exists $$self{'encoding'} ? : |
|
|
0 |
5 |
exists $options{'encoding'} ? : |
|
117
|
0 |
0 |
$options{'reload'} ? : |
|
|
0 |
0 |
$$self{'reload'} ? : |
|
|
0 |
5 |
exists $$self{'reload'} ? : |
|
|
0 |
5 |
exists $options{'reload'} ? : |
|
122
|
0 |
5 |
unless defined $$self{'file'} |
|
123
|
0 |
5 |
unless -e $$self{'file'} |
|
124
|
0 |
5 |
unless $$self{'encoding'} |
|
147
|
23 |
0 |
unless $$self{'dont_reload'} |
|
153
|
0 |
46 |
unless exists $$rules{$language} |
|
156
|
0 |
23 |
unless @langs |
|
160
|
0 |
23 |
if ($context) { } |
|
165
|
0 |
0 |
unless $keys or ref $keys ne 'HASH' |
|
167
|
0 |
0 |
unless $keys |
|
178
|
32 |
14 |
unless $keys |
|
187
|
0 |
23 |
if $DEBUG |
|
205
|
0 |
28 |
unless -f $file || -l $file and -r $file |
|
209
|
23 |
5 |
if $mtime == $$self{'mtime'} |
|
222
|
0 |
5 |
unless open $fh, "<:encoding($encoding)", "$file" |
|
229
|
145 |
210 |
if not defined $_ or length $_ == 0 or /^#/ |
|
237
|
0 |
210 |
unless $1 |
|
242
|
50 |
160 |
if ($lhs eq 'key') { } |
|
|
50 |
110 |
elsif ($lhs eq 'language' and not defined $language) { } |
|
|
30 |
80 |
elsif ($lhs eq 'expression' and not defined $expression) { } |
|
|
30 |
50 |
elsif ($lhs eq 'priority' and not defined $priority) { } |
|
|
50 |
0 |
elsif ($lhs eq 'translation' and not defined $translation) { } |
|
|
0 |
0 |
elsif ($lhs eq 'context' and not defined $context) { } |
|
243
|
0 |
50 |
if $in_group |
|
246
|
0 |
50 |
unless length $key |
|
252
|
0 |
50 |
unless length $language |
|
253
|
0 |
50 |
unless I18N::LangTags::is_language_tag($language) |
|
262
|
0 |
50 |
unless length $translation |
|
271
|
110 |
50 |
unless defined $language and $translation |
|
272
|
20 |
30 |
unless $expression |
|
273
|
20 |
30 |
unless $priority |
|
274
|
50 |
0 |
unless $context |
|
279
|
0 |
50 |
if ($context) { } |
|
281
|
0 |
0 |
unless ($entries) |
|
282
|
0 |
0 |
unless $entries |
|
287
|
30 |
20 |
unless ($entries) |
|
288
|
30 |
0 |
unless $entries |
|
305
|
0 |
5 |
if $DEBUG > 7 |
|
315
|
0 |
0 |
if ($$s_ref =~ m[/$]) |
|
321
|
0 |
0 |
if (/\.\s*\\$/) { } |
|
327
|
0 |
0 |
unless $$s_ref =~ m[/$] |