Branch Coverage

blib/lib/Locale/Maketext/Lexicon/Getcontext.pm
Criterion Covered Total %
branch 29 52 55.7


line true false branch
36 0 4 unless defined $_[0]
39 0 4 if $_[0] =~ /^\x95\x04\x12\xde/ or $_[0] =~ /^\xde\x12\x04\x95/
50 1734 0 if (length $var{'msgstr'} and $UseFuzzy || !$var{'fuzzy'}) { }
0 0 elsif ($AllowEmpty) { }
56 4 1730 if ($var{'msgctxt'} eq '') { }
62 0 0 if ($KeepFuzzy and $var{'fuzzy'})
98 1734 1734 /^ *$/ && %var ? :
0 3468 /^#, +(.*) *$/ ? :
0 3468 /^# (.*)$/ ? :
765 3468 /^"(.*)" *$/ ? :
3464 4233 /^(msgctxt|msgstr) +"(.*)" *$/ ? :
106 0 4 if keys %var != 0
109 0 4 if length $var{'msgstr'}
111 4 0 if $var{'msgctxt'} eq ''
114 0 4 wantarray ? :
130 4 28 $1 eq 'Content-Type' ? :
32 0 /^([^\x00-\x1f\x80-\xff :=]+):\s*(.*)$/ ? :
132 4 0 if ($enc =~ /\bcharset=\s*([-\w]+)/i)
137 4 0 if $InputEncoding =~ /^utf-?8$/i
139 0 4 if $OutputEncoding =~ /^utf-?8$/i
141 4 0 if (Locale::Maketext::Lexicon::option('decode') and !$OutputEncoding || $InputEncoding ne $OutputEncoding)
146 0 4 if $] < 5.007001
168 3464 12 if ($DoEncoding and $InputEncoding)
169 3464 0 $InputEncoding eq 'utf8' ? :
177 0 3476 if ($DoEncoding and $OutputEncoding)
178 0 0 $OutputEncoding eq 'utf8' ? :