Branch Coverage

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


line true false branch
37 0 1 if not $charset and $fn =~ m(\.([\w-]+)(?:\@[^/\\]+)?\.g?mo$)i
41 0 1 if (defined $charset)
42 0 0 unless $enc = &find_encoding($charset)
55 0 1 unless open $fh, "<:raw", $fn
63 0 1 unless CORE::read $fh, $magic, 4
66 0 0 $magic eq "\225\cD\cR\336" ? :
1 0 $magic eq "\336\cR\cD\225" ? :
72 0 1 unless CORE::read $fh, $superblock, 24
82 0 1 unless seek $fh, $offset_orig, 0
85 0 1 unless CORE::read $fh, $originals, $nr_strings * 8
91 0 1 unless seek $fh, $offset_trans, 0
94 0 1 unless CORE::read $fh, $translations, $nr_strings * 8
105 0 1 unless seek $fh, $orig_start, 0
110 0 1 unless CORE::read $fh, $orig_block, $orig_block_size
114 0 1 unless seek $fh, $trans_start, 0
118 0 1 unless CORE::read $fh, $trans_block, $trans_block_size
124 0 13 $msgid_b =~ s/(.*)\x04// ? :
129 1 12 unless (defined $charset)
130 0 1 unless $msgid_b eq ""
133 1 0 $msgstr_b =~ /^content-type:.*?charset=["']?([\w-]+)/im ? :
138 0 1 unless $enc = &find_encoding($charset)
145 0 13 @msgstr > 1 ? :
148 0 1 unless close $fh
172 0 0 unless my $po = $_[0]->msgid($_[1], $_[3])
175 0 0 unless ref $po
180 0 0 defined $_[2] ? :
0 0 unless $$po[$_[0]{'algo'}->(defined $_[2] ? $_[2] : 1)]