Branch Coverage

blib/lib/Data/MuForm/Localizer.pm
Criterion Covered Total %
branch 72 142 50.7


line true false branch
42 40 254 unless (exists $Data::MuForm::Localizer::lexicons->{$lang})
59 0 40 unless open IN, '<:encoding(UTF-8)', $file
76 2040 6520 if (/^$/) { }
2000 4520 elsif (/^#\s+(.*)/ or /^#()$/) { }
0 4520 elsif (/^#\.\s*(.*)/) { }
0 4520 elsif (/^#:\s+(.*)/) { }
0 4520 elsif (/^#,\s+(.*)/) { }
0 4520 elsif (/^#(~)?\|\s+msgctxt\s+(.*)/) { }
0 4520 elsif (/^#(~)?\|\s+msgid\s+(.*)/) { }
0 4520 elsif (/^#(~)?\|\s+msgid_plural\s+(.*)/) { }
0 4520 elsif (/^(#~\s+)?msgctxt\s+(.*)/) { }
2040 2480 elsif (/^(#~\s+)?msgid\s+(.*)/) { }
40 2440 elsif (/^(#~\s+)?msgid_plural\s+(.*)/) { }
2000 440 elsif (/^(?:#~\s+)?msgstr\s+(.*)/) { }
80 360 elsif (/^(?:#~\s+)?msgstr\[(\d+)\]\s+(.*)/) { }
360 0 elsif (/^(?:#(?:~|~\||\|)\s+)?(".*)/) { }
80 2040 0 if (defined $po)
82 0 2040 if defined $buffer{'fuzzy_msgctxt'}
83 0 2040 if defined $buffer{'fuzzy_msgid'}
85 0 2040 if defined $buffer{'fuzzy_msgid_plural'}
86 0 2040 if defined $buffer{'msgctxt'}
87 2040 0 if defined $buffer{'msgid'}
88 40 2000 if defined $buffer{'msgid_plural'}
89 2000 40 if defined $buffer{'msgstr'}
90 40 2000 if defined $buffer{'msgstr_n'}
106 2000 0 unless defined $po
107 0 2000 if (defined $po->{'comment'}) { }
117 0 0 unless defined $po
118 0 0 if (defined $po->{'automatic'}) { }
128 0 0 unless defined $po
129 0 0 if (defined $po->{'reference'}) { }
146 0 0 unless defined $po
149 0 0 if $1
152 0 0 unless defined $po
155 0 0 if $1
158 0 0 unless defined $po
161 0 0 if $1
164 0 0 unless defined $po
167 0 0 if $1
170 40 2000 unless defined $po
173 0 2040 if $1
176 0 40 unless defined $po
179 0 40 if $1
206 0 40 if (defined $po)
209 0 0 if defined $buffer{'msgctxt'}
211 0 0 if defined $buffer{'msgid'}
213 0 0 if defined $buffer{'msgid_plural'}
215 0 0 if defined $buffer{'msgstr'}
217 0 0 if defined $buffer{'msgstr_n'}
242 0 4520 unless defined $string
257 0 42 unless defined $text
259 0 42 @args % 2 ? :
0 42 @args == 1 ? :
288 0 52 unless defined $value
290 50 2 unless defined $attribute
307 1 292 if ($is_n)
309 0 1 unless my $plural_code = $lexicon->{''}{'plural_code'}
310 0 1 ref $count eq 'ARRAY' ? :
314 0 1 exists $lexicon->{$msg_key} ? :
315 1 0 unless (defined $msgstr_plural)
316 1 0 &$plural_code($count) ? :
325 61 231 exists $lexicon->{$msg_key} ? :
326 231 61 unless (defined $msgstr)
335 4665 2334 unless defined $thing
336 40 2294 unless length $thing
344 0 0 unless my $nplurals = $lexicon->{''}{'multiplural_nplurals'}
345 0 0 unless my(@counts) = @{$count_ref;}
423 1 43 unless defined $header_msgstr
426 1 42 unless my($plural_forms) = $header_msgstr =~ / ^ Plural-Forms: [ ]* ( nplurals [ ]* [=] [ ]* \d+ [ ]* [;] [ ]* plural [ ]* [=] [ ]* [^;\n]+ [ ]* [;]? [ ]* ) $ /msx
440 1 41 unless my($charset) = $header_msgstr =~ / ^ Content-Type: [^;]+ [;] [ ]* charset [ ]* = [ ]* ( [^ ]+ ) [ ]* $ /msx
455 0 41 $multiplural_nplurals ? :