Branch Coverage

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 ? :