| line |
true |
false |
branch |
|
115
|
0 |
0 |
unless defined $input |
|
117
|
0 |
0 |
if print STDERR "$sayHelp" |
|
|
0 |
0 |
if ($input =~ /^-h$/ or $input =~ /^--help$/) |
|
119
|
0 |
0 |
if print STDERR "$sayVersion\n" |
|
|
0 |
0 |
if ($input =~ /^-v$/ or $input =~ /^--version$/) |
|
121
|
0 |
0 |
unless -r $input |
|
124
|
0 |
0 |
if $num_pag_input == 0 |
|
129
|
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') { } |
|
141
|
0 |
0 |
if ($pgPerOutputPage == 4) { } |
|
144
|
0 |
0 |
if ($_ >= 13) { } |
|
|
0 |
0 |
elsif ($_ >= 9) { } |
|
|
0 |
0 |
elsif ($_ >= 5) { } |
|
152
|
0 |
0 |
if ($_ >= 13) { } |
|
|
0 |
0 |
elsif ($_ >= 9) { } |
|
|
0 |
0 |
elsif ($_ >= 5) { } |
|
162
|
0 |
0 |
if $_ % $pgPerOutputPage == 0 |
|
164
|
0 |
0 |
if $target_page > $num_pag_input |
|
166
|
0 |
0 |
$_ % 4 > 1 ? : |
|
170
|
0 |
0 |
if $numPagImposed == $num_pag_input |
|
183
|
0 |
0 |
unless $Gpos |
|
184
|
0 |
0 |
if $Gstream |
|
197
|
0 |
0 |
unless $Gpos |
|
199
|
0 |
0 |
unless my $pagenumber = $param->{'page'} |
|
200
|
0 |
0 |
unless my $x = $param->{'x'} |
|
201
|
0 |
0 |
unless my $y = $param->{'y'} |
|
202
|
0 |
0 |
unless my $rotate = $param->{'rotate'} |
|
209
|
0 |
0 |
unless defined $refNr |
|
211
|
0 |
0 |
unless $refNr |
|
236
|
0 |
0 |
if (%GpageXObject) |
|
255
|
0 |
0 |
if exists $resources{$resourceDict} |
|
258
|
0 |
0 |
if keys %resources < 10 |
|
294
|
0 |
0 |
unless ($Gparents[0]) |
|
303
|
0 |
0 |
if $Gcounts[0] > 9 |
|
311
|
0 |
0 |
unless $Gpos |
|
313
|
0 |
0 |
if $Gstream |
|
345
|
0 |
0 |
unless ($Gparents[$j]) |
|
376
|
0 |
0 |
defined $Gparents[0] ? : |
|
378
|
0 |
0 |
if (defined $Gparents[$i]) |
|
382
|
0 |
0 |
if ($Gparents[$j]) |
|
413
|
0 |
0 |
if ($rotate) |
|
432
|
0 |
0 |
if $buf =~ /Encrypt/ |
|
435
|
0 |
0 |
if ($buf =~ m[/Prev\s+\d]) { } |
|
|
0 |
0 |
elsif ($buf =~ /\bstartxref\s+(\d+)/) { } |
|
453
|
0 |
0 |
if $xref > (stat $GinFile)[7] |
|
455
|
0 |
0 |
if defined $GrootNr |
|
457
|
0 |
0 |
unless $tempRoot |
|
471
|
0 |
0 |
if $readBytes =~ /^\s?(\d{10}) \d{5} n/ |
|
489
|
0 |
0 |
if ($readBytes =~ /^(xref$cr)/) { } |
|
|
0 |
0 |
elsif ($readBytes =~ /^\d+\s+\d+\s+obj/i) { } |
|
510
|
0 |
0 |
if $buf =~ m[\/Root\s+(\d+)\s+\d+\s+R]s |
|
521
|
0 |
0 |
unless defined $GObjects{$index} |
|
539
|
0 |
0 |
if ($objectContent =~ /^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)/s) { } |
|
546
|
0 |
0 |
if $objectContent =~ /^(\d+ \d+ obj\s*)/s |
|
566
|
0 |
0 |
unless $objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]s |
|
571
|
0 |
0 |
unless defined $GformBox[2] and defined $GformBox[3] |
|
578
|
0 |
0 |
if ($_ > 119780 and $_ < 121780) |
|
580
|
0 |
0 |
if ($_ > 123443 and $_ < 125443) |
|
582
|
0 |
0 |
if ($_ > 152720 and $_ < 154720) |
|
584
|
0 |
0 |
if ($_ > 241352 and $_ < 243352) |
|
586
|
0 |
0 |
if ($_ > 248305 and $_ < 250305) |
|
588
|
0 |
0 |
if ($_ > 307448 and $_ < 309448) |
|
590
|
0 |
0 |
if ($_ > 483704 and $_ < 485704) |
|
592
|
0 |
0 |
if ($_ > 499395 and $_ < 501395) |
|
594
|
0 |
0 |
if ($_ > 615896 and $_ < 617896) |
|
610
|
0 |
0 |
unless $objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]s |
|
653
|
0 |
0 |
unless $objectContent =~ m(/Kids\s*\[([^\]]+))s |
|
664
|
0 |
0 |
if ($objectContent =~ m[/Count\s+(\d+)]s) { } |
|
665
|
0 |
0 |
if ($pageAccumulator + $1 < $pagenumber) { } |
|
668
|
0 |
0 |
if $objectContent =~ m(/Kids\s*\[([^\]]+))s |
|
675
|
0 |
0 |
if $pageAccumulator == $pagenumber |
|
689
|
0 |
0 |
unless (@GformBox) |
|
690
|
0 |
0 |
if ($objContent =~ /MediaBox\s*\[\s*([\S]+)\s+([\S]+)\s+([\S]+)\s+([\S]+)\s*\]/s) |
|
695
|
0 |
0 |
if ($objContent =~ m[/Contents\s+(\d+)]s) { } |
|
|
0 |
0 |
elsif ($objContent =~ m(/Contents\s*\[\s*(\d+)\s+\d+\s+R\s*\])s) { } |
|
713
|
0 |
0 |
if ($objContent =~ m[^(.+/Resources)]s) |
|
714
|
0 |
0 |
if $objContent =~ /Resources\s+(\d+\s+\d+\s+R)/s |
|
721
|
0 |
0 |
if (/\S/s) |
|
723
|
0 |
0 |
if /<
|
|
724
|
0 |
0 |
if />>/s |
|
725
|
0 |
0 |
if $k == 0 |
|
739
|
0 |
0 |
unless open $IN_FILE, "<", $GinFile |
|
744
|
0 |
0 |
if $c ne "%PDF-" |
|
748
|
0 |
0 |
unless $GrootNr > 0 |
|
753
|
0 |
0 |
unless eval {
do {
$objectContent = getObjectContent($GrootNr);
1
}
} |
|
755
|
0 |
0 |
if ($objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]s) |
|
757
|
0 |
0 |
if $objectContent =~ m[/Count\s+(\d+)]s |
|
788
|
0 |
0 |
if exists $known{$1} |
|
808
|
0 |
0 |
if $readBytes =~ /^(\d+)\s+(\d+)/ |
|
816
|
0 |
0 |
if $Gpos |
|
821
|
0 |
0 |
unless open $OUT_FILE, ">", $outputfile |