Branch Coverage

blib/lib/EBook/Ishmael/PDB.pm
Criterion Covered Total %
branch 11 18 61.1


line true false branch
90 0 42 unless open my $fh, "<", $pdb
117 0 42 unless ($self->{'Name'} =~ /\0$/u)
121 0 42 unless ($self->{'NextRecList'} == 0)
125 0 42 if ($self->{'RecNum'} == 0)
133 11 31 $self->{'CDate'} + $EPOCH_OFFSET > 0 ? :
136 11 31 $self->{'MDate'} + $EPOCH_OFFSET > 0 ? :
139 0 0 $self->{'BDate'} + $EPOCH_OFFSET > 0 ? :
155 0 585 if ($rec->{'Offset'} > $self->{'Size'})
167 42 543 $i == $self->{'RecNum'} - 1 ? :