Branch Coverage

blib/lib/PostScript/Poster.pm
Criterion Covered Total %
branch 0 108 0.0


line true false branch
78 0 0 unless exists $args{-'media'}
79 0 0 unless exists $args{-'cutmargin'}
80 0 0 unless exists $args{-'whitemargin'}
82 0 0 if ($args{-'scale'} and $args{-'poster'})
87 0 0 if ($mediasize[3] < $mediasize[2])
90 0 0 if ($mediasize[2] - $mediasize[0] <= 10 or $mediasize[3] - $mediasize[1] <= 10)
97 0 0 unless $args{-'scale'} or $args{-'poster'}
102 0 0 unless defined $ihandle
105 0 0 unless (defined $ohandle)
114 0 0 unless (/^%/)
115 0 0 unless $inbody
116 0 0 if $atend
118 0 0 if (/^%%\+/ and $dsc_cont)
120 0 0 if $atend
0 0 if (/^%%EndComments/i) { }
0 0 elsif (/^%%Begin(Document|Data)/i) { }
0 0 elsif (/^%%End(Document|Data)/i) { }
0 0 elsif (/^%%Trailer/i and not $level) { }
0 0 elsif (/^%%BoundingBox:/i and $inbody != 1 and not $level) { }
0 0 elsif (/^%%Document/i and $inbody != 1 and not $level) { }
126 0 0 if ($readed =~ /^(atend)/i) { }
130 0 0 if ($readed =~ /^(atend)/i) { }
135 0 0 unless @psbb or $args{-'insize'}
137 0 0 if ($args{-'insize'}) { }
143 0 0 if ($imagebb[2] - $imagebb[0] <= 0 or $imagebb[3] - $imagebb[2] <= 0)
152 0 0 if ($args{-'scale'}) { }
154 0 0 if ($scale < 0.01 or $scale > 1000000)
170 0 0 if ($tmp[0] != 0 or $tmp[1] != 0)
174 0 0 if ($tmp[2] - $tmp[0] <= 0 or $tmp[3] - $tmp[1] <= 0)
177 0 0 if ($tmp[3] - $tmp[1] < $tmp[2] - $tmp[0])
181 0 0 if ($imagebb[3] - $imagebb[1] < $imagebb[2] - $imagebb[0])
198 0 0 $rotate ? :
199 0 0 $rotate ? :
201 0 0 if ($nrows * $ncols > 400)
205 0 0 $rotate ? :
206 0 0 $rotate ? :
209 0 0 if (not $args{-'scale'}) { }
213 0 0 $scalex < $scaley ? :
314 0 0 $rotate ? :
356 0 0 unless $buf[$bp] =~ /^%/
359 0 0 if ($buf[$bp] =~ s/\x4//)
361 0 0 if not $buf[$bp] =~ /^%/ and $buf[$bp]
372 0 0 if $tail_cntl_D
421 0 0 if ($boxspec =~ s/^\s*(\d+(?:\.\d+)?)\s*[x*]\s*(\d+(?:\.\d+)?)\s*//)
426 0 0 if ($boxspec =~ s/^+(\d+(?:\.\d+)?)\s*,\s*(\d+(?:\.\d+)?)\s*//)
433 0 0 if ($PostScript::Poster::mediatable{$boxspec}) { }
437 0 0 if ($boxspec =~ /$_/)
441 0 0 if $n > 1
442 0 0 unless $n
445 0 0 if ($PostScript::Poster::mediatable{$key} =~ /^(.*),(.*)$/)
450 0 0 if ($psbox[$_] < 0 or $psbox[$_ + 2] < $psbox[$_])
469 0 0 if (not $marginspec) { }
0 0 elsif ($marginspec =~ /^(.*)%$/) { }
480 0 0 if ($margin[$_] < 0 or 2 * $margin[$_] >= $$obj{'mediasize'}[$_ + 2])