| line |
true |
false |
branch |
|
28
|
0 |
0 |
if (@_) |
|
31
|
0 |
0 |
if (ref $ref eq 'ARRAY') |
|
33
|
0 |
0 |
if (ref $ref eq 'HASH') |
|
35
|
0 |
0 |
if (ref $ref eq '') |
|
37
|
0 |
0 |
unless (@_ % 2) |
|
41
|
0 |
0 |
if exists $params{'INFILE'} |
|
42
|
0 |
0 |
if exists $params{'OUTFILE'} |
|
43
|
0 |
0 |
if exists $params{'TITLE'} |
|
44
|
0 |
0 |
if exists $params{'COMPRESS'} |
|
45
|
0 |
0 |
if exists $params{'IGNORENL'} |
|
46
|
0 |
0 |
if exists $params{'BODY'} |
|
54
|
0 |
0 |
if (@_) |
|
56
|
0 |
0 |
if ($self->ignorenl) |
|
61
|
0 |
0 |
if (/^\s*$/) { } |
|
69
|
0 |
0 |
if ($sep eq ' ') |
|
73
|
0 |
0 |
if ($self->compression and not $self->compressed) |
|
80
|
0 |
0 |
if (@_) |
|
86
|
0 |
0 |
if (@_) |
|
92
|
0 |
0 |
shift @_ ? : |
|
|
0 |
0 |
if (@_) |
|
98
|
0 |
0 |
shift @_ ? : |
|
|
0 |
0 |
if (@_) |
|
104
|
0 |
0 |
shift @_ ? : |
|
|
0 |
0 |
if (@_) |
|
111
|
0 |
0 |
if (@_) |
|
120
|
0 |
0 |
if (@_) |
|
129
|
0 |
0 |
if @_ |
|
130
|
0 |
0 |
if @_ |
|
142
|
0 |
0 |
if ($self->infile) { } |
|
143
|
0 |
0 |
unless open IN, '<' . $self->infile |
|
148
|
0 |
0 |
if ($$self{'INFILEH'} and not $self->infile) |
|
152
|
0 |
0 |
if $$self{'INFILEH'} |
|
153
|
0 |
0 |
if ($self->compression and not $self->compressed) |
|
160
|
0 |
0 |
if ($self->body) { } |
|
161
|
0 |
0 |
if ($self->outfile) |
|
162
|
0 |
0 |
unless open OUT, '>' . $self->outfile |
|
167
|
0 |
0 |
if ($$self{'OUTFILEH'} and not $self->outfile) |
|
171
|
0 |
0 |
if $$self{'OUTFILEH'} |
|
214
|
0 |
0 |
if (CORE::length $pdb_header != 78) |
|
227
|
0 |
0 |
if (CORE::length $doc_header != 16) |
|
304
|
0 |
0 |
if ($x >= $numrecords) |
|
316
|
0 |
0 |
if ($byte =~ /[\200-\377]/) { } |
|
339
|
0 |
0 |
if ($pos > 0 and $index - $pos <= 2047 and $index < $block_len - $frag_size) { } |
|
347
|
0 |
0 |
if ($pos2 > 0 and $index - $pos2 <= 2047 and $index < $block_len - $frag_size) { } |
|
361
|
0 |
0 |
if ($frag_size > $FRAG_MAX) |
|
367
|
0 |
0 |
if ($pos2 > 0 and $index - $pos2 <= 2047 and $index < $block_len - $frag_size2) |
|
376
|
0 |
0 |
if ($pos2 > 0 and $index - $pos2 <= 2047 and $index < $block_len - $frag_size2) { } |
|
387
|
0 |
0 |
if ($frag_size2 < $LAZY_BYTE_FRAG) |
|
395
|
0 |
0 |
if ($pos > 0) |
|
408
|
0 |
0 |
if ($byte eq ' ' and $byte2 =~ /[\100-\176]/ and $index <= $block_len - 1) { } |