| line |
true |
false |
branch |
|
143
|
0 |
0 |
unless defined $input |
|
145
|
0 |
0 |
if print STDERR "$sayHelp" |
|
|
0 |
0 |
if ($input =~ /^-h$/ or $input =~ /^--help$/) |
|
147
|
0 |
0 |
if print STDERR "$sayVersion\n" |
|
|
0 |
0 |
if ($input =~ /^-v$/ or $input =~ /^--version$/) |
|
149
|
0 |
0 |
unless -r $input |
|
152
|
0 |
0 |
if $inpPgNum == 0 |
|
157
|
0 |
0 |
if ($_ eq 'A6') { } |
|
|
0 |
0 |
elsif ($_ eq 'A5') { } |
|
|
0 |
0 |
elsif ($_ eq 'QT') { } |
|
|
0 |
0 |
elsif ($_ eq 'QG') { } |
|
|
0 |
0 |
elsif ($_ eq 'HT') { } |
|
|
0 |
0 |
elsif ($_ eq 'HG') { } |
|
|
0 |
0 |
elsif ($_ eq 'LT') { } |
|
|
0 |
0 |
elsif ($_ eq 'A4') { } |
|
171
|
0 |
0 |
if ($pgPerOutputPage == 4) { } |
|
174
|
0 |
0 |
if ($_ >= 13) { } |
|
|
0 |
0 |
elsif ($_ >= 9) { } |
|
|
0 |
0 |
elsif ($_ >= 5) { } |
|
182
|
0 |
0 |
if ($_ >= 13) { } |
|
|
0 |
0 |
elsif ($_ >= 9) { } |
|
|
0 |
0 |
elsif ($_ >= 5) { } |
|
192
|
0 |
0 |
if $_ % $pgPerOutputPage == 0 |
|
194
|
0 |
0 |
if $target_page > $inpPgNum |
|
196
|
0 |
0 |
$_ % 4 > 1 ? : |
|
200
|
0 |
0 |
if $numPagImposed == $inpPgNum |
|
213
|
0 |
0 |
unless $Gpos |
|
214
|
0 |
0 |
if $Gstream |
|
227
|
0 |
0 |
unless $Gpos |
|
229
|
0 |
0 |
unless my $pagenumber = $param->{'page'} |
|
230
|
0 |
0 |
unless my $x = $param->{'x'} |
|
231
|
0 |
0 |
unless my $y = $param->{'y'} |
|
232
|
0 |
0 |
unless my $rotate = $param->{'rotate'} |
|
240
|
0 |
0 |
unless defined $refNr |
|
242
|
0 |
0 |
unless $refNr |
|
268
|
0 |
0 |
if (%GpageXObject) |
|
286
|
0 |
0 |
if exists $resources{$resourceDict} |
|
289
|
0 |
0 |
if keys %resources < 10 |
|
324
|
0 |
0 |
unless ($Gparents[0]) |
|
333
|
0 |
0 |
if $Gcounts[0] > 9 |
|
341
|
0 |
0 |
unless $Gpos |
|
343
|
0 |
0 |
if $Gstream |
|
375
|
0 |
0 |
unless ($Gparents[$j]) |
|
406
|
0 |
0 |
defined $Gparents[0] ? : |
|
409
|
0 |
0 |
if (defined $Gparents[$i]) |
|
413
|
0 |
0 |
if ($Gparents[$j]) |
|
444
|
0 |
0 |
if ($rotate) |
|
463
|
0 |
0 |
if $buf =~ /Encrypt/ |
|
466
|
0 |
0 |
if ($buf =~ m[/Prev\s+\d]) { } |
|
|
0 |
0 |
elsif ($buf =~ /\bstartxref\s+(\d+)/) { } |
|
484
|
0 |
0 |
if $xref > (stat $GinFile)[7] |
|
487
|
0 |
0 |
unless $tempRoot |
|
501
|
0 |
0 |
if $readBytes =~ /^\s?(\d{10}) \d{5} n/ |
|
519
|
0 |
0 |
if ($readBytes =~ /^(xref$cr)/) { } |
|
|
0 |
0 |
elsif ($readBytes =~ /^\d+\s+\d+\s+obj/i) { } |
|
540
|
0 |
0 |
if $buf =~ m[\/Root\s+(\d+)\s+\d+\s+R]s |
|
551
|
0 |
0 |
unless defined $GObjects{$index} |
|
569
|
0 |
0 |
if ($objectContent =~ /^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)/s) { } |
|
576
|
0 |
0 |
if $objectContent =~ /^(\d+ \d+ obj\s*)/s |
|
596
|
0 |
0 |
unless $objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]s |
|
598
|
0 |
0 |
unless $objectContent =~ /MediaBox/s |
|
601
|
0 |
0 |
unless defined $GmediaBox[2] and defined $GmediaBox[3] |
|
608
|
0 |
0 |
if (alike($_, $Gpaper{'QuarterLetter'})) |
|
609
|
0 |
0 |
if (alike($_, $Gpaper{'A6'})) |
|
610
|
0 |
0 |
if (alike($_, $Gpaper{'HalfLetter'})) |
|
611
|
0 |
0 |
if (alike($_, $Gpaper{'QuarterLegal'})) |
|
612
|
0 |
0 |
if (alike($_, $Gpaper{'A5'})) |
|
613
|
0 |
0 |
if (alike($_, $Gpaper{'HalfLegal'})) |
|
614
|
0 |
0 |
if (alike($_, $Gpaper{'Letter'})) |
|
615
|
0 |
0 |
if (alike($_, $Gpaper{'A4'})) |
|
616
|
0 |
0 |
if (alike($_, $Gpaper{'Legal'})) |
|
617
|
0 |
0 |
if (alike($_, $Gpaper{'Tabloid'})) |
|
618
|
0 |
0 |
if (alike($_, $Gpaper{'A3'})) |
|
629
|
0 |
0 |
if $hxw > $namedHxw + $tolerance or $hxw < $namedHxw - $tolerance |
|
638
|
0 |
0 |
if $pagenumber > $GmaxPages |
|
646
|
0 |
0 |
unless $objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]s |
|
683
|
0 |
0 |
unless $objectContent =~ m(/Kids\s*\[([^\]]+))s |
|
692
|
0 |
0 |
unless @pageObjBackup |
|
695
|
0 |
0 |
if ($objectContent =~ m[/Count\s+(\d+)]s) { } |
|
696
|
0 |
0 |
if ($pageAccumulator + $1 < $pagenumber) { } |
|
699
|
0 |
0 |
if $objectContent =~ m(/Kids\s*\[([^\]]+))s |
|
706
|
0 |
0 |
if $pageAccumulator == $pagenumber |
|
720
|
0 |
0 |
unless (@GmediaBox) |
|
722
|
0 |
0 |
if (/MediaBox\s*\[\s*([\S]+)\s+([\S]+)\s+([\S]+)\s+([\S]+)\s*\]/s) { } |
|
|
0 |
0 |
elsif (/MediaBox\s*(\d+)\s+\d+\s+R\b/s) { } |
|
726
|
0 |
0 |
if $ref =~ /\[\s*([\S]+)\s+([\S]+)\s+([\S]+)\s+([\S]+)\s*\]/s |
|
732
|
0 |
0 |
if ($objContent =~ m[/Contents\s+(\d+)]s) { } |
|
|
0 |
0 |
elsif ($objContent =~ m(/Contents\s*\[\s*(\d+)\s+\d+\s+R\s*\])s) { } |
|
750
|
0 |
0 |
if ($objContent =~ m[^(.+/Resources)]s) |
|
751
|
0 |
0 |
if $objContent =~ /Resources\s+(\d+\s+\d+\s+R)/s |
|
758
|
0 |
0 |
if (/\S/s) |
|
760
|
0 |
0 |
if /<
|
|
761
|
0 |
0 |
if />>/s |
|
762
|
0 |
0 |
if $k == 0 |
|
775
|
0 |
0 |
unless eval {
do {
$objectContent = getContentOfObjectNr($GrootNr);
1
}
} |
|
776
|
0 |
0 |
if ($objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]s) |
|
778
|
0 |
0 |
if $objectContent =~ m[/Count\s+(\d+)]s |
|
790
|
0 |
0 |
unless open $IN_FILE, "<", $GinFile |
|
795
|
0 |
0 |
if $c ne "%PDF-" |
|
799
|
0 |
0 |
unless $GrootNr > 0 |
|
832
|
0 |
0 |
if exists $known{$1} |
|
852
|
0 |
0 |
if $readBytes =~ /^(\d+)\s+(\d+)/ |
|
860
|
0 |
0 |
if $Gpos |
|
865
|
0 |
0 |
unless open $OUT_FILE, ">", $outputfile |