Branch Coverage

blib/lib/Locale/PO.pm
Criterion Covered Total %
branch 176 242 72.7


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 1075 @_ ? :
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")
188 0 0 unless $flag eq $flag_name
197 1 0 if $flag eq $flag_name
204 1039 2 @_ ? :
213 188 1943 if (defined $dequoted and $dequoted =~ /\n/) { }
218 28 160 if $#lines != 0
222 3 185 if $lastline ne ''
246 5 1044 $self->obsolete ? :
247 5 1044 $self->obsolete ? :
250 9 1040 if $self->comment
252 0 1049 if $self->automatic
254 1023 26 if $self->reference
263 25 1024 if length $flags
266 1 1048 if $self->fuzzy_msgctxt
270 9 1040 if $self->fuzzy_msgid
274 3 1046 if $self->fuzzy_msgid_plural
279 4 1045 if $self->msgctxt
282 9 1040 if $self->msgid_plural
285 1038 11 if $self->msgstr
287 9 1040 if (my $msgstr_n = $self->msgstr_n)
315 0 2429 unless defined $string
328 0 4343 unless defined $string
357 1 7 defined $encoding ? :
0 8 unless open OUT, defined $encoding ? ">:encoding($encoding)" : '>', $file
359 0 8 if ($ashash) { }
395 2 7 defined $encoding ? :
0 9 unless open IN, defined $encoding ? "<:encoding($encoding)" : '<', $file
412 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+)?(".*)/) { }
416 1037 0 if (defined $po)
417 1 1036 if defined $buffer{'fuzzy_msgctxt'}
419 7 1030 if defined $buffer{'fuzzy_msgid'}
420 1 1036 if defined $buffer{'fuzzy_msgid_plural'}
422 4 1033 if defined $buffer{'msgctxt'}
423 1037 0 if defined $buffer{'msgid'}
424 5 1032 if defined $buffer{'msgid_plural'}
425 1031 6 if defined $buffer{'msgstr'}
426 5 1032 if defined $buffer{'msgstr_n'}
430 0 1037 if ($ashash) { }
431 0 0 if $po->_hash_key_ok(\%entries)
448 4 15 unless defined $po
449 15 4 if (defined $po->comment) { }
459 0 0 unless defined $po
460 0 0 if (defined $po->automatic) { }
470 1024 2 unless defined $po
471 2 1024 if (defined $po->reference) { }
482 5 15 unless defined $po
488 0 1 unless defined $po
491 0 1 if $1
494 0 7 unless defined $po
497 2 5 if $1
500 0 1 unless defined $po
503 0 1 if $1
506 0 4 unless defined $po
509 0 4 if $1
512 6 1033 unless defined $po
515 6 1033 if $1
518 0 5 unless defined $po
521 1 4 if $1
548 2 7 if (defined $po)
550 0 2 if defined $buffer{'msgctxt'}
552 2 0 if defined $buffer{'msgid'}
554 0 2 if defined $buffer{'msgid_plural'}
556 2 0 if defined $buffer{'msgstr'}
558 0 2 if defined $buffer{'msgstr_n'}
562 0 2 if ($ashash) { }
563 0 0 if ($po->_hash_key_ok(\%entries))
574 0 9 $ashash ? :
582 0 0 if ($$entries{$key})
585 0 0 if $self->obsolete and not $$entries{$key}->obsolete
588 0 0 if not $self->msgstr =~ /\w/ and $$entries{$key}->msgstr =~ /\w/