| line |
true |
false |
branch |
|
88
|
5 |
0 |
if ($$self{'uniqueIDseed'} <= 8192) |
|
117
|
3 |
0 |
if (ref $item eq 'ARRAY') { } |
|
136
|
0 |
0 |
if (ref $item eq 'ARRAY') { } |
|
154
|
1 |
4 |
if (ref $fname) { } |
|
157
|
1 |
0 |
if (ref $fname eq 'GLOB' or UNIVERSAL::isa($fname, 'IO::Seekable')) { } |
|
165
|
0 |
0 |
unless (eval 'open $handle, $mode, $fname') |
|
167
|
0 |
0 |
if ($@ ne '') { } |
|
181
|
0 |
4 |
if $] < 5.006 |
|
182
|
0 |
4 |
unless open $handle, "$mode $fname" |
|
197
|
0 |
4 |
unless defined $handle |
|
229
|
2 |
2 |
unless $name =~ /.+\0/ |
|
232
|
0 |
2 |
if $attributes & 1 |
|
233
|
0 |
2 |
if $attributes & 2 |
|
234
|
0 |
2 |
if $attributes & 4 |
|
235
|
1 |
1 |
if $attributes & 8 |
|
236
|
0 |
2 |
if $attributes & 16 |
|
237
|
0 |
2 |
if $attributes & 32 |
|
238
|
0 |
2 |
if $attributes & 32768 |
|
239
|
0 |
2 |
if $attributes & 512 |
|
243
|
0 |
2 |
if $attributes & 1 |
|
244
|
0 |
2 |
if $attributes & 2 |
|
245
|
0 |
2 |
if $attributes & 4 |
|
246
|
1 |
1 |
if $attributes & 8 |
|
247
|
0 |
2 |
if $attributes & 16 |
|
248
|
0 |
2 |
if $attributes & 32 |
|
249
|
0 |
2 |
if $attributes & 64 |
|
250
|
0 |
2 |
if $attributes & 128 |
|
251
|
0 |
2 |
if $attributes & 256 |
|
252
|
0 |
2 |
if $attributes & 512 |
|
253
|
0 |
2 |
if $attributes & 1024 |
|
254
|
0 |
2 |
if $attributes & 2048 |
|
255
|
0 |
2 |
if $attributes & 32768 |
|
274
|
1 |
1 |
if ($$self{'_appinfo_offset'} > $$self{'_size'}) |
|
277
|
0 |
1 |
if ($$self{'_sort_offset'} > $$self{'_size'}) |
|
292
|
0 |
1 |
if ($$self{'attributes'}{'resource'} or $$self{'attributes'}{'ResDB'}) { } |
|
307
|
1 |
0 |
if (defined $handler) { } |
|
327
|
0 |
1 |
if ($$self{'attributes'}{'resource'} or $$self{'attributes'}{'ResDB'}) { } |
|
343
|
0 |
1 |
if ($$self{'_appinfo_offset'} != 0) |
|
349
|
0 |
1 |
if ($$self{'_sort_offset'} != 0) |
|
355
|
0 |
1 |
if ($$self{'attributes'}{'resource'} or $$self{'attributes'}{'ResDB'}) { } |
|
403
|
0 |
3 |
if ($offset == $lastoffset) |
|
412
|
0 |
3 |
if $attributes & 128 |
|
413
|
3 |
0 |
if $attributes & 64 |
|
414
|
0 |
3 |
if $attributes & 32 |
|
415
|
0 |
3 |
if $attributes & 16 |
|
419
|
0 |
3 |
if $attributes & 128 |
|
420
|
3 |
0 |
if $attributes & 64 |
|
421
|
0 |
3 |
if $attributes & 32 |
|
422
|
0 |
3 |
if $attributes & 16 |
|
434
|
3 |
0 |
if (($attributes & 160) == 0) { } |
|
438
|
0 |
0 |
if $attributes & 8 |
|
489
|
0 |
0 |
if (tell $fh > $$pdb{'_appinfo_offset'}) |
|
498
|
0 |
0 |
if (tell $fh != $$pdb{'_appinfo_offset'}) |
|
510
|
0 |
0 |
if ($$pdb{'_sort_offset'}) { } |
|
|
0 |
0 |
elsif (defined $$pdb{'_index'} and @{$$pdb{'_index'};}) { } |
|
544
|
0 |
0 |
if (tell $fh > $$pdb{'_sort_offset'}) |
|
553
|
0 |
0 |
if (tell $fh != $$pdb{'_sort_offset'}) |
|
564
|
0 |
0 |
if (defined $$pdb{'_index'}) { } |
|
603
|
0 |
3 |
if (tell $fh > $$pdb{'_index'}[$i]{'offset'}) |
|
612
|
0 |
3 |
if ($$pdb{'_index'}[$i]{'offset'} > $$pdb{'_size'}) |
|
617
|
1 |
2 |
if (tell $fh != $$pdb{'_index'}[$i]{'offset'}) |
|
625
|
1 |
2 |
if ($i == $$pdb{'_numrecs'} - 1) { } |
|
669
|
0 |
0 |
if (tell $fh > $$pdb{'_index'}[$i]{'offset'}) |
|
678
|
0 |
0 |
if ($$pdb{'_index'}[$i]{'offset'} > $$pdb{'_size'}) |
|
683
|
0 |
0 |
if (tell $fh != $$pdb{'_index'}[$i]{'offset'}) |
|
691
|
0 |
0 |
if ($i == $$pdb{'_numrecs'} - 1) { } |
|
728
|
0 |
1 |
unless $$self{'name'} ne '' |
|
732
|
0 |
1 |
unless defined $handle |
|
746
|
0 |
1 |
if ($$self{'attributes'}{'resource'} or $$self{'attributes'}{'ResDB'}) { } |
|
783
|
0 |
3 |
if ($$record{'attributes'}{'expunged'} or $$record{'attributes'}{'deleted'}) { } |
|
786
|
0 |
0 |
if $$record{'attributes'}{'archive'} |
|
791
|
0 |
3 |
if $$record{'attributes'}{'expunged'} |
|
793
|
3 |
0 |
if $$record{'attributes'}{'dirty'} |
|
795
|
0 |
3 |
if $$record{'attributes'}{'deleted'} |
|
797
|
0 |
3 |
if $$record{'attributes'}{'private'} |
|
800
|
0 |
3 |
if $$record{'attributes'}{'Delete'} |
|
801
|
3 |
0 |
if $$record{'attributes'}{'Dirty'} |
|
802
|
0 |
3 |
if $$record{'attributes'}{'Busy'} |
|
803
|
0 |
3 |
if $$record{'attributes'}{'Secret'} |
|
808
|
0 |
3 |
if ($attributes & 128) { } |
|
829
|
0 |
1 |
$$self{'attributes'}{'resource'} ? : |
|
|
0 |
1 |
$$self{'attributes'}{'read-only'} ? : |
|
|
0 |
1 |
$$self{'attributes'}{'AppInfo dirty'} ? : |
|
|
0 |
1 |
$$self{'attributes'}{'backup'} ? : |
|
|
0 |
1 |
$$self{'attributes'}{'OK newer'} ? : |
|
|
0 |
1 |
$$self{'attributes'}{'reset'} ? : |
|
|
0 |
1 |
$$self{'attributes'}{'open'} ? : |
|
838
|
0 |
1 |
if $$self{'attributes'}{'ResDB'} |
|
839
|
0 |
1 |
if $$self{'attributes'}{'ReadOnly'} |
|
840
|
0 |
1 |
if $$self{'attributes'}{'AppInfoDirty'} |
|
841
|
0 |
1 |
if $$self{'attributes'}{'Backup'} |
|
842
|
0 |
1 |
if $$self{'attributes'}{'OKToInstallNewer'} |
|
843
|
0 |
1 |
if $$self{'attributes'}{'ResetAfterInstall'} |
|
844
|
0 |
1 |
if $$self{'attributes'}{'CopyPrevention'} |
|
845
|
0 |
1 |
if $$self{'attributes'}{'Stream'} |
|
846
|
0 |
1 |
if $$self{'attributes'}{'Hidden'} |
|
847
|
0 |
1 |
if $$self{'attributes'}{'LaunchableData'} |
|
848
|
0 |
1 |
if $$self{'attributes'}{'Recyclable'} |
|
849
|
0 |
1 |
if $$self{'attributes'}{'Bundle'} |
|
850
|
0 |
1 |
if $$self{'attributes'}{'Open'} |
|
854
|
1 |
0 |
if (not defined $appinfo_block or $appinfo_block eq '') { } |
|
864
|
1 |
0 |
if (not defined $sort_block or $sort_block eq '') { } |
|
870
|
0 |
0 |
if ($appinfo_offset == 0) { } |
|
909
|
0 |
1 |
if ($sort_offset != 0) { } |
|
|
0 |
1 |
elsif ($appinfo_offset != 0) { } |
|
919
|
0 |
1 |
if ($$self{'attributes'}{'resource'} or $$self{'attributes'}{'ResDB'}) { } |
|
956
|
0 |
3 |
if (length $data == 0) |
|
974
|
1 |
0 |
if (length $$self{'2NULs'} == 2) { } |
|
982
|
0 |
1 |
unless $appinfo_offset == 0 |
|
985
|
0 |
1 |
unless $sort_offset == 0 |
|
993
|
0 |
3 |
if ($$self{'attributes'}{'resource'} or $$self{'attributes'}{'ResDB'}) { } |
|
1044
|
0 |
0 |
if $$self{'dirty'} |
|
1045
|
0 |
0 |
if $$self{'attributes'}{'AppInfoDirty'} |
|
1046
|
0 |
0 |
if $$self{'attributes'}{'AppInfo dirty'} |
|
1050
|
0 |
0 |
unless ($$self{'attributes'}{'resource'} or $$self{'attributes'}{'ResDB'}) |
|
1056
|
0 |
0 |
if $$record{'attributes'}{'Dirty'} |
|
1057
|
0 |
0 |
if $$record{'attributes'}{'dirty'} |
|
1074
|
3 |
0 |
unless (@_) |
|
1080
|
3 |
0 |
if $$record{'id'} eq 0 |
|
1095
|
0 |
0 |
if $$record{'id'} eq 0 |
|
1123
|
0 |
3 |
if $$self{'uniqueIDseed'} & 4278190080 |
|
1155
|
0 |
0 |
unless (@_) |
|
1189
|
0 |
0 |
if $id eq '' |
|
1193
|
0 |
0 |
unless $$_{'id'} == $id |
|
1215
|
0 |
0 |
if ($expunge) { } |
|
1238
|
0 |
0 |
if ($$self{'records'}[$i] == $record) |