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) { } |