Branch Coverage

blib/lib/App/paperback.pm
Criterion Covered Total %
branch 0 208 0.0


line true false branch
144 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$/)
153 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') { }
167 0 0 if ($pgPerOutputPage == 4) { }
170 0 0 if ($_ >= 13) { }
0 0 elsif ($_ >= 9) { }
0 0 elsif ($_ >= 5) { }
178 0 0 if ($_ >= 13) { }
0 0 elsif ($_ >= 9) { }
0 0 elsif ($_ >= 5) { }
188 0 0 if $_ % $pgPerOutputPage == 0
190 0 0 if $target_page > $inpPgNum
192 0 0 $_ % 4 > 1 ? :
196 0 0 if $numPagImposed == $inpPgNum
209 0 0 unless $Gpos
210 0 0 if $Gstream
223 0 0 unless $Gpos
225 0 0 unless my $pagenumber = $param->{'page'}
226 0 0 unless my $x = $param->{'x'}
227 0 0 unless my $y = $param->{'y'}
228 0 0 unless my $rotate = $param->{'rotate'}
236 0 0 unless defined $refNr
238 0 0 unless $refNr
278 0 0 if exists $resources{$resourceDict}
281 0 0 if keys %resources < 10
316 0 0 unless ($Gparents[0])
325 0 0 if $Gcounts[0] > 9
333 0 0 unless $Gpos
335 0 0 if $Gstream
367 0 0 unless ($Gparents[$j])
398 0 0 defined $Gparents[0] ? :
401 0 0 if (defined $Gparents[$i])
405 0 0 if ($Gparents[$j])
436 0 0 if ($rotate)
455 0 0 if $buf =~ /Encrypt/
458 0 0 if ($buf =~ m[/Prev\s+\d]) { }
0 0 elsif ($buf =~ /\bstartxref\s+(\d+)/) { }
476 0 0 if $xref > &getInputFileWeight
479 0 0 unless $tempRoot
493 0 0 if $readBytes =~ /^\s?(\d{10}) \d{5} n/
511 0 0 if ($readBytes =~ /^(xref$cr)/) { }
0 0 elsif ($readBytes =~ /^\d+\s+\d+\s+obj/) { }
532 0 0 if $buf =~ m[\/Root\s+(\d+)\s+\d+\s+R]
543 0 0 unless defined $GObjects{$index}
561 0 0 if ($objectContent =~ /^(\d+ \d+ obj\s*<<)(.+)(>>\s*stream)/s) { }
568 0 0 if $objectContent =~ /^(\d+ \d+ obj)\b/
584 0 0 unless &getPageSizeAndSetMediabox
592 0 0 if (alike($_, $Gpaper{'QuarterLetter'}))
593 0 0 if (alike($_, $Gpaper{'A6'}))
594 0 0 if (alike($_, $Gpaper{'HalfLetter'}))
595 0 0 if (alike($_, $Gpaper{'QuarterLegal'}))
596 0 0 if (alike($_, $Gpaper{'A5'}))
597 0 0 if (alike($_, $Gpaper{'HalfLegal'}))
598 0 0 if (alike($_, $Gpaper{'Letter'}))
599 0 0 if (alike($_, $Gpaper{'A4'}))
600 0 0 if (alike($_, $Gpaper{'Legal'}))
601 0 0 if (alike($_, $Gpaper{'Tabloid'}))
602 0 0 if (alike($_, $Gpaper{'A3'}))
613 0 0 if $hxw > $namedHxw + $tolerance or $hxw < $namedHxw - $tolerance
622 0 0 if $pagenumber > &getInputPageCount
630 0 0 unless $objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]
667 0 0 unless $objectContent =~ m(/Kids\s*\[([^\]]+))
676 0 0 unless @pageObjBackup
679 0 0 if ($objectContent =~ m[/Count\s+(\d+)]) { }
680 0 0 if ($pageAccumulator + $1 < $pagenumber) { }
683 0 0 if $objectContent =~ m(/Kids\s*\[([^\]]+))
690 0 0 if $pageAccumulator == $pagenumber
704 0 0 unless $objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R]
706 0 0 unless $objectContent =~ /MediaBox/
710 0 0 unless (@GmediaBox)
712 0 0 if (/MediaBox\s*\[\s*([\S]+)\s+([\S]+)\s+([\S]+)\s+([\S]+)\s*\]/) { }
0 0 elsif (/MediaBox\s*(\d+)\s+\d+\s+R\b/) { }
716 0 0 if ($ref =~ /\[\s*([\S]+)\s+([\S]+)\s+([\S]+)\s+([\S]+)\s*\]/) { }
736 0 0 if ($objContent =~ m[/Contents\s+(\d+)]) { }
0 0 elsif ($objContent =~ m(/Contents\s*\[\s*(\d+)\s+\d+\s+R\s*\])) { }
752 0 0 if $objContent =~ /Resources\s+(\d+\s+\d+\s+R)/
753 0 0 if ($objContent =~ m[^.+/Resources]s)
760 0 0 if (/\S/)
762 0 0 if /<
763 0 0 if />>/
764 0 0 if $k == 0
776 0 0 if defined $maxPages
779 0 0 unless eval { do { $objectContent = getContentOfObjectNr($GrootNr); 1 } }
780 0 0 if ($objectContent =~ m[/Pages\s+(\d+)\s+\d+\s+R])
782 0 0 if $objectContent =~ m[/Count\s+(\d+)]
793 0 0 unless &getInputFileWeight
795 0 0 unless open $IN_FILE, "<", $GinFile
799 0 0 if $c ne "%PDF-"
803 0 0 unless $GrootNr > 0
816 0 0 unless $known
854 0 0 if exists $known{$1}
871 0 0 if $readBytes =~ /^(\d+)\s+(\d+)/
879 0 0 if $Gpos
884 0 0 unless open $OUT_FILE, ">", $outputfile