| line |
true |
false |
branch |
|
92
|
2231 |
0 |
if (defined $self) |
|
183
|
1248 |
0 |
if (pflock($file, 1)) |
|
184
|
1237 |
11 |
if ($self->bread(\$raw, 0, 40) == 40) { } |
|
193
|
0 |
1237 |
unless ($type eq "PIOFMBAT") |
|
199
|
0 |
1237 |
unless ($sname eq $self->{'streamName'}) |
|
206
|
0 |
1237 |
unless (defined $seq) |
|
213
|
0 |
1237 |
unless ($seq == $self->{'sequence'}) |
|
220
|
0 |
1237 |
unless $rv |
|
249
|
0 |
0 |
if (pflock($file, 2)) |
|
258
|
0 |
0 |
unless $self->bwrite(pack("NN", quad2Longs($rec)), $pos) == 8 |
|
262
|
0 |
0 |
unless $rv |
|
268
|
0 |
0 |
unless $rv |
|
291
|
1237 |
0 |
if ($self->bread(\$raw, 40)) { } |
|
302
|
1237 |
2673 |
unless defined $bn and $bn > $self->{'blockNum'} |
|
305
|
0 |
2673 |
unless (not defined $prev or $bn > $prev) |
|
345
|
125 |
22 |
if (defined $bn and $bn > $self->{'blockNum'}) { } |
|
348
|
0 |
125 |
if (scalar grep({$_ eq $bn;} @{$$self{"data"};})) |
|
355
|
0 |
125 |
if (scalar grep({$_ > $bn;} @{$$self{"data"};})) |
|
361
|
125 |
0 |
if ($rv) |
|
368
|
0 |
125 |
unless $self->bwrite(pack("NN", quad2Longs($bn)), 40 + 8 * $#{$$self{"data"};}) == 8 |