Branch Coverage

blib/lib/PDL/Transform/Color.pm
Criterion Covered Total %
branch 75 198 37.8


line true false branch
368 16 1 if ($me->{'params'}{'gamma'} // 1) == 1
411 3 0 if ($opt->{'gamma'} != 1)
420 2 0 if ($opt->{'gamma'} != 1)
494 3 0 if $opt->{'display_gamma'} != 1 or $opt->{'byte'} or $opt->{'clip'}
495 1 3 if ($opt->{'display_gamma'} != 1)
499 4 0 if $opt->{'byte'}
506 0 2 if $opt->{'display_gamma'} != 1
507 2 0 if $opt->{'clip'}
567 5 0 if ($opt->{'byte'}) { }
0 0 elsif ($opt->{'clip'}) { }
899 0 0 0 + @_ % 2 ? :
900 0 0 defined $name ? :
909 1 1 unless (0 + @_)
914 23 3 $PDL::Transform::Color::pc_tab->{$k}{'phot'} ? :
923 1 0 (0 + @_) % 2 ? :
929 0 1 if ($lut_name =~ s/\-C([0-5])$//i)
936 0 1 unless ($lut_name)
957 0 1 unless (defined $PDL::Transform::Color::pc_tab->{$lut_name})
962 0 1 if defined $me->{'params'}{'domain'}
965 0 1 unless defined $me->{'params'}{'irange'}
966 0 1 unless (ref $me->{'params'}{'irange'} eq "ARRAY")
970 0 0 if ($me->{'params'}{'irange'}[0] == $me->{'params'}{'irange'}[1] and (defined $me->{'params'}{'irange'}[0] and defined $me->{'params'}{'irange'}[1]))
977 0 1 if ($mod_combo)
978 0 0 if $me->{'params'}{'combination'}
983 0 1 if ($me->{'params'}{'combination'} < 0 or $me->{'params'}{'combination'} > 5)
990 0 1 if ($me->{'params'}{'lut'}{'type'} eq 'hsv') { }
995 0 0 if ($me->{'params'}{'combination'})
1001 0 0 if $me->{'params'}{'combination'} > 2
1021 0 1 do { not defined $min } ? :
1 0 defined $min || defined $max ? :
1029 0 1 if ($min == $max or not isfinite($min) or not isfinite($max))
1039 0 1 if ($opt->{'lut'}{'split'})
1042 0 0 if ($split == 0.5) { }
1051 0 1 if ($opt->{'lut'}{'phot'} and $opt->{'perceptual'})
1056 1 0 if ($opt->{'clip'})
1057 0 1 if ($split) { }
1064 0 1 if (defined $opt->{'lut'}{'igamma'})
1068 0 1 if ($split)
1069 0 0 if ($split == 0.5) { }
1078 0 0 if ($opt->{'clip'})
1092 0 1 if (defined $opt->{'lut'}{'ogamma'})
1100 0 1 if ($me->{'params'}{'lut'}{'type'} eq "hsv")
1104 0 1 if (abs $me->{'params'}{'gamma'} - 1 > "1e-05")
1108 1 0 unless ($me->{'params'}{'lsRGB'})
1185 1 4 if (defined $me->{'params'}{'rgb_system'}) { }
1194 0 1 if $me->{'params'}{'use_system_gamma'}
1203 0 5 if ($in->is_inplace)
1214 0 5 if ($in->is_inplace)
1249 0 1 if ($in->is_inplace)
1261 0 0 if ($in->is_inplace)
1305 0 0 if ($XYZ->is_inplace)
1323 0 0 if ($in->is_inplace)
1388 0 4 if ($in->is_inplace)
1398 0 3 if ($in->is_inplace)
1481 0 2 if (defined $opt->{'htgamma'} and $opt->{'htgamma'} != 1)
1485 0 2 if ($opt->{'clip'})
1489 0 2 if ($opt->{'byte'})
1501 0 2 if ($opt->{'byte'})
1505 0 2 if (defined $opt->{'htgamma'} and $opt->{'htgamma'} != 1)
1598 1 1 if $me->{'params'}{'hsv'}
1613 0 2 if ($opt->{'hue_linear'}) { }
1635 1 1 if ($opt->{'hsv'}) { }
1644 0 2 if ($opt->{'lgamma'} != 1)
1648 0 2 if ($in->is_inplace)
1662 0 2 if ($opt->{'lgamma'} != 1)
1669 1 1 if ($opt->{'hsv'}) { }
1677 0 2 if ($opt->{'hue_linear'}) { }
1689 0 2 if ($in->is_inplace)
1766 0 0 unless (UNIVERSAL::isa($new_illuminant, "PDL"))
1769 0 0 unless (UNIVERSAL::isa($me->{'params'}{'from'}, "PDL"))
1774 0 0 if (UNIVERSAL::isa($me->{'params'}{'method'}, 'PDL')) { }
0 0 elsif ($me->{'params'}{'method'} =~ /^B/i or length $me->{'params'}{'method'} == 0) { }
0 0 elsif ($me->{'params'}{'method'} =~ /^[VK]/i) { }
0 0 elsif ($me->{'params'}{'method'} =~ /^[XC]/i) { }
1775 0 0 if ($me->{'params'}{'method'}->ndims == 2 and $me->{'params'}{'method'}->dim(0) == 3 and $me->{'params'}{'method'}->dim(1) == 3) { }
1809 0 0 if ($opt->{'basis'} =~ /^X/i) { }
1823 0 0 if ($opt->{'basis'} =~ /^X/i) { }
1830 0 0 if ($me->{'params'}{'gamma'} // 1) == 1
1905 0 0 if ($me->{'params'}{'use_system_gammas'}) { }
1911 0 0 unless defined $to_gamma
1974 0 22 if any($D < 40) or any($D > 250)
2093 0 24 if (UNIVERSAL::isa($name, "PDL"))
2094 0 0 if ($name->nelem == 2 || $name->nelem == 3 and $name->dim(0) == $name->nelem) { }
2104 0 24 if ($name =~ /^A/i) { }
0 24 elsif ($name =~ /^B/) { }
1 23 elsif ($name =~ /^C/) { }
22 1 elsif ($name =~ /^D(.*)$/i) { }
1 0 elsif ($name =~ /^E/i) { }
0 0 elsif ($name =~ /^FL?([\d+])(\.[\d])?$/i) { }
0 0 elsif ($name =~ /^HP?(\d)/i) { }
0 0 elsif ($name =~ /^L/i) { }
2117 0 0 if $flno < 1 or $flno > 12 or $flsubno and $flno != 3 or $flsubno > 15
2123 0 0 if ($flno == 3 and $flsubno) { }
2130 0 0 if $hpno < 1 or $hpno > 5
2282 0 1 if (ref $new_rgb eq "HASH")
2284 0 0 unless defined $new_rgb->{$k} and UNIVERSAL::isa($new_rgb->{$k}, "PDL") and $new_rgb->{$k}->nelem == 3 and $new_rgb->{$k}->dim(0) == 3
2288 0 0 unless exists $new_rgb->{'white_point'}
2291 0 1 if ref $new_rgb
2294 0 1 unless $new_rgb = $$rgbtab{$PDL::Transform::Color::rgb_abbrevs->{$new_rgb}}