Branch Coverage

blib/lib/Log/Report/Lexicon/POTcompact.pm
Criterion Covered Total %
branch 39 50 78.0


line true false branch
42 0 12 if not $charset and $fn =~ m(\.([\w-]+)(?:\@[^/\\]+)?\.po$)i
46 1 11 if ($charset) { }
47 0 1 unless open $fh, "<:encoding($charset):crlf", $fn
51 0 11 unless open $fh, "<:raw:crlf", $fn
61 11 214 unless ($charset)
62 0 11 unless $msgid eq ""
65 11 0 $msgstr[0] =~ /^content-type:.*?charset=["']?([\w-]+)/im ? :
68 0 11 unless my $enc = &find_encoding($charset)
77 1 224 @msgstr > 1 ? :
83 302 801 if substr($line, 0, 1) eq "#"
85 232 569 if ($line =~ /^\s*$/)
86 223 9 if @msgstr
90 0 569 if ($line =~ s/^msgctxt\s+//) { }
225 344 elsif ($line =~ s/^msgid\s+//) { }
4 340 elsif ($line =~ s/^msgstr\[(\d+)\]\s*//) { }
224 116 elsif ($line =~ s/^msgstr\s+//) { }
115 1 elsif ($last and $line =~ /^\s*\"/) { }
109 2 10 if @msgstr
111 0 12 unless close $fh
141 0 13 unless my $po = $self->{'index'}{"$msgid#$ctxt"}
144 4 9 unless ref $po
147 0 9 unless $$po[$self->{'algo'}->($count // 1)]
155 0 686 unless ($_[0] =~ /^\s*\"(.*)\"\s*$/)
163 44 20 defined $_[0] && length $_[0] ? :
166 4 60 if @escaped > 1