| line |
true |
false |
branch |
|
37
|
0 |
70 |
unless -s $file >= 68 |
|
42
|
35 |
35 |
unless ($null eq "\0") |
|
50
|
24 |
11 |
unless $type eq $TYPE and $creator eq $CREATOR |
|
77
|
0 |
0 |
unless (substr($huff, 0, 8) eq $HUFF_HDR) |
|
89
|
0 |
0 |
if ($len == 0) |
|
93
|
0 |
0 |
if ($len <= 8 and not $term) |
|
120
|
0 |
0 |
unless (substr($cdic, 0, 8) eq $CDIC_HDR) |
|
183
|
0 |
0 |
if ($n <= 0) |
|
191
|
0 |
0 |
unless ($term) |
|
198
|
0 |
0 |
if $left < 0 |
|
204
|
0 |
0 |
unless ($flag) |
|
246
|
0 |
0 |
if ($c & 128) |
|
269
|
138 |
0 |
if ($self->{'_extra_data'} & 1) |
|
284
|
0 |
20 |
if $idx == $NULL_INDEX |
|
324
|
0 |
100 |
if (@$hordt2) |
|
349
|
0 |
40 |
unless (substr($$data, 0, 4) eq "INDX") |
|
375
|
0 |
40 |
if ($header->{'code'} == 65002 or $ocnt != 0 or $oentries > 0) |
|
377
|
0 |
0 |
unless ($ocnt == 1) |
|
380
|
0 |
0 |
unless (substr($$data, $op1, 4) eq "ORDT") |
|
383
|
0 |
0 |
unless (substr($$data, $op2, 4) eq "ORDT") |
|
411
|
10 |
30 |
if (substr($$data, $off, 1) eq "\0") |
|
443
|
560 |
250 |
if (ord $v & 128) |
|
462
|
20 |
0 |
if (substr($$data, $start, 4) eq "TAGX") |
|
482
|
280 |
1960 |
if (($val & 1) == 1) |
|
507
|
100 |
340 |
if ($endflag == 1) |
|
513
|
340 |
0 |
if ($val != 0) |
|
514
|
280 |
60 |
if ($val == $mask) { } |
|
515
|
0 |
280 |
if (_count_setbits($mask) > 1) { } |
|
535
|
340 |
0 |
if (defined $count) { } |
|
563
|
10 |
0 |
if ($self->{'_fdst'} != $NULL_INDEX) |
|
565
|
0 |
10 |
unless (substr($hdr, 0, 4) eq "FDST") |
|
577
|
10 |
0 |
if ($self->{'_skelidx'} != $NULL_INDEX) |
|
591
|
10 |
0 |
if ($self->{'_fragidx'} != $NULL_INDEX) |
|
604
|
0 |
10 |
if ($self->{'_guideidx'} != $NULL_INDEX) |
|
612
|
0 |
0 |
if (exists $tagmap->{'3'}) |
|
615
|
0 |
0 |
if (exists $tagmap->{'6'}) |
|
689
|
0 |
138 |
if ($self->{'_compression'} == 1) { } |
|
|
138 |
0 |
elsif ($self->{'_compression'} == 2) { } |
|
|
0 |
0 |
elsif ($self->{'_compression'} == 17480) { } |
|
715
|
20 |
0 |
if (defined $self->{'_imgrec'}) |
|
732
|
100 |
290 |
if (exists $exth_records{$id}) |
|
804
|
0 |
20 |
unless ($self->{'_compression'} == 1 or $self->{'_compression'} == 2 or $self->{'_compression'} == 17480) |
|
812
|
0 |
20 |
if ($self->{'_recsize'} != 4096) |
|
816
|
0 |
20 |
unless ($self->{'_encryption'} == 0) |
|
829
|
0 |
20 |
unless ($self->{'_codepage'} == 1252 or $self->{'_codepage'} == 65001) |
|
841
|
0 |
20 |
if ($self->{'_compression'} == 17480) |
|
843
|
0 |
0 |
unless ($UNPACK_Q) |
|
852
|
20 |
0 |
if ($self->{'_length'} >= 227 and $self->{'_version'} >= 5) |
|
855
|
0 |
0 |
if $flags & 2 |
|
860
|
10 |
10 |
if ($self->{'_version'} == 8) |
|
868
|
0 |
20 |
if ($self->{'_lastcont'} > $self->{'_pdb'}->recnum - 1) |
|
872
|
0 |
20 |
if ($self->{'_imgrec'} >= $self->{'_lastcont'}) |
|
876
|
20 |
0 |
if (defined $self->{'_imgrec'}) |
|
880
|
10 |
40 |
unless defined $format |
|
885
|
20 |
0 |
if ($self->{'_exth_flag'}) |
|
889
|
0 |
20 |
if (defined $self->{'_coverrec'} and not grep({$self->{'_coverrec'} == $_->[0];} @{$$self{"_images"};})) |
|
898
|
20 |
0 |
if (not defined $self->{'Metadata'}->created or $self->{'_pdb'}->cdate > $self->{'Metadata'}->created) |
|
907
|
20 |
0 |
if ($self->{'_pdb'}->mdate) |
|
911
|
10 |
10 |
if ($self->{'_version'} == 8) { } |
|
|
10 |
0 |
elsif (not defined $self->{'Metadata'}->format) { } |
|
934
|
5 |
5 |
if $clean |
|
936
|
0 |
10 |
if ($decode and $self->{'_codepage'} == 1252) |
|
937
|
0 |
0 |
unless &from_to($cont, "cp1252", "utf-8") |
|
952
|
3 |
3 |
if ($self->{'_version'} == 8) { } |
|
962
|
0 |
9 |
unless my($body) = $dom->findnodes("/html/body") |
|
971
|
0 |
3 |
$self->{'_codepage'} == 1252 ? : |
|
981
|
0 |
6 |
if (defined $out) { } |
|
982
|
0 |
0 |
unless open my $fh, ">", $out |
|
1001
|
2 |
2 |
if ($self->{'_version'} == 8) { } |
|
1009
|
0 |
6 |
unless my($body) = $dom->findnodes("/html/body") |
|
1016
|
0 |
2 |
$self->{'_codepage'} == 1252 ? : |
|
1028
|
0 |
4 |
if (defined $out) { } |
|
1029
|
0 |
0 |
unless open my $fh, ">", $out |
|
1062
|
0 |
4 |
unless $self->has_cover |
|
1066
|
0 |
4 |
unless defined $format |
|
1085
|
0 |
8 |
if ($n >= $self->image_num) |