Branch Coverage

lib/PostScript/Simple.pm
Criterion Covered Total %
branch 149 226 65.9


line true false branch
426 5 510 if (ref $u eq 'ARRAY') { }
429 2 3 if @$u != 2
431 508 2 if ($u =~ /^\s*(\d+(?:\.\d+)?)\s*([a-z][a-z])?\s*$/)
437 2 511 unless defined $val
438 0 511 unless defined $unit
440 1 510 unless defined $psunits{$unit}
442 15 495 unless (defined $$self{'usedunits'}{$unit})
446 10 5 unless $m == 1
447 6 9 unless $d == 1
453 497 13 if defined $rev
490 9 0 if (defined $psunits{$$self{'units'}}) { }
498 3 6 if (defined $$self{'papersize'})
502 6 3 if (not defined $$self{'xsize'} && defined $$self{'ysize'}) { }
503 3 3 if (defined $$self{'papersize'} and defined $pspaper{$$self{'papersize'}}) { }
518 2 7 unless ($$self{'eps'})
525 0 9 if ($$self{'landscape'}) { }
542 0 0 if ($$self{'eps'})
548 0 9 if ($$self{'clip'})
556 0 0 if ($$self{'eps'})
560 8 1 if ($$self{'reencode'})
564 0 8 if (ref $$self{'reencode'} eq 'ARRAY') { }
708 2 3 if (defined $nextpage)
710 1 4 if ($$self{'eps'})
716 2 2 if ($$self{'pspagecount'} != 0)
722 2 2 if ($$self{'page'} >= 0) { }
730 0 4 if ($$self{'landscape'})
731 0 4 if ($$self{'clip'})
733 0 4 if $x < 0
734 0 4 if $y < 0
735 0 4 if $x != 0 or $y != 0
763 0 4 unless $title
769 4 0 unless $user
773 2 2 if $$self{'eps'}
782 2 2 if ($$self{'eps'}) { }
803 2 2 if (length $$self{'pssetup'} or $$self{'copies'} > 1)
805 0 2 if ($$self{'copies'} > 1)
814 2 2 if (not $$self{'eps'} and $$self{'pspagecount'} > 0)
821 0 4 if (length $$self{'pstrailer'})
843 0 4 unless open OUT, '>', $file
846 18 81 if (ref $i eq 'SCALAR') { }
880 0 0 if (ref $i eq 'SCALAR') { }
912 0 0 unless $$self{'eps'} == 1
944 10 42 if (@_ == 1)
946 9 1 if (defined $pscolours{$r}) { }
955 0 51 unless (defined $r)
956 0 51 unless (defined $g)
957 2 49 unless (defined $b)
959 2 49 if ($bad)
970 49 0 if ($$self{'colour'}) { }
1005 1 3 if $width eq 'thin'
1041 0 4 unless ($$self{'pspagecount'} or $$self{'eps'})
1046 3 9 if (@_ == 7) { }
2 7 elsif (@_ != 4) { }
1087 1 5 unless (@_ == 2)
1136 0 0 if (ref $_[0])
1140 0 0 unless ($$self{'pspagecount'} or $$self{'eps'})
1147 0 0 unless (@_ == 5)
1154 0 0 if ($opt{'filled'}) { }
1219 1 26 if ($#_ < 3)
1225 24 2 if (ref $_[0])
1232 22 4 if (defined $opt{'rotate'})
1233 20 2 if (ref $opt{'rotate'}) { }
1240 21 5 if (defined $opt{'offset'})
1241 21 0 if (ref $opt{'offset'}) { }
1249 6 20 unless (defined $opt{'filled'})
1253 0 26 unless (defined $x and defined $y)
1258 23 3 $xoffset || $yoffset || $rotate ? :
1260 23 3 if ($savestate)
1264 3 23 if ($xoffset or $yoffset)
1268 21 5 if ($rotate)
1269 3 18 unless ($$self{'usedrotabout'})
1288 2 24 if ($opt{'filled'}) { }
1294 23 3 if ($savestate)
1331 2 4 if (ref $_[0])
1337 2 4 unless (@_ == 3)
1342 3 1 unless ($$self{'usedcircle'})
1348 2 2 if ($opt{'filled'}) { }
1386 0 0 if (ref $_[0])
1392 0 0 unless (@_ == 5)
1397 0 0 unless (defined $$self{'lastfontsize'})
1402 0 0 unless ($$self{'usedcircletext'})
1463 0 0 if ($opt{'align'} and $opt{'align'} eq 'outside') { }
1508 36 5 if (ref $_[0])
1514 1 40 unless (@_ == 4)
1519 4 36 unless (defined $opt{'filled'})
1523 4 36 unless ($$self{'usedbox'})
1536 36 4 if ($opt{'filled'}) { }
1561 1 3 unless (@_ == 2)
1617 5 14 if (ref $_[0])
1621 2 17 unless (@_ == 3)
1629 1 16 unless (defined $x and defined $y and defined $text)
1643 3 13 if (defined $opt{'rotate'})
1645 3 0 if ($rot_a != 0)
1655 3 13 if (defined $opt{'align'})
1656 1 2 if $opt{'align'} eq 'right'
1658 1 2 if $opt{'align'} eq 'center' or $opt{'align'} eq 'centre'
1682 1 1 unless (@_ == 8)
1687 0 1 unless ($$self{'pspagecount'} or $$self{'eps'})
1718 1 1 unless (@_ == 6)
1836 0 0 if (ref $_[0])
1842 0 0 unless (@_ == 5)
1847 0 0 unless defined $opt{'overlap'}
1848 0 0 unless defined $opt{'stretch'}
1859 0 0 if ($bbw == 0 or $bbh == 0)
1867 0 0 if ($opt{'stretch'} == 0)
1868 0 0 if ($opt{'overlap'} == 0) { }
1869 0 0 if ($scalex > $scaley) { }
1875 0 0 if ($scalex > $scaley) { }
1925 0 0 unless (@_ == 3)
1946 0 0 if (ref $_[0] ne 'PostScript::Simple::EPS')
1950 0 0 unless ($$self{'pspagecount'} or $$self{'eps'})
1956 0 0 if (@_ != 3)
1961 0 0 unless ($$self{'usedimporteps'})