| 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) { } |