| line |
true |
false |
branch |
|
87
|
7 |
0 |
if ($doc =~ s/^UNA//) |
|
97
|
7 |
0 |
if ($segments[0] =~ /^UNB/) { } |
|
114
|
8 |
1354 |
if ($tag =~ /UNH/) |
|
118
|
8 |
1346 |
if ($tag =~ /UNT/) |
|
123
|
6 |
1340 |
if ($tag =~ /^UNZ/) |
|
127
|
0 |
1340 |
if ($tag =~ /^UNG/) |
|
131
|
0 |
1340 |
if ($tag =~ /^UNE/) |
|
153
|
0 |
6 |
unless open my $fh, '<', $filename |
|
162
|
0 |
6 |
if (@lines == 1) { } |
|
|
6 |
0 |
elsif (@lines > 1) { } |
|
168
|
6 |
0 |
if ($msg) |
|
230
|
0 |
6 |
if ($data[0] != $$self{'msg_cnt'}) |
|
234
|
0 |
6 |
if ($data[1] ne $$self{'control_ref'}) |
|
264
|
7 |
0 |
if ($ssa eq q[:+.? ']) { } |
|
325
|
7 |
0 |
if (exists $encoding_map{$syntax_id}) |
|
329
|
0 |
7 |
unless ref $$self{'enc'} |
|
387
|
7 |
0 |
if (exists $$self{'messages'}) |