Branch Coverage

blib/lib/Locale/PO.pm
Criterion Covered Total %
branch 185 244 75.8


line true false branch
15 1 1969 if defined $options{'-fuzzy_msgid'}
16 1 1969 if defined $options{'-fuzzy_msgid_plural'}
18 4 1966 if defined $options{'-msgid'}
19 2 1968 if defined $options{'-msgid_plural'}
21 2 1968 if defined $options{'-msgstr'}
22 2 1968 if defined $options{'-msgstr_n'}
24 0 1970 if defined $options{'-msgctxt'}
25 0 1970 if defined $options{'-fuzzy_msgctxt'}
27 1 1969 if defined $options{'-comment'}
28 1 1969 if defined $options{'-fuzzy'}
29 0 1970 if defined $options{'-automatic'}
31 0 1970 if defined $options{'-reference'}
33 0 1970 if defined $options{'-c-format'}
34 0 1970 if defined $options{'-c_format'}
35 0 1970 if defined $options{'-no-c-format'}
36 0 1970 if defined $options{'-no_c_format'}
37 1965 5 if defined $options{'-loaded_line_number'}
44 1 1514 @_ ? :
49 209 1625 @_ ? :
55 2 1516 @_ ? :
61 4 1517 @_ ? :
66 1970 1516 @_ ? :
72 7 1522 @_ ? :
78 1961 3020 @_ ? :
83 8 1513 if (@_)
87 0 8 unless ref $hashref eq 'HASH'
92 0 8 if grep {/\D/;} keys %$hashref
104 35 1584 @_ ? :
109 914 2884 @_ ? :
114 1029 3569 @_ ? :
119 13 3027 @_ ? :
125 1 0 if (@_)
127 1 0 $value ? :
147 1970 3805 @_ ? :
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 1143 1 unless ($self->has_flag($flag_name))
190 0 0 unless $flag eq $flag_name
199 4 206 if $flag eq $flag_name
206 1965 2 @_ ? :
215 200 2958 if (defined $dequoted and $dequoted =~ /\n/) { }
220 32 168 if $#lines != 0
224 8 192 if $lastline ne ''
248 7 1506 $self->obsolete ? :
249 7 1506 $self->obsolete ? :
252 12 1501 if $self->comment
254 457 1056 if $self->automatic
256 1025 488 if $self->reference
265 485 1028 if length $flags
268 1 1512 if $self->fuzzy_msgctxt
272 108 1405 if $self->fuzzy_msgid
276 3 1510 if $self->fuzzy_msgid_plural
281 4 1509 if $self->msgctxt
284 9 1504 if $self->msgid_plural
287 1502 11 if $self->msgstr
289 9 1504 if (my $msgstr_n = $self->msgstr_n)
317 1 4529 unless defined $string
330 0 7497 unless defined $string
359 1 9 defined $encoding ? :
0 10 unless open OUT, defined $encoding ? ">:encoding($encoding)" : '>', $file
361 0 10 if ($ashash) { }
397 2 12 defined $encoding ? :
0 14 unless open IN, defined $encoding ? "<:encoding($encoding)" : '<', $file
414 1960 7254 if (/^$/) { }
34 7220 elsif (/^#\s+(.*)/ or /^#()$/) { }
914 6306 elsif (/^#\.\s*(.*)/) { }
1029 5277 elsif (/^#:\s+(.*)/) { }
938 4339 elsif (/^#,\s+(.*)/) { }
1 4338 elsif (/^#(~)?\|\s+msgctxt\s+(.*)/) { }
206 4132 elsif (/^#(~)?\|\s+msgid\s+(.*)/) { }
1 4131 elsif (/^#(~)?\|\s+msgid_plural\s+(.*)/) { }
4 4127 elsif (/^(#~\s+)?msgctxt\s+(.*)/) { }
1965 2162 elsif (/^(#~\s+)?msgid\s+(.*)/) { }
5 2157 elsif (/^(#~\s+)?msgid_plural\s+(.*)/) { }
1959 198 elsif (/^(?:#~\s+)?msgstr\s+(.*)/) { }
10 188 elsif (/^(?:#~\s+)?msgstr\[(\d+)\]\s+(.*)/) { }
188 0 elsif (/^(?:#(?:~|~\||\|)\s+)?(".*)/) { }
418 1960 0 if (defined $po)
419 1 1959 if defined $buffer{'fuzzy_msgctxt'}
421 206 1754 if defined $buffer{'fuzzy_msgid'}
422 1 1959 if defined $buffer{'fuzzy_msgid_plural'}
424 4 1956 if defined $buffer{'msgctxt'}
425 1960 0 if defined $buffer{'msgid'}
426 5 1955 if defined $buffer{'msgid_plural'}
427 1954 6 if defined $buffer{'msgstr'}
428 5 1955 if defined $buffer{'msgstr_n'}
432 0 1960 if ($ashash) { }
433 0 0 if $po->_hash_key_ok(\%entries)
450 9 25 unless defined $po
451 25 9 if (defined $po->comment) { }
461 914 0 unless defined $po
462 0 914 if (defined $po->automatic) { }
472 1027 2 unless defined $po
473 2 1027 if (defined $po->reference) { }
484 5 933 unless defined $po
490 0 1 unless defined $po
493 0 1 if $1
496 0 206 unless defined $po
499 2 204 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 10 1955 unless defined $po
517 10 1955 if $1
520 0 5 unless defined $po
523 1 4 if $1
550 5 9 if (defined $po)
552 0 5 if defined $buffer{'msgctxt'}
554 5 0 if defined $buffer{'msgid'}
556 0 5 if defined $buffer{'msgid_plural'}
558 5 0 if defined $buffer{'msgstr'}
560 0 5 if defined $buffer{'msgstr_n'}
564 0 5 if ($ashash) { }
565 0 0 if ($po->_hash_key_ok(\%entries))
576 0 14 $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/