Branch Coverage

blib/lib/PDF/Builder/Util.pm
Criterion Covered Total %
branch 73 192 38.0


line true false branch
131 1486 746 if ($n) { }
142 746 1486 if abs $f < 1e-16
144 1589 643 if (abs $f - int($f) < 10 ** (-$mxd)) { }
0 643 elsif ($ad > 0) { }
175 2 4 $n > $_ ? :
181 5 1 $n < $_ ? :
223 0 26 if ($s == 0)
236 5 21 if ($i < 1) { }
4 17 elsif ($i < 2) { }
3 14 elsif ($i < 3) { }
5 9 elsif ($i < 4) { }
3 6 elsif ($i < 5) { }
271 1 5 if ($h < 60) { }
2 3 elsif ($h < 180) { }
1 2 elsif ($h < 240) { }
293 2 0 if ($delta > 1e-09) { }
301 0 2 if ($rr == $max) { }
1 1 elsif ($gg == $max) { }
309 0 2 if ($h < 0)
325 0 0 if ($delta < 1e-11) { }
328 0 0 if ($l <= 0.5) { }
340 0 2 if ($l <= 0.5) { }
346 0 2 if ($s < 1e-13) { }
361 0 0 if ($ab > 0.45) { }
383 0 21 if (length $name < 5) { }
21 0 elsif (length $name < 8) { }
0 0 elsif (length $name < 11) { }
414 0 2 if (length $name < 6) { }
2 0 elsif (length $name < 10) { }
0 0 elsif (length $name < 14) { }
449 1 27 if (length $name < 5) { }
25 2 elsif (length $name < 8) { }
0 2 elsif (length $name < 11) { }
480 0 0 if (length $name < 5) { }
0 0 elsif (length $name < 8) { }
0 0 elsif (length $name < 11) { }
504 66 0 unless (ref $name)
509 19 47 if ($name =~ /^[a-z]/) { }
21 26 elsif ($name =~ /^#/) { }
0 26 elsif ($name =~ /^%/) { }
26 0 elsif ($name =~ /^!/) { }
0 0 elsif ($name =~ /^&/) { }
520 0 0 unless $name
527 2 0 unless (ref $name)
532 0 2 if ($name =~ /^[a-z]/) { }
0 2 elsif ($name =~ /^#/) { }
2 0 elsif ($name =~ /^%/) { }
0 0 elsif ($name =~ /^!/) { }
0 0 elsif ($name =~ /^&/) { }
543 0 0 unless $name
551 2 0 unless (ref $name)
556 0 2 if ($name =~ /^[a-z]/) { }
0 2 elsif ($name =~ /^\$/) { }
0 2 elsif ($name =~ /^#/) { }
0 2 elsif ($name =~ /^!/) { }
2 0 elsif ($name =~ /^&/) { }
581 0 0 unless $name
598 7 0 if (defined $filter)
601 0 7 unless (ref($filter) =~ /Array$/)
621 4 0 if (defined $filter)
624 0 4 unless (ref($filter) =~ /Array$/)
662 0 13109 if ($e =~ /^uni([0-9A-F]{4})$/)
678 0 0 if defined $PDF::Builder::Util::n2u{$name}
717 23 203 if (defined $x2) { }
11 192 elsif (defined $y1) { }
191 1 elsif (defined $PDF::Builder::Util::PaperSizes{lc $x1}) { }
0 1 elsif ($x1 =~ /^[\d\.]+$/) { }
827 0 0 if ($units[$defUnitIdx] eq $defUnit)
830 0 0 if ($defUnitIdx >= @units)
835 0 0 if ($string eq '')
837 0 0 if ($string =~ /^([.0-9-]+)$/i) { }
0 0 elsif ($string =~ /^([.0-9-]+)(.*)$/i) { }
847 0 0 if ($unit ne '')
849 0 0 if ($units[$unitIdx] eq $unit)
852 0 0 if ($unitIdx >= @units)
861 0 0 if ($value =~ /^-/)
865 0 0 if ($type =~ /^[fi]/) { }
870 0 0 if ($type =~ /^i/) { }
871 0 0 unless ($value =~ /^\d+$/)
875 0 0 unless ($value =~ /^\.\d+$/ or $value =~ /^\d+\.\d+$/ or $value =~ /^\d+\.?$/)
884 0 0 if ($unit eq '' or $unit eq $defUnit) { }
894 0 0 if ($type ne '')
902 0 0 if ($type =~ /^c/)
913 0 0 if ($type =~ /^([\[\(])([^,]+),([^\]\)]+)([\]\)])$/) { }
918 0 0 unless ($lbInf)
921 0 0 if ($lb =~ /^-?\.\d+$/ or $lb =~ /^-?\d+\.\d+/ or $lb =~ /^-?\d+\.?$/) { }
925 0 0 if ($lbInc and $value < $lb)
926 0 0 if ($clamp) { }
929 0 0 if (not $lbInc and $value <= $lb)
930 0 0 if ($clamp) { }
937 0 0 unless ($ubInf)
940 0 0 if ($ub =~ /^-?\.\d+$/ or $ub =~ /^-?\d+\.\d+/ or $ub =~ /^-?\d+\.?$/) { }
944 0 0 if ($ubInc and $value > $ub)
945 0 0 if ($clamp) { }
948 0 0 if (not $ubInc and $value >= $ub)
949 0 0 if ($clamp) { }