Branch Coverage

blib/lib/Data/MuForm/Localizer.pm
Criterion Covered Total %
branch 73 142 51.4


line true false branch
50 41 264 unless (exists $Data::MuForm::Localizer::lexicons->{$lang})
69 0 41 unless open IN, '<:encoding(UTF-8)', $file
86 2091 6683 if (/^$/) { }
2050 4633 elsif (/^#\s+(.*)/ or /^#()$/) { }
0 4633 elsif (/^#\.\s*(.*)/) { }
0 4633 elsif (/^#:\s+(.*)/) { }
0 4633 elsif (/^#,\s+(.*)/) { }
0 4633 elsif (/^#(~)?\|\s+msgctxt\s+(.*)/) { }
0 4633 elsif (/^#(~)?\|\s+msgid\s+(.*)/) { }
0 4633 elsif (/^#(~)?\|\s+msgid_plural\s+(.*)/) { }
0 4633 elsif (/^(#~\s+)?msgctxt\s+(.*)/) { }
2091 2542 elsif (/^(#~\s+)?msgid\s+(.*)/) { }
41 2501 elsif (/^(#~\s+)?msgid_plural\s+(.*)/) { }
2050 451 elsif (/^(?:#~\s+)?msgstr\s+(.*)/) { }
82 369 elsif (/^(?:#~\s+)?msgstr\[(\d+)\]\s+(.*)/) { }
369 0 elsif (/^(?:#(?:~|~\||\|)\s+)?(".*)/) { }
90 2091 0 if (defined $po)
92 0 2091 if defined $buffer{'fuzzy_msgctxt'}
93 0 2091 if defined $buffer{'fuzzy_msgid'}
95 0 2091 if defined $buffer{'fuzzy_msgid_plural'}
96 0 2091 if defined $buffer{'msgctxt'}
97 2091 0 if defined $buffer{'msgid'}
98 41 2050 if defined $buffer{'msgid_plural'}
99 2050 41 if defined $buffer{'msgstr'}
100 41 2050 if defined $buffer{'msgstr_n'}
116 2050 0 unless defined $po
117 0 2050 if (defined $po->{'comment'}) { }
127 0 0 unless defined $po
128 0 0 if (defined $po->{'automatic'}) { }
138 0 0 unless defined $po
139 0 0 if (defined $po->{'reference'}) { }
156 0 0 unless defined $po
159 0 0 if $1
162 0 0 unless defined $po
165 0 0 if $1
168 0 0 unless defined $po
171 0 0 if $1
174 0 0 unless defined $po
177 0 0 if $1
180 41 2050 unless defined $po
183 0 2091 if $1
186 0 41 unless defined $po
189 0 41 if $1
216 0 41 if (defined $po)
219 0 0 if defined $buffer{'msgctxt'}
221 0 0 if defined $buffer{'msgid'}
223 0 0 if defined $buffer{'msgid_plural'}
225 0 0 if defined $buffer{'msgstr'}
227 0 0 if defined $buffer{'msgstr_n'}
252 0 4633 unless defined $string
267 0 45 unless defined $text
269 0 45 @args % 2 ? :
0 45 @args == 1 ? :
298 0 55 unless defined $value
300 53 2 unless defined $attribute
317 4 300 if ($is_n)
319 0 4 unless my $plural_code = $lexicon->{''}{'plural_code'}
320 0 4 ref $count eq 'ARRAY' ? :
324 0 4 exists $lexicon->{$msg_key} ? :
325 4 0 unless (defined $msgstr_plural)
326 3 1 &$plural_code($count) ? :
335 61 239 exists $lexicon->{$msg_key} ? :
336 239 61 unless (defined $msgstr)
345 4786 2399 unless defined $thing
346 41 2358 unless length $thing
354 0 0 unless my $nplurals = $lexicon->{''}{'multiplural_nplurals'}
355 0 0 unless my(@counts) = @{$count_ref;}
433 1 44 unless defined $header_msgstr
436 1 43 unless my($plural_forms) = $header_msgstr =~ / ^ Plural-Forms: [ ]* ( nplurals [ ]* [=] [ ]* \d+ [ ]* [;] [ ]* plural [ ]* [=] [ ]* [^;\n]+ [ ]* [;]? [ ]* ) $ /msx
450 1 42 unless my($charset) = $header_msgstr =~ / ^ Content-Type: [^;]+ [;] [ ]* charset [ ]* = [ ]* ( [^ ]+ ) [ ]* $ /msx
465 0 42 $multiplural_nplurals ? :