Branch Coverage

blib/lib/ICC/Profile/cvst.pm
Criterion Covered Total %
branch 6 394 1.5


line true false branch
42 4 7 if (@_)
45 4 0 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
0 0 elsif (@_ == 1 and not ref $_[0]) { }
87 0 0 unless $self->[1][$i]->can('inv')
116 0 0 unless @_ == 3
134 0 0 unless @_ == 4
203 0 0 ref $_[-1] eq 'HASH' ? :
206 0 0 if (@_ == $h + 2 and UNIVERSAL::isa($_[1], 'Math::Matrix')) { }
0 0 elsif (@_ == $h + 2 and ref $_[1] eq 'ARRAY') { }
0 0 elsif (@_ == $h + 1 + grep({&Scalar::Util::looks_like_number($_);} @_)) { }
215 0 0 if (not ref $_[1][0] and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_);} @{$_[1];})) { }
0 0 elsif (ref $_[1][0] eq 'ARRAY' and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_->[0]) if ref $_ eq 'ARRAY';} @{$_[1];})) { }
221 0 0 if ref $_ eq 'ARRAY'
260 0 0 ref $_[-1] eq 'HASH' ? :
263 0 0 if (@_ == $h + 2 and UNIVERSAL::isa($_[1], 'Math::Matrix')) { }
0 0 elsif (@_ == $h + 2 and ref $_[1] eq 'ARRAY') { }
0 0 elsif (@_ == $h + 1 + grep({&Scalar::Util::looks_like_number($_);} @_)) { }
272 0 0 if (not ref $_[1][0] and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_);} @{$_[1];})) { }
0 0 elsif (ref $_[1][0] eq 'ARRAY' and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_->[0]) if ref $_ eq 'ARRAY';} @{$_[1];})) { }
278 0 0 if ref $_ eq 'ARRAY'
324 0 0 if wantarray
329 0 0 if ($hash->{'diag'}) { }
342 0 0 if (wantarray) { }
370 0 0 unless $self->[1][0]->can('parametric')
376 0 0 ICC::Shared::is_num_matrix($s) && @{$s;} == @{$self->[1];} ? :
0 0 ICC::Shared::is_num_vector($s) ? :
0 0 !defined($s) ? :
385 0 0 if $type == 1 and not @{$s;} or $type == 2 and not @{$s->[$i];}
394 0 0 if ($j == $i) { }
397 0 0 if ($type == 1) { }
0 0 elsif ($type == 2) { }
418 0 0 if ($type == 1) { }
0 0 elsif ($type == 2) { }
456 0 0 if (@_)
459 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
487 0 65 if (@_ == 1) { }
0 65 elsif (@_) { }
490 0 0 unless ref $_[0] eq 'ARRAY'
499 0 0 unless $array->[$i]->can('transform') and $array->[$i]->can('derivative')
532 0 0 unless UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::para') or UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::parf')
596 0 0 unless eval { do { $dom = 'XML::LibXML'->load_xml('location', ICC::Shared::getICCPath('Templates/Apogee_template.xml')) } }
711 0 0 if ($n == 1) { }
0 0 elsif ($n == 3) { }
0 0 elsif ($n == 4) { }
752 0 0 if ($dir == 0 and UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::curv') || UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::para')) { }
770 0 0 if defined $clrt
801 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
816 0 0 if (defined $self->[1][$i]) { }
870 0 0 unless $tt->process('cvst_efi_vcc.tt2', $vars, $path)
897 0 0 unless open $fh, '>', $path
915 0 0 if (grep {$j == $_;} @{$steps;}) { }
965 0 0 unless open $fh, '>', $path
1034 0 0 $^O eq 'MSWin32' ? :
1037 0 0 unless open $fh, '>', $file
1052 0 0 $dotr < 0 ? :
1053 0 0 $dotp < 0 ? :
1054 0 0 $dotr > 1 ? :
1055 0 0 $dotp > 1 ? :
1090 0 0 $#{$$self[1];} ? :
1119 0 0 unless not defined $opts->{'Side'} or $opts->{'Side'} eq 'Front' or $opts->{'Side'} eq 'Back'
1125 0 0 if (defined $opts->{$key})
1135 0 0 unless defined $opts->{'Creator'}
1150 0 0 $_ == 0 && $zflag ? :
1185 0 0 $#{$$self[1];} ? :
1199 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
1248 0 0 unless $tt->process('cvst_navigator.tt2', $vars, $path)
1273 0 0 if (@{$steps;}) { }
0 0 elsif (UNIVERSAL::isa($self->[1][0], 'ICC::Support::bern')) { }
0 0 elsif (UNIVERSAL::isa($self->[1][0], 'ICC::Support::spline')) { }
1279 0 0 unless $#{$xval;} < 16
1282 0 0 unless $#{$xval;} > 0
1288 0 0 $#{$self->[1][0]->input;} > $#{$self->[1][0]->output;} ? :
1291 0 0 2 * $n < 16 ? :
1300 0 0 2 * $#{$self->[1][0]->output;} < 16 ? :
1319 0 0 unless open $fh, '>', $path
1338 0 0 if $xmin > $xmax
1353 0 0 $x < $xmin ? :
0 0 $x > $xmax ? :
1356 0 0 if $x == $xp
1365 0 0 $y < 0 ? :
0 0 $y > 1 ? :
1376 0 0 if (@{$self->[1];} == 3) { }
1428 0 0 $#{$$self[1];} ? :
1442 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
1473 0 0 defined $vars->{'Medium'} ? :
1474 0 0 defined $vars->{'ScreeningType'} ? :
1475 0 0 defined $vars->{'Resolution'} ? :
1476 0 0 defined $vars->{'FreqFrom'} && defined $vars->{'FreqFrom'} ? :
1477 0 0 defined $vars->{'SpotFunction'} ? :
1526 0 0 unless $tt->process('cvst_prinergy.tt2', $vars, $path)
1572 0 0 unless open $fh0, '>', $file
1584 0 0 unless open $fh1, '>', $file
1614 0 0 $dotr < 0 ? :
1615 0 0 $dotp < 0 ? :
1616 0 0 $dotr > 100 ? :
1617 0 0 $dotp > 100 ? :
1664 0 0 unless open $fh, '>', $path
1730 0 0 unless open $fh, '>', $path
1766 0 0 $out > 1 ? :
0 0 $out < 0 ? :
1820 0 0 unless open $fh, '>', $path
1832 0 0 $fp ? :
1871 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
1880 0 0 if ($#{$$self[1];} == 0) { }
0 0 elsif ($#{$$self[1];} == 2) { }
1911 0 0 /^ink_/ ? :
1921 0 0 if ($opts->{'composite'}) { }
1930 0 0 $_ > $max ? :
0 0 $_ < $min ? :
1953 0 0 unless $tt->process('cvst_graph_svg.tt2', $vars, "$file.html")
1964 0 0 $_ > $max ? :
0 0 $_ < $min ? :
1970 0 0 $_ % 5 ? :
1985 0 0 unless $tt->process('cvst_graph_svg.tt2', $vars, "$file.html")
1992 0 0 if ($opts->{'composite'}) { }
1995 0 0 if ($^O eq 'MSWin32') { }
2016 0 0 if ($^O eq 'MSWin32') { }
2035 0 0 if $opts->{'open'} // 1
2056 0 0 if (ref $files eq 'ARRAY' and defined $files->[0] and -f $files->[0] and defined $RGraph)
2065 0 0 if ($^O eq 'darwin') { }
0 0 elsif ($^O eq 'MSWin32') { }
2080 0 0 if ($app eq 'Firefox.app') { }
2089 0 0 if (@esc)
2109 0 0 if ((@pid = split(/\s+/, `pgrep -P $fox[0]`, 0)) > 3)
2115 0 0 if `ps -p $_ -o command` =~ /-sbAllowFileAccess/m
2168 0 0 if ($self->[1][$i]->can('normalize')) { }
2197 0 0 if ($self->[1][$i]->can('update')) { }
2226 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
2229 0 0 defined $p->[0] && !ref($p->[0]) ? :
2235 0 0 if ($fmt =~ /s/)
2247 0 0 if (not defined $element) { }
0 0 elsif (not &Scalar::Util::blessed($element)) { }
0 0 elsif ($element->can('sdump')) { }
2262 0 0 defined $$p[$i + 1] ? :
2299 0 0 if ref $_[-1] eq 'HASH'
2310 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2337 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2369 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2372 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
2388 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2404 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
2415 0 0 if (ref $in->[$i] eq 'ARRAY') { }
2445 0 0 if ref $_[-1] eq 'HASH'
2456 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2483 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2515 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2518 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
2534 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2550 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
2561 0 0 if (ref $in->[$i] eq 'ARRAY') { }
2614 0 0 if @ctx = caller 1
2617 0 0 defined $1 && exists $std->{$1} ? :
2626 0 0 unless defined $opts
2629 0 0 if (not ref $opts) { }
0 0 elsif (ref $opts eq 'HASH') { }
2632 0 0 $opts ? :
2644 0 0 if (defined $opts->{'steps'})
2647 0 0 if ($std->{$caller}[1]) { }
2653 0 0 if (ICC::Shared::is_num_vector($steps)) { }
0 0 elsif (&Scalar::Util::looks_like_number($steps)) { }
0 0 elsif (not ref $steps) { }
2656 0 0 unless $_ < 0
0 0 unless 0 == grep({$_ > 100 unless $_ < 0;} @{$steps;})
2665 0 0 $n > 255 ? :
0 0 $n < 1 ? :
2674 0 0 if (exists $std->{$steps}) { }
2752 0 0 ($cnt[$a] // 0) > ($cnt[$b] // 0) ? :
2758 0 0 unless @data > 1 and @{$data[0];} > 1
2764 0 0 defined $last ? :
2801 0 0 unless eval { do { $dom = 'XML::LibXML'->load_xml('IO', $fh) } }
2816 0 0 if ($s->nodeName eq 'TransferCurve')
2834 0 0 if ($i % 2) { }
2880 0 0 unless eval { do { $dom = 'XML::LibXML'->load_xml('IO', $fh) } }
2895 0 0 if (($dgc) = $s->findnodes('dgc'))
2904 0 0 unless open $fh2, '<', $path
2960 0 0 unless open $fh, '<', $path
2966 0 0 unless read $fh, $buf, 1024
2972 0 0 if ($buf =~ /<\?xml.*\?>/ and $buf =~ /ISO18620/) { }
0 0 elsif ($buf =~ /<\?xml.*\?>/ and $buf =~ /colDgc_xml/) { }
0 0 elsif ($buf =~ /ICC::Profile::cvst/) { }
2975 0 0 unless _read_iso_18620($self, $fh)
2984 0 0 unless _read_icpro($self, $fh, $path)
2993 0 0 unless $obj = Storable::fd_retrieve($fh)
2996 0 0 unless UNIVERSAL::isa($obj, 'ICC::Profile::cvst')
3007 0 0 if ($buf =~ /\015\012/) { }
0 0 elsif ($buf =~ /\012/) { }
0 0 elsif ($buf =~ /\015/) { }
3036 0 0 unless _read_text($self, $fh)
3059 0 11 unless $array->[$i]->can('transform') and $array->[$i]->can('derivative')
3091 0 0 unless $mft[0] eq 'cvst'
3114 0 0 if (exists $hash{$tag2->[1]}) { }
3134 0 0 if ($class->can('new_fh')) { }
3172 0 0 unless $n > 0 and $n < 16
3187 0 0 unless UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::curf')
3190 0 0 if (not exists $hash{$self->[1][$i]}) { }
3223 0 0 unless (exists $hash{$self->[1][$i]})