| blib/lib/EBook/Ishmael/PDB.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 18 | 61.1 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 0 | 42 | unless open my $fh, "<", $pdb |
| 66 | 0 | 42 | unless ($self->{'Name'} =~ /\0$/u) |
| 70 | 0 | 42 | unless ($self->{'NextRecList'} == 0) |
| 74 | 0 | 42 | if ($self->{'RecNum'} == 0) |
| 82 | 11 | 31 | $self->{'CDate'} + $EPOCH_OFFSET > 0 ? : |
| 85 | 11 | 31 | $self->{'MDate'} + $EPOCH_OFFSET > 0 ? : |
| 88 | 0 | 0 | $self->{'BDate'} + $EPOCH_OFFSET > 0 ? : |
| 104 | 0 | 585 | if ($rec->{'Offset'} > $self->{'Size'}) |
| 116 | 42 | 543 | $i == $self->{'RecNum'} - 1 ? : |