Branch Coverage

blib/lib/EBook/MOBI/MobiPerl/Palm/PDB.pm
Criterion Covered Total %
branch 44 204 21.5


line true false branch
214 18 0 if (ref $item eq 'ARRAY') { }
260 18 0 if (ref $item eq 'ARRAY') { }
431 0 0 unless open PDB, "< $fname"
462 0 0 if $attributes & 1
463 0 0 if $attributes & 2
464 0 0 if $attributes & 4
465 0 0 if $attributes & 8
466 0 0 if $attributes & 16
467 0 0 if $attributes & 32
468 0 0 if $attributes & 32768
469 0 0 if $attributes & 512
473 0 0 if $attributes & 1
474 0 0 if $attributes & 2
475 0 0 if $attributes & 4
476 0 0 if $attributes & 8
477 0 0 if $attributes & 16
478 0 0 if $attributes & 32
479 0 0 if $attributes & 64
480 0 0 if $attributes & 128
481 0 0 if $attributes & 256
482 0 0 if $attributes & 512
483 0 0 if $attributes & 1024
484 0 0 if $attributes & 2048
485 0 0 if $attributes & 32768
511 0 0 if ($self->{'attributes'}{'resource'} or $self->{'attributes'}{'ResDB'}) { }
526 0 0 if (defined $handler) { }
546 0 0 if ($self->{'attributes'}{'resource'} or $self->{'attributes'}{'ResDB'}) { }
562 0 0 if ($self->{'_appinfo_offset'} != 0)
568 0 0 if ($self->{'_sort_offset'} != 0)
574 0 0 if ($self->{'attributes'}{'resource'} or $self->{'attributes'}{'ResDB'}) { }
620 0 0 if ($offset == $lastoffset)
629 0 0 if $attributes & 128
630 0 0 if $attributes & 64
631 0 0 if $attributes & 32
632 0 0 if $attributes & 16
636 0 0 if $attributes & 128
637 0 0 if $attributes & 64
638 0 0 if $attributes & 32
639 0 0 if $attributes & 16
651 0 0 if (($attributes & 160) == 0) { }
655 0 0 if $attributes & 8
706 0 0 if (tell $fh > $pdb->{'_appinfo_offset'})
715 0 0 if (tell $fh != $pdb->{'_appinfo_offset'})
727 0 0 if ($pdb->{'_sort_offset'}) { }
0 0 elsif (defined $pdb->{'_index'} and @{$pdb->{'_index'};}) { }
761 0 0 if (tell $fh > $pdb->{'_sort_offset'})
770 0 0 if (tell $fh != $pdb->{'_sort_offset'})
781 0 0 if (defined $pdb->{'_index'}) { }
820 0 0 if (tell $fh > $pdb->{'_index'}[$i]{'offset'})
830 0 0 if (tell $fh != $pdb->{'_index'}[$i]{'offset'})
838 0 0 if ($i == $pdb->{'_numrecs'} - 1) { }
882 0 0 if (tell $fh > $pdb->{'_index'}[$i]{'offset'})
892 0 0 if (tell $fh != $pdb->{'_index'}[$i]{'offset'})
900 0 0 if ($i == $pdb->{'_numrecs'} - 1) { }
969 0 3 unless open my $OFILE, '>', $fname
981 0 3 if ($self->{'attributes'}{'resource'} or $self->{'attributes'}{'ResDB'}) { }
1018 0 6 if ($record->{'attributes'}{'expunged'} or $record->{'attributes'}{'deleted'}) { }
1022 0 0 if $record->{'attributes'}{'archive'}
1027 0 6 if $record->{'attributes'}{'expunged'}
1029 6 0 if $record->{'attributes'}{'dirty'}
1031 0 6 if $record->{'attributes'}{'deleted'}
1033 0 6 if $record->{'attributes'}{'private'}
1035 0 6 if $record->{'attributes'}{'Delete'}
1036 6 0 if $record->{'attributes'}{'Dirty'}
1037 0 6 if $record->{'attributes'}{'Busy'}
1038 0 6 if $record->{'attributes'}{'Secret'}
1064 0 3 $self->{'attributes'}{'resource'} ? :
0 3 $self->{'attributes'}{'read-only'} ? :
0 3 $self->{'attributes'}{'AppInfo dirty'} ? :
0 3 $self->{'attributes'}{'backup'} ? :
0 3 $self->{'attributes'}{'OK newer'} ? :
0 3 $self->{'attributes'}{'reset'} ? :
0 3 $self->{'attributes'}{'open'} ? :
1066 0 3 if $self->{'attributes'}{'ResDB'}
1067 0 3 if $self->{'attributes'}{'ReadOnly'}
1068 0 3 if $self->{'attributes'}{'AppInfoDirty'}
1069 0 3 if $self->{'attributes'}{'Backup'}
1070 0 3 if $self->{'attributes'}{'OKToInstallNewer'}
1071 0 3 if $self->{'attributes'}{'ResetAfterInstall'}
1072 0 3 if $self->{'attributes'}{'CopyPrevention'}
1073 0 3 if $self->{'attributes'}{'Stream'}
1074 0 3 if $self->{'attributes'}{'Hidden'}
1075 0 3 if $self->{'attributes'}{'LaunchableData'}
1076 0 3 if $self->{'attributes'}{'Recyclable'}
1077 0 3 if $self->{'attributes'}{'Bundle'}
1078 0 3 if $self->{'attributes'}{'Open'}
1082 3 0 if (not defined $appinfo_block or $appinfo_block eq '') { }
1092 3 0 if (not defined $sort_block or $sort_block eq '') { }
1098 0 0 if ($appinfo_offset == 0) { }
1137 0 3 if ($sort_offset != 0) { }
0 3 elsif ($appinfo_offset != 0) { }
1147 0 3 if ($self->{'attributes'}{'resource'} or $self->{'attributes'}{'ResDB'}) { }
1184 0 6 if (length $data == 0)
1202 3 0 if (length $self->{'2NULs'} == 2) { }
1210 0 3 unless $appinfo_offset == 0
1213 0 3 unless $sort_offset == 0
1221 0 6 if ($self->{'attributes'}{'resource'} or $self->{'attributes'}{'ResDB'}) { }
1309 6 0 if ($#_ < 0)
1384 0 0 if ($#_ < 0)
1425 0 0 if $id eq ''
1429 0 0 unless $_->{'id'} == $id
1465 0 0 if ($expunge) { }