Branch Coverage

blib/lib/Math/Fractal/Noisemaker.pm
Criterion Covered Total %
branch 341 590 57.8


line true false branch
197 0 0 if $warning
231 0 0 if $warning
240 0 196 if ($arg =~ /(-h$|help)/)
241 0 0 if ($_[0] and lc $_[0] eq 'types') { }
0 0 elsif ($_[0] and lc $_[0] eq 'moretypes') { }
0 0 elsif ($_[0] and lc $_[0] eq 'more') { }
252 39 157 if ($arg =~ /(^|-)type/) { }
0 157 elsif ($arg =~ /stype/) { }
0 157 elsif ($arg =~ /lbase/) { }
0 157 elsif ($arg =~ /ltype/) { }
0 157 elsif ($arg =~ /amp/) { }
0 157 elsif ($arg =~ /freq/) { }
39 118 elsif ($arg =~ /len/) { }
0 118 elsif ($arg =~ /octaves/) { }
0 118 elsif ($arg =~ /bias/) { }
0 118 elsif ($arg =~ /persist/) { }
0 118 elsif ($arg =~ /qual/) { }
0 118 elsif ($arg =~ /interp$/) { }
0 118 elsif ($arg =~ /grow$/) { }
0 118 elsif ($arg =~ /gap/) { }
0 118 elsif ($arg =~ /feather/) { }
0 118 elsif ($arg =~ /layers/) { }
0 118 elsif ($arg =~ /smooth/) { }
1 117 elsif ($arg =~ /(^|-)out$/) { }
0 117 elsif ($arg =~ /sphere/) { }
0 117 elsif ($arg =~ /refract/) { }
0 117 elsif ($arg =~ /displace/) { }
0 117 elsif ($arg =~ /clut$/) { }
0 117 elsif ($arg =~ /clutdir$/) { }
0 117 elsif ($arg =~ /limit/) { }
0 117 elsif ($arg =~ /zoom/) { }
0 117 elsif ($arg =~ /maxiter/) { }
0 117 elsif ($arg =~ /shadow/) { }
0 117 elsif ($arg =~ /emboss/) { }
39 78 elsif ($arg =~ /(^|-)in$/) { }
0 78 elsif ($arg =~ /zshift/) { }
0 78 elsif ($arg =~ /nth/) { }
0 78 elsif ($arg =~ /cell/) { }
0 78 elsif ($arg =~ /dist/) { }
0 78 elsif ($arg =~ /delta/) { }
0 78 elsif ($arg =~ /chiral/) { }
0 78 elsif ($arg =~ /stereo/) { }
0 78 elsif ($arg =~ /tile/) { }
0 78 elsif ($arg =~ /xscale/) { }
0 78 elsif ($arg =~ /yscale/) { }
39 39 elsif ($arg =~ /quiet/) { }
0 39 elsif ($arg =~ /format/) { }
39 0 elsif ($arg =~ /outdir/) { }
275 0 0 shift() ? :
297 0 39 if $args{'clut'} and not -e $args{'clut'}
302 0 39 if (defined $q)
303 0 0 if $q =~ s/\+$//
305 0 0 if ($q == 0) { }
0 0 elsif ($q == 1) { }
0 0 elsif ($q == 2) { }
0 0 elsif ($q == 3) { }
306 0 0 unless defined $args{'smooth'}
307 0 0 unless defined $args{'interp'}
308 0 0 unless defined $args{'grow'}
310 0 0 unless defined $args{'smooth'}
311 0 0 unless defined $args{'interp'}
312 0 0 unless defined $args{'grow'}
314 0 0 unless defined $args{'smooth'}
315 0 0 unless defined $args{'interp'}
316 0 0 unless defined $args{'grow'}
318 0 0 unless defined $args{'smooth'}
319 0 0 unless defined $args{'interp'}
320 0 0 unless defined $args{'grow'}
335 39 0 unless (defined $args{'interp'})
339 39 0 $args{'interp'} ? :
341 0 39 if ($args{'grow'}) { }
347 39 0 unless (defined $args{'smooth'})
354 0 39 if ($args{'shadow'} and $args{'emboss'})
358 0 39 if ($args{'type'} eq 'terra' and $args{'lbase'} =~ /[prs]gel/ || $args{'ltype'} =~ /[prs]gel/ || $args{'stype'} =~ /[prs]gel/) { }
0 39 elsif ($args{'type'} eq 'terra' and $args{'lbase'} eq 'gel' || $args{'ltype'} eq 'gel' || $args{'stype'} eq 'gel') { }
380 0 39 unless ($Imager::formats{$format})
388 39 0 if ($args{'outdir'})
389 0 39 unless -e $args{'outdir'}
394 39 0 if ($args{'upsample'})
402 39 715 if ($args{'type'} eq $type)
415 0 39 unless ($grid)
419 0 39 if ($args{'refract'})
423 0 39 if (defined $args{'xscale'} or defined $args{'yscale'})
427 0 39 if ($args{'sphere'})
433 0 39 if ($args{'delta'} or $args{'chiral'})
437 0 0 if ($args{'type'} eq $type)
450 0 0 if ($args{'delta'}) { }
457 0 39 if ($args{'stereo'})
461 39 0 if ($args{'upsample'})
470 0 39 unless $img->write('file', $args{'out'})
472 0 39 unless $QUIET
480 129 209 unless defined $args{'bias'}
492 137 201 if not defined $args{'auto'} and $args{'type'} ne 'fern'
494 120 218 unless defined $args{'amp'}
503 0 39 unless $QUIET
507 0 39 $args{'sphere'} ? :
517 39 0 unless $args{'clut'}
526 38 1 if ($args{'auto'})
533 38 38874 unless defined $min
534 38 38874 unless defined $max
536 401 38511 if $gray < $min
537 316 38596 if $gray > $max
555 38912 1024 if ($args{'auto'}) { }
556 38912 0 $range ? :
567 0 39 if ($args{'clut'} and $args{'clutdir'}) { }
0 39 elsif ($args{'clut'}) { }
572 0 39 if ($args{'emboss'} and not $args{'shadow'})
594 0 39 if ($args{'shadow'} and not $args{'emboss'})
610 0 0 if ($embColor < 0.65) { }
630 0 0 if $x % 2 == 0
694 3136 60032 unless ($smooth)
732 0 0 $args{'smooth'} ? :
799 0 3 unless $QUIET
805 0 3 unless $img->read('file', $args{'in'})
810 0 3 $width > $height ? :
840 0 1 unless $QUIET
843 1 0 unless defined $args{'freq'}
851 0 1 unless defined $args{'amp'}
856 0 1 unless $QUIET
890 1 1 unless defined $args{'freq'}
904 0 2 if ($args{'points'}) { }
916 2 0 unless (defined $nth)
921 0 2 $cell ? :
929 10240 0 if ($distType == 0 or $distType == 3)
934 0 10240 if ($distType == 1)
940 0 10240 if ($distType == 2)
943 0 0 $xdist > $ydist ? :
947 256 256 if ($distType == 3) { }
976 0 45 unless $QUIET
979 2 43 unless defined $args{'freq'}
988 0 45 unless defined $args{'amp'}
993 0 45 unless $QUIET
1009 766 4082 if (rand() < $gap)
1016 4080 2 unless ($stars)
1017 2030 2050 if rand 1 >= 0.5
1032 0 3 unless $QUIET
1042 3 0 $args{'smooth'} ? :
1048 0 1 unless $QUIET
1050 1 0 unless defined $args{'displace'}
1063 0 4 unless $QUIET
1070 0 4 unless defined $displace
1100 0 3 unless $QUIET
1108 0 3 unless defined $amp
1113 0 3 if $args{'grid'}
1115 0 3 unless $QUIET
1133 92 100 if rand 1 >= 0.5
1158 111 81 if rand 1 >= 0.5
1180 190 194 if rand 1 >= 0.5
1185 2 1 $args{'smooth'} ? :
1194 1 0 unless defined $args{'displace'}
1196 0 1 unless $QUIET
1206 0 14 unless $QUIET
1208 3 11 unless defined $args{'amp'}
1222 0 14 unless $QUIET
1225 11 36 if $freq > $length
1227 0 36 unless $QUIET
1232 36 972 if ($args{'stype'} eq $type)
1240 0 36 unless ($generator)
1266 5 9 if ($args{'ridged'})
1267 1 4 unless defined $args{'zshift'}
1284 2304 11520 if ($args{'ridged'}) { }
1291 1024 4096 if ($n and $args{'ridged'}) { }
3840 256 elsif ($n) { }
1312 0 1 unless $QUIET
1322 0 1 unless $QUIET
1326 1 0 unless defined $args{'displace'}
1336 0 1 unless $QUIET
1338 0 1 defined $args{'dist'} ? :
1339 0 1 defined $args{'freq'} ? :
1340 0 1 defined $args{'displace'} ? :
1357 0 5 unless $QUIET
1359 1 4 unless defined $args{'bias'}
1360 1 4 unless defined $args{'amp'}
1369 0 0 unless $QUIET
1482 0 1 unless $QUIET
1484 1 0 unless defined $args{'amp'}
1485 1 0 unless defined $args{'feather'}
1510 0 4 unless $QUIET
1511 0 4 unless $QUIET
1515 4 0 if ($args{'ltype'} eq 'ridged') { }
1559 153 615 if ($value >= $level) { }
46 1138 elsif ($feather > 0 and $diff <= $feather or $feather < 0 and $diff <= $feather * -1) { }
1571 0 46 if ($feather < 0)
1607 2 72 if ($type eq $ltype)
1615 0 2 unless ($generator)
1626 0 1024 if $val < 0
1627 337 687 if $val > $max
1647 110816 44320 if ($thisX == $x and $thisY == $y)
1678 0 140750 unless $INTERP_FN
1688 0 0 if ($x < 0) { }
0 0 elsif ($x > 1) { }
1711 0 1 unless $QUIET
1713 1 0 unless defined $args{'amp'}
1715 1 0 unless defined $args{'freq'}
1750 0 1 unless $QUIET
1753 1 0 unless defined $args{'freq'}
1777 235 21 if ($i > 20)
1784 95 161 if ($rand < 1) { }
75 86 elsif ($rand < 2) { }
1854 0 1 unless $QUIET
1857 1 0 unless defined $args{'freq'}
1893 25580 20 if ($n >= 20)
1939 0 1506 if ($invert) { }
1965 0 1 unless $QUIET
1968 1 0 unless defined $args{'freq'}
1996 23 2537 if ($rand <= 0.01) { }
190 2347 elsif ($rand <= 0.08) { }
178 2169 elsif ($rand <= 0.15) { }
2041 0 2 unless $QUIET
2044 2 0 unless defined $args{'freq'}
2098 0 1 unless $QUIET
2101 1 0 unless defined $args{'freq'}
2130 4 32764 if ($pct > 0.99 and $pct < 1)
2188 0 1 unless $QUIET
2191 1 0 unless defined $args{'freq'}
2210 0 128 if rand() < $gap
2230 44 84 if $n == $iters
2231 83 1 if $n <= CORE::sqrt $iters
2267 0 0 unless $QUIET
2363 0 0 unless $QUIET
2366 0 0 unless $palette->read('file', $args{'clut'})
2409 0 0 unless $QUIET
2412 0 0 unless $palette->read('file', $args{'clut'})
2451 1 0 unless defined $args{'freq'}
2463 0 0 rand() >= 0.5 ? :
2465 0 1 unless defined $args{'amp'}
2473 0 8 if ($voronoi) { }
2503 476 34740 if ($column->get($y) < $color)
2512 0 1 if ($voronoi) { }
2546 1 0 if ($args{'in'}) { }
2551 0 0 if ($args{'points'}) { }
2578 0 5 if not $QUIET and $prev != @points
2590 64 19 if ($column->get($y) or $$grid[($x + 1) % $len]->get($y) or $$grid[($x - 1) % $len]->get($y) or $column->get(($y + 1) % $len) or $column->get(($y - 1) % $len) or $$grid[($x + 1) % $len]->get(($y + 1) % $len) or $$grid[($x + 1) % $len]->get(($y - 1) % $len) or $$grid[($x - 1) % $len]->get(($y - 1) % $len) or $$grid[($x - 1) % $len]->get(($y + 1) % $len)) { }
2608 1 4 unless @points
2662 1 1 unless defined $args{'freq'}
2675 1 1 if ($args{'tesla'}) { }
2701 256 1024 if ($args{'tesla'})
2722 1 1 if ($args{'tesla'})
2736 0 0 unless $QUIET
2773 1 8 defined $args{'tile'} ? :
2774 1 8 unless $dirs
2791 8 0 if ($dirs == 1 or $dirs == 2)
2799 1024 1024 if ($x < $border) { }
896 128 elsif ($len - $x < $border) { }
2820 8 0 if ($dirs == 1 or $dirs == 3)
2829 1024 1024 if ($y < $border) { }
896 128 elsif ($len - $y < $border) { }
2875 73 5815 if ($relativeHeading == 0) { }
73 5742 elsif ($relativeHeading == 90) { }
71 5671 elsif ($relativeHeading == 180) { }
78 5593 elsif ($relativeHeading == 270) { }
2889 0 8996 if $quadrant > 3
2903 1126 4467 if ($quadrant == 0) { }
1556 2911 elsif ($quadrant == 1) { }
1293 1618 elsif ($quadrant == 2) { }
2968 1 0 unless defined $args{'freq'}
3040 0 0 if ($n1col->get($y) > $n2col->get($y)) { }
3158 499 53948 if $nzp > 1e+60
3190 0 2 unless $QUIET
3193 2 0 unless defined $args{'freq'}
3224 1 1 unless defined $ZxMin
3225 1 1 unless defined $ZxMax
3226 1 1 unless defined $ZyMin
3227 1 1 unless defined $ZyMax
3253 2 30 if (abs $Z0y < $pixelHeight / 2)
3272 0 512 if ($i == $iters) { }
3276 292 220 if ($distance < $distanceMax) { }
3319 2 3064 if $dist == 0
3321 238 2826 if ($dist <= 0.25)
3338 2 858 if ($z == $prev)
3366 0 1 unless $QUIET
3369 1 0 unless defined $args{'freq'}
3380 1 0 unless defined $ZxMin
3381 1 0 unless defined $ZxMax
3382 1 0 unless defined $ZyMin
3383 1 0 unless defined $ZyMax
3443 1 0 unless $args{'octaves'}
3444 1 0 unless $args{'freq'}
3445 1 0 unless $args{'amp'}
3479 0 1 unless $args{'len'}
3480 1 0 unless $args{'octaves'}
3481 1 0 unless $args{'freq'}
3485 1 0 unless $args{'amp'}
3486 1 0 unless $args{'bias'}
3585 335 356 $h < 4 ? :
3586 335 356 $h < 4 ? :
3588 310 381 $h & 1 ? :
247 444 $h & 2 ? :
3622 108 164 if ($x0 > $y0) { }
3635 17 255 if ($t0 < 0) { }
3643 80 192 if ($t1 < 0) { }
3654 28 244 if ($t2 < 0) { }
3716 2080 0 if $QUIET
3746 0 0 if ($type eq 'terra') { }
0 0 elsif (grep {$_ eq $type;} @PERLIN_TYPES) { }