Branch Coverage

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


line true false branch
29 0 1 if not $charset and $fn =~ m(\.([\w-]+)(?:\@[^/\\]+)?\.g?mo$)i
33 0 1 if (defined $charset)
34 0 0 unless $enc = &find_encoding($charset)
48 0 1 unless open $fh, '<:raw', $fn
56 0 1 unless CORE::read $fh, $magic, 4
59 0 0 $magic eq "\225\cD\cR\336" ? :
1 0 $magic eq "\336\cR\cD\225" ? :
66 0 1 unless CORE::read $fh, $superblock, 24
76 0 1 unless seek $fh, $offset_orig, 0
80 0 1 unless CORE::read $fh, $originals, $nr_strings * 8
87 0 1 unless seek $fh, $offset_trans, 0
91 0 1 unless CORE::read $fh, $translations, $nr_strings * 8
103 0 1 unless seek $fh, $orig_start, 0
109 0 1 unless CORE::read $fh, $orig_block, $orig_block_size
114 0 1 unless seek $fh, $trans_start, 0
119 0 1 unless CORE::read $fh, $trans_block, $trans_block_size
126 0 13 $msgid_b =~ s/(.*)\x04// ? :
131 1 12 unless (defined $charset)
132 0 1 unless $msgid_b eq ''
135 1 0 $msgstr_b =~ /^content-type:.*?charset=["']?([\w-]+)/im ? :
139 0 1 unless $enc = &find_encoding($charset)
147 0 13 @msgstr > 1 ? :
150 0 1 unless close $fh
174 0 0 unless my $po = $_[0]->msgid($_[1], $_[3])
177 0 0 unless ref $po
182 0 0 defined $_[2] ? :
0 0 unless $$po[$_[0]{'algo'}->(defined $_[2] ? $_[2] : 1)]