Branch Coverage

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


line true false branch
45 4 7 if (@_)
48 4 0 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
0 0 elsif (@_ == 1 and not ref $_[0]) { }
90 0 0 unless $self->[1][$i]->can('inv')
119 0 0 unless @_ == 3
137 0 0 unless @_ == 4
206 0 0 ref $_[-1] eq 'HASH' ? :
209 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($_);} @_)) { }
218 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];})) { }
224 0 0 if ref $_ eq 'ARRAY'
263 0 0 ref $_[-1] eq 'HASH' ? :
266 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($_);} @_)) { }
275 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];})) { }
281 0 0 if ref $_ eq 'ARRAY'
327 0 0 if wantarray
332 0 0 if ($hash->{'diag'}) { }
345 0 0 if (wantarray) { }
373 0 0 unless $self->[1][0]->can('parametric')
379 0 0 ICC::Shared::is_num_matrix($s) && @{$s;} == @{$self->[1];} ? :
0 0 ICC::Shared::is_num_vector($s) ? :
0 0 !defined($s) ? :
388 0 0 if $type == 1 and not @{$s;} or $type == 2 and not @{$s->[$i];}
397 0 0 if ($j == $i) { }
400 0 0 if ($type == 1) { }
0 0 elsif ($type == 2) { }
421 0 0 if ($type == 1) { }
0 0 elsif ($type == 2) { }
459 0 0 if (@_)
462 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
490 0 65 if (@_ == 1) { }
0 65 elsif (@_) { }
493 0 0 unless ref $_[0] eq 'ARRAY'
502 0 0 unless $array->[$i]->can('transform') and $array->[$i]->can('derivative')
535 0 0 unless UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::para') or UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::parf')
599 0 0 unless eval { do { $dom = 'XML::LibXML'->load_xml('location', ICC::Shared::getICCPath('Templates/Apogee_template.xml')) } }
714 0 0 if ($n == 1) { }
0 0 elsif ($n == 3) { }
0 0 elsif ($n == 4) { }
755 0 0 if ($dir == 0 and UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::curv') || UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::para')) { }
773 0 0 if defined $clrt
804 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
819 0 0 if (defined $self->[1][$i]) { }
873 0 0 unless $tt->process('cvst_efi_vcc.tt2', $vars, $path)
900 0 0 unless open $fh, '>', $path
918 0 0 if (grep {$j == $_;} @{$steps;}) { }
968 0 0 unless open $fh, '>', $path
1037 0 0 $^O eq 'MSWin32' ? :
1040 0 0 unless open $fh, '>', $file
1055 0 0 $dotr < 0 ? :
1056 0 0 $dotp < 0 ? :
1057 0 0 $dotr > 1 ? :
1058 0 0 $dotp > 1 ? :
1093 0 0 $#{$$self[1];} ? :
1122 0 0 unless not defined $opts->{'Side'} or $opts->{'Side'} eq 'Front' or $opts->{'Side'} eq 'Back'
1128 0 0 if (defined $opts->{$key})
1138 0 0 unless defined $opts->{'Creator'}
1153 0 0 $_ == 0 && $zflag ? :
1188 0 0 $#{$$self[1];} ? :
1202 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
1251 0 0 unless $tt->process('cvst_navigator.tt2', $vars, $path)
1276 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')) { }
1282 0 0 unless $#{$xval;} < 16
1285 0 0 unless $#{$xval;} > 0
1291 0 0 $#{$self->[1][0]->input;} > $#{$self->[1][0]->output;} ? :
1294 0 0 2 * $n < 16 ? :
1303 0 0 2 * $#{$self->[1][0]->output;} < 16 ? :
1322 0 0 unless open $fh, '>', $path
1341 0 0 if $xmin > $xmax
1356 0 0 $x < $xmin ? :
0 0 $x > $xmax ? :
1359 0 0 if $x == $xp
1368 0 0 $y < 0 ? :
0 0 $y > 1 ? :
1379 0 0 if (@{$self->[1];} == 3) { }
1431 0 0 $#{$$self[1];} ? :
1445 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
1476 0 0 defined $vars->{'Medium'} ? :
1477 0 0 defined $vars->{'ScreeningType'} ? :
1478 0 0 defined $vars->{'Resolution'} ? :
1479 0 0 defined $vars->{'FreqFrom'} && defined $vars->{'FreqFrom'} ? :
1480 0 0 defined $vars->{'SpotFunction'} ? :
1529 0 0 unless $tt->process('cvst_prinergy.tt2', $vars, $path)
1575 0 0 unless open $fh0, '>', $file
1587 0 0 unless open $fh1, '>', $file
1617 0 0 $dotr < 0 ? :
1618 0 0 $dotp < 0 ? :
1619 0 0 $dotr > 100 ? :
1620 0 0 $dotp > 100 ? :
1667 0 0 unless open $fh, '>', $path
1733 0 0 unless open $fh, '>', $path
1769 0 0 $out > 1 ? :
0 0 $out < 0 ? :
1823 0 0 unless open $fh, '>', $path
1835 0 0 $fp ? :
1874 0 0 if (($include) = grep({-d $_;} map({'File::Spec'->catdir($_, 'ICC', 'Templates');} @INC)))
1883 0 0 if ($#{$$self[1];} == 0) { }
0 0 elsif ($#{$$self[1];} == 2) { }
1914 0 0 /^ink_/ ? :
1924 0 0 if ($opts->{'composite'}) { }
1933 0 0 $_ > $max ? :
0 0 $_ < $min ? :
1956 0 0 unless $tt->process('cvst_graph_svg.tt2', $vars, "$file.html")
1967 0 0 $_ > $max ? :
0 0 $_ < $min ? :
1973 0 0 $_ % 5 ? :
1988 0 0 unless $tt->process('cvst_graph_svg.tt2', $vars, "$file.html")
1995 0 0 if ($opts->{'composite'}) { }
1998 0 0 if ($^O eq 'MSWin32') { }
2019 0 0 if ($^O eq 'MSWin32') { }
2038 0 0 if $opts->{'open'} // 1
2059 0 0 if (ref $files eq 'ARRAY' and defined $files->[0] and -f $files->[0] and defined $RGraph)
2068 0 0 if ($^O eq 'darwin') { }
0 0 elsif ($^O eq 'MSWin32') { }
2083 0 0 if ($app eq 'Firefox.app') { }
2092 0 0 if (@esc)
2112 0 0 if ((@pid = split(/\s+/, `pgrep -P $fox[0]`, 0)) > 3)
2118 0 0 if `ps -p $_ -o command` =~ /-sbAllowFileAccess/m
2171 0 0 if ($self->[1][$i]->can('normalize')) { }
2200 0 0 if ($self->[1][$i]->can('update')) { }
2229 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
2232 0 0 defined $p->[0] && !ref($p->[0]) ? :
2238 0 0 if ($fmt =~ /s/)
2250 0 0 if (not defined $element) { }
0 0 elsif (not &Scalar::Util::blessed($element)) { }
0 0 elsif ($element->can('sdump')) { }
2265 0 0 defined $$p[$i + 1] ? :
2302 0 0 if ref $_[-1] eq 'HASH'
2313 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2340 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2372 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2375 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
2391 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2407 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
2418 0 0 if (ref $in->[$i] eq 'ARRAY') { }
2448 0 0 if ref $_[-1] eq 'HASH'
2459 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2486 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2518 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2521 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
2537 0 0 if $self->[0]{'clip'} or $hash->{'clip'}
2553 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
2564 0 0 if (ref $in->[$i] eq 'ARRAY') { }
2617 0 0 if @ctx = caller 1
2620 0 0 defined $1 && exists $std->{$1} ? :
2629 0 0 unless defined $opts
2632 0 0 if (not ref $opts) { }
0 0 elsif (ref $opts eq 'HASH') { }
2635 0 0 $opts ? :
2647 0 0 if (defined $opts->{'steps'})
2650 0 0 if ($std->{$caller}[1]) { }
2656 0 0 if (ICC::Shared::is_num_vector($steps)) { }
0 0 elsif (&Scalar::Util::looks_like_number($steps)) { }
0 0 elsif (not ref $steps) { }
2659 0 0 unless $_ < 0
0 0 unless 0 == grep({$_ > 100 unless $_ < 0;} @{$steps;})
2668 0 0 $n > 255 ? :
0 0 $n < 1 ? :
2677 0 0 if (exists $std->{$steps}) { }
2755 0 0 ($cnt[$a] // 0) > ($cnt[$b] // 0) ? :
2761 0 0 unless @data > 1 and @{$data[0];} > 1
2767 0 0 defined $last ? :
2804 0 0 unless eval { do { $dom = 'XML::LibXML'->load_xml('IO', $fh) } }
2819 0 0 if ($s->nodeName eq 'TransferCurve')
2837 0 0 if ($i % 2) { }
2883 0 0 unless eval { do { $dom = 'XML::LibXML'->load_xml('IO', $fh) } }
2898 0 0 if (($dgc) = $s->findnodes('dgc'))
2907 0 0 unless open $fh2, '<', $path
2963 0 0 unless open $fh, '<', $path
2969 0 0 unless read $fh, $buf, 1024
2975 0 0 if ($buf =~ /<\?xml.*\?>/ and $buf =~ /ISO18620/) { }
0 0 elsif ($buf =~ /<\?xml.*\?>/ and $buf =~ /colDgc_xml/) { }
0 0 elsif ($buf =~ /ICC::Profile::cvst/) { }
2978 0 0 unless _read_iso_18620($self, $fh)
2987 0 0 unless _read_icpro($self, $fh, $path)
2996 0 0 unless $obj = Storable::fd_retrieve($fh)
2999 0 0 unless UNIVERSAL::isa($obj, 'ICC::Profile::cvst')
3010 0 0 if ($buf =~ /\015\012/) { }
0 0 elsif ($buf =~ /\012/) { }
0 0 elsif ($buf =~ /\015/) { }
3039 0 0 unless _read_text($self, $fh)
3062 0 11 unless $array->[$i]->can('transform') and $array->[$i]->can('derivative')
3094 0 0 unless $mft[0] eq 'cvst'
3117 0 0 if (exists $hash{$tag2->[1]}) { }
3137 0 0 if ($class->can('new_fh')) { }
3175 0 0 unless $n > 0 and $n < 16
3190 0 0 unless UNIVERSAL::isa($self->[1][$i], 'ICC::Profile::curf')
3193 0 0 if (not exists $hash{$self->[1][$i]}) { }
3226 0 0 unless (exists $hash{$self->[1][$i]})