Branch Coverage

blib/lib/Locale/PO.pm
Criterion Covered Total %
branch 178 244 72.9


line true false branch
15 1 1043 if defined $options{'-fuzzy_msgid'}
16 1 1043 if defined $options{'-fuzzy_msgid_plural'}
18 4 1040 if defined $options{'-msgid'}
19 2 1042 if defined $options{'-msgid_plural'}
21 2 1042 if defined $options{'-msgstr'}
22 2 1042 if defined $options{'-msgstr_n'}
24 0 1044 if defined $options{'-msgctxt'}
25 0 1044 if defined $options{'-fuzzy_msgctxt'}
27 1 1043 if defined $options{'-comment'}
28 1 1043 if defined $options{'-fuzzy'}
29 0 1044 if defined $options{'-automatic'}
31 0 1044 if defined $options{'-reference'}
33 0 1044 if defined $options{'-c-format'}
34 0 1044 if defined $options{'-c_format'}
35 0 1044 if defined $options{'-no-c-format'}
36 0 1044 if defined $options{'-no_c_format'}
37 1039 5 if defined $options{'-loaded_line_number'}
44 1 1050 @_ ? :
49 9 1058 @_ ? :
55 2 1052 @_ ? :
61 4 1053 @_ ? :
66 1044 1051 @_ ? :
72 7 1058 @_ ? :
78 1035 2090 @_ ? :
83 8 1049 if (@_)
87 0 8 unless ref $hashref eq 'HASH'
92 0 8 if grep {/\D/;} keys %$hashref
104 20 1092 @_ ? :
109 0 1049 @_ ? :
114 1026 3100 @_ ? :
119 9 2099 @_ ? :
125 1 0 if (@_)
127 1 0 $value ? :
147 1044 1100 @_ ? :
153 0 0 if (@_) { }
155 0 0 if (not defined $value or $value eq '') { }
0 0 elsif ($value) { }
172 0 0 if $self->has_flag("$flag_name")
173 0 0 if $self->has_flag("no-$flag_name")
180 25 0 unless ($self->has_flag($flag_name))
190 0 0 unless $flag eq $flag_name
199 1 6 if $flag eq $flag_name
206 1039 2 @_ ? :
215 188 1943 if (defined $dequoted and $dequoted =~ /\n/) { }
220 28 160 if $#lines != 0
224 3 185 if $lastline ne ''
248 5 1044 $self->obsolete ? :
249 5 1044 $self->obsolete ? :
252 9 1040 if $self->comment
254 0 1049 if $self->automatic
256 1023 26 if $self->reference
265 25 1024 if length $flags
268 1 1048 if $self->fuzzy_msgctxt
272 9 1040 if $self->fuzzy_msgid
276 3 1046 if $self->fuzzy_msgid_plural
281 4 1045 if $self->msgctxt
284 9 1040 if $self->msgid_plural
287 1038 11 if $self->msgstr
289 9 1040 if (my $msgstr_n = $self->msgstr_n)
317 0 2429 unless defined $string
330 0 4343 unless defined $string
359 1 7 defined $encoding ? :
0 8 unless open OUT, defined $encoding ? ">:encoding($encoding)" : '>', $file
361 0 8 if ($ashash) { }
397 2 7 defined $encoding ? :
0 9 unless open IN, defined $encoding ? "<:encoding($encoding)" : '<', $file
414 1037 3277 if (/^$/) { }
19 3258 elsif (/^#\s+(.*)/ or /^#()$/) { }
0 3258 elsif (/^#\.\s*(.*)/) { }
1026 2232 elsif (/^#:\s+(.*)/) { }
20 2212 elsif (/^#,\s+(.*)/) { }
1 2211 elsif (/^#(~)?\|\s+msgctxt\s+(.*)/) { }
7 2204 elsif (/^#(~)?\|\s+msgid\s+(.*)/) { }
1 2203 elsif (/^#(~)?\|\s+msgid_plural\s+(.*)/) { }
4 2199 elsif (/^(#~\s+)?msgctxt\s+(.*)/) { }
1039 1160 elsif (/^(#~\s+)?msgid\s+(.*)/) { }
5 1155 elsif (/^(#~\s+)?msgid_plural\s+(.*)/) { }
1033 122 elsif (/^(?:#~\s+)?msgstr\s+(.*)/) { }
10 112 elsif (/^(?:#~\s+)?msgstr\[(\d+)\]\s+(.*)/) { }
112 0 elsif (/^(?:#(?:~|~\||\|)\s+)?(".*)/) { }
418 1037 0 if (defined $po)
419 1 1036 if defined $buffer{'fuzzy_msgctxt'}
421 7 1030 if defined $buffer{'fuzzy_msgid'}
422 1 1036 if defined $buffer{'fuzzy_msgid_plural'}
424 4 1033 if defined $buffer{'msgctxt'}
425 1037 0 if defined $buffer{'msgid'}
426 5 1032 if defined $buffer{'msgid_plural'}
427 1031 6 if defined $buffer{'msgstr'}
428 5 1032 if defined $buffer{'msgstr_n'}
432 0 1037 if ($ashash) { }
433 0 0 if $po->_hash_key_ok(\%entries)
450 4 15 unless defined $po
451 15 4 if (defined $po->comment) { }
461 0 0 unless defined $po
462 0 0 if (defined $po->automatic) { }
472 1024 2 unless defined $po
473 2 1024 if (defined $po->reference) { }
484 5 15 unless defined $po
490 0 1 unless defined $po
493 0 1 if $1
496 0 7 unless defined $po
499 2 5 if $1
502 0 1 unless defined $po
505 0 1 if $1
508 0 4 unless defined $po
511 0 4 if $1
514 6 1033 unless defined $po
517 6 1033 if $1
520 0 5 unless defined $po
523 1 4 if $1
550 2 7 if (defined $po)
552 0 2 if defined $buffer{'msgctxt'}
554 2 0 if defined $buffer{'msgid'}
556 0 2 if defined $buffer{'msgid_plural'}
558 2 0 if defined $buffer{'msgstr'}
560 0 2 if defined $buffer{'msgstr_n'}
564 0 2 if ($ashash) { }
565 0 0 if ($po->_hash_key_ok(\%entries))
576 0 9 $ashash ? :
584 0 0 if ($$entries{$key})
587 0 0 if $self->obsolete and not $$entries{$key}->obsolete
590 0 0 if not $self->msgstr =~ /\w/ and $$entries{$key}->msgstr =~ /\w/