Branch Coverage

lib/Log/Report/Lexicon/MOTcompact.pm
Criterion Covered Total %
branch 22 54 40.7


line true false branch
25 0 1 if not $charset and $fn =~ m(\.([\w-]+)(?:\@[^/\\]+)?\.g?mo$)i
29 0 1 if (defined $charset)
30 0 0 unless $enc = &find_encoding($charset)
44 0 1 unless open $fh, '<:raw', $fn
52 0 1 unless CORE::read $fh, $magic, 4
55 0 0 $magic eq "\225\cD\cR\336" ? :
1 0 $magic eq "\336\cR\cD\225" ? :
62 0 1 unless CORE::read $fh, $superblock, 24
72 0 1 unless seek $fh, $offset_orig, 0
76 0 1 unless CORE::read $fh, $originals, $nr_strings * 8
83 0 1 unless seek $fh, $offset_trans, 0
87 0 1 unless CORE::read $fh, $translations, $nr_strings * 8
99 0 1 unless seek $fh, $orig_start, 0
105 0 1 unless CORE::read $fh, $orig_block, $orig_block_size
110 0 1 unless seek $fh, $trans_start, 0
115 0 1 unless CORE::read $fh, $trans_block, $trans_block_size
122 0 13 $msgid_b =~ s/(.*)\x04// ? :
127 1 12 unless (defined $charset)
128 0 1 unless $msgid_b eq ''
131 1 0 $msgstr_b =~ /^content-type:.*?charset=["']?([\w-]+)/im ? :
135 0 1 unless $enc = &find_encoding($charset)
143 0 13 @msgstr > 1 ? :
146 0 1 unless close $fh
170 0 0 unless my $po = $_[0]->msgid($_[1], $_[3])
173 0 0 unless ref $po
178 0 0 defined $_[2] ? :
0 0 unless $$po[$_[0]{'algo'}->(defined $_[2] ? $_[2] : 1)]