| line |
true |
false |
branch |
|
128
|
1945 |
883 |
if ($n) { } |
|
139
|
883 |
1945 |
if abs $f < "1e-16" |
|
141
|
1973 |
855 |
if (abs $f - int($f) < 10 ** (-$mxd)) { } |
|
|
0 |
855 |
elsif ($ad > 0) { } |
|
172
|
2 |
4 |
$n > $_ ? : |
|
178
|
5 |
1 |
$n < $_ ? : |
|
220
|
0 |
26 |
if ($s == 0) |
|
233
|
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) { } |
|
268
|
1 |
5 |
if ($h < 60) { } |
|
|
2 |
3 |
elsif ($h < 180) { } |
|
|
1 |
2 |
elsif ($h < 240) { } |
|
290
|
2 |
0 |
if ($delta > 1e-09) { } |
|
298
|
0 |
2 |
if ($rr == $max) { } |
|
|
1 |
1 |
elsif ($gg == $max) { } |
|
306
|
0 |
2 |
if ($h < 0) |
|
322
|
0 |
0 |
if ($delta < 1e-11) { } |
|
325
|
0 |
0 |
if ($l <= 0.5) { } |
|
337
|
0 |
2 |
if ($l <= 0.5) { } |
|
343
|
0 |
2 |
if ($s < 1e-13) { } |
|
358
|
0 |
0 |
if ($ab > 0.45) { } |
|
380
|
0 |
23 |
if (length $name < 5) { } |
|
|
23 |
0 |
elsif (length $name < 8) { } |
|
|
0 |
0 |
elsif (length $name < 11) { } |
|
411
|
0 |
2 |
if (length $name < 6) { } |
|
|
2 |
0 |
elsif (length $name < 10) { } |
|
|
0 |
0 |
elsif (length $name < 14) { } |
|
446
|
1 |
27 |
if (length $name < 5) { } |
|
|
25 |
2 |
elsif (length $name < 8) { } |
|
|
0 |
2 |
elsif (length $name < 11) { } |
|
477
|
0 |
0 |
if (length $name < 5) { } |
|
|
0 |
0 |
elsif (length $name < 8) { } |
|
|
0 |
0 |
elsif (length $name < 11) { } |
|
501
|
70 |
0 |
unless (ref $name) |
|
506
|
21 |
49 |
if ($name =~ /^[a-z]/) { } |
|
|
23 |
26 |
elsif ($name =~ /^#/) { } |
|
|
0 |
26 |
elsif ($name =~ /^%/) { } |
|
|
26 |
0 |
elsif ($name =~ /^!/) { } |
|
|
0 |
0 |
elsif ($name =~ /^&/) { } |
|
517
|
0 |
0 |
unless $name |
|
524
|
2 |
0 |
unless (ref $name) |
|
529
|
0 |
2 |
if ($name =~ /^[a-z]/) { } |
|
|
0 |
2 |
elsif ($name =~ /^#/) { } |
|
|
2 |
0 |
elsif ($name =~ /^%/) { } |
|
|
0 |
0 |
elsif ($name =~ /^!/) { } |
|
|
0 |
0 |
elsif ($name =~ /^&/) { } |
|
540
|
0 |
0 |
unless $name |
|
548
|
2 |
0 |
unless (ref $name) |
|
553
|
0 |
2 |
if ($name =~ /^[a-z]/) { } |
|
|
0 |
2 |
elsif ($name =~ /^\$/) { } |
|
|
0 |
2 |
elsif ($name =~ /^#/) { } |
|
|
0 |
2 |
elsif ($name =~ /^!/) { } |
|
|
2 |
0 |
elsif ($name =~ /^&/) { } |
|
578
|
0 |
0 |
unless $name |
|
595
|
0 |
7 |
if (defined $filter) |
|
598
|
0 |
0 |
unless (ref($filter) =~ /Array$/) |
|
618
|
0 |
4 |
if (defined $filter) |
|
621
|
0 |
0 |
unless (ref($filter) =~ /Array$/) |
|
659
|
0 |
13109 |
if ($e =~ /^uni([0-9A-F]{4})$/) |
|
675
|
0 |
0 |
if defined $PDF::Builder::Util::n2u{$name} |
|
714
|
27 |
260 |
if (defined $x2) { } |
|
|
13 |
247 |
elsif (defined $y1) { } |
|
|
246 |
1 |
elsif (defined $PDF::Builder::Util::PaperSizes{lc $x1}) { } |
|
|
0 |
1 |
elsif ($x1 =~ /^[\d\.]+$/) { } |
|
824
|
0 |
0 |
if ($units[$defUnitIdx] eq $defUnit) |
|
827
|
0 |
0 |
if ($defUnitIdx >= @units) |
|
832
|
0 |
0 |
if ($string eq "") |
|
834
|
0 |
0 |
if ($string =~ /^([.0-9-]+)$/i) { } |
|
|
0 |
0 |
elsif ($string =~ /^([.0-9-]+)(.*)$/i) { } |
|
844
|
0 |
0 |
if ($unit ne "") |
|
846
|
0 |
0 |
if ($units[$unitIdx] eq $unit) |
|
849
|
0 |
0 |
if ($unitIdx >= @units) |
|
858
|
0 |
0 |
if ($value =~ /^-/) |
|
862
|
0 |
0 |
if ($type =~ /^[fi]/) { } |
|
867
|
0 |
0 |
if ($type =~ /^i/) { } |
|
868
|
0 |
0 |
unless ($value =~ /^\d+$/) |
|
872
|
0 |
0 |
unless ($value =~ /^\.\d+$/ or $value =~ /^\d+\.\d+$/ or $value =~ /^\d+\.?$/) |
|
881
|
0 |
0 |
if ($unit eq '' or $unit eq $defUnit) { } |
|
891
|
0 |
0 |
if ($type ne "") |
|
899
|
0 |
0 |
if ($type =~ /^c/) |
|
910
|
0 |
0 |
if ($type =~ /^([\[\(])([^,]+),([^\]\)]+)([\]\)])$/) { } |
|
915
|
0 |
0 |
unless ($lbInf) |
|
918
|
0 |
0 |
if ($lb =~ /^-?\.\d+$/ or $lb =~ /^-?\d+\.\d+/ or $lb =~ /^-?\d+\.?$/) { } |
|
922
|
0 |
0 |
if ($lbInc and $value < $lb) |
|
923
|
0 |
0 |
if ($clamp) { } |
|
926
|
0 |
0 |
if (not $lbInc and $value <= $lb) |
|
927
|
0 |
0 |
if ($clamp) { } |
|
934
|
0 |
0 |
unless ($ubInf) |
|
937
|
0 |
0 |
if ($ub =~ /^-?\.\d+$/ or $ub =~ /^-?\d+\.\d+/ or $ub =~ /^-?\d+\.?$/) { } |
|
941
|
0 |
0 |
if ($ubInc and $value > $ub) |
|
942
|
0 |
0 |
if ($clamp) { } |
|
945
|
0 |
0 |
if (not $ubInc and $value >= $ub) |
|
946
|
0 |
0 |
if ($clamp) { } |