Branch Coverage

blib/lib/ICC/Profile.pm
Criterion Covered Total %
branch 5 266 1.8


line true false branch
89 2 45 if ($@)
92 2 0 if (grep {$mod eq $_;} @opt) { }
152 0 1 if (@_ == 1 and ref $_[0] eq 'HASH') { }
0 1 elsif (@_) { }
161 0 0 unless _readICCprofile($self, @_)
182 0 0 if (@_)
185 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
213 0 0 if (@_)
216 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({not ref $_;} @{$_[0];})) { }
244 0 0 if (@_)
247 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({ref $_ eq 'ARRAY';} @{$_[0];})) { }
284 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
0 0 elsif (@_) { }
296 0 0 unless length $key == 4
302 0 0 if (not defined $value or ref($value) =~ /^ICC::(Profile|Support)::/) { }
0 0 elsif ($value eq 'delete') { }
305 0 0 if (@match == 0) { }
0 0 elsif (@match == 1) { }
334 0 0 if (@match == 0) { }
349 0 0 defined $rem ? :
374 0 0 if (@match == 0) { }
0 0 elsif (@match == 1) { }
401 0 0 if (wantarray) { }
424 0 0 unless @_ == 1
469 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
472 0 0 defined $p->[0] && !ref($p->[0]) ? :
478 0 0 if ($fmt =~ /p/)
481 0 0 if (@{$self->[1];}) { }
504 0 0 if ($header->[24] eq '00000000000000000000000000000000') { }
526 0 0 if ($fmt =~ /t/)
529 0 0 if (@{$self->[2];}) { }
558 0 0 if ($fmt =~ /s/)
570 0 0 if (not defined $tag) { }
0 0 elsif (not &Scalar::Util::blessed($tag)) { }
0 0 elsif ($tag->can('sdump')) { }
585 0 0 defined $$p[$i + 1] ? :
628 0 0 defined $version ? :
631 0 0 unless $version =~ /^[0-9]{4}0000$/
640 0 0 unless defined $class
641 0 0 unless $class =~ /^(scnr|mntr|prtr|link|spac|abst|nmcl)$/
644 0 0 defined $subclass ? :
647 0 0 unless defined $dcs
648 0 0 unless $dcs =~ /$repcs/ or $class ne 'abst' and $dcs =~ /$redcs/
651 0 0 unless $pcs = $hash->{'PCS'}
652 0 0 unless $pcs =~ /$repcs/ or $class eq 'link' and $pcs =~ /$redcs/
655 0 0 defined $dri ? :
658 0 0 unless $dri =~ /^[0-3]$/
690 0 0 if ($class eq 'scnr') { }
0 0 elsif ($class eq 'mntr') { }
0 0 elsif ($class eq 'prtr') { }
0 0 elsif ($class eq 'link') { }
0 0 elsif ($class eq 'spac') { }
0 0 elsif ($class eq 'abst') { }
700 0 0 if ($subclass == 0) { }
0 0 elsif ($subclass == 1) { }
0 0 elsif ($subclass == 2) { }
741 0 0 if ($subclass == 0) { }
0 0 elsif ($subclass == 1) { }
0 0 elsif ($subclass == 2) { }
783 0 0 if ($subclass == 0) { }
0 0 elsif ($subclass == 2) { }
797 0 0 if ($dcs =~ /CLR$/ and $vmaj == 4)
828 0 0 if ($dcs =~ /CLR$/ and $vmaj == 4)
838 0 0 if ($pcs =~ /CLR$/ and $vmaj == 4)
900 0 0 unless read($fh, $buf, 30) == 30
906 0 0 if ($header[0] eq '8BPS' and $header[1] == 1)
939 0 0 if ($res[1] == 1039)
980 0 0 unless read($fh, $buf, 8) == 8
983 0 0 if ($buf =~ /^MM/) { }
1002 0 0 if ($header[1] == 42)
1026 0 0 $tag[1] == 2 ? :
1029 0 0 if ($size > 4 or $ts[$tag[1]] == 4) { }
0 0 elsif ($ts[$tag[1]] == 2 and $tag[2] == 1) { }
0 0 elsif ($ts[$tag[1]] == 2 and $tag[2] == 2) { }
1047 0 0 if ($tag[0] == 34675)
1087 0 0 if (ref $path eq 'SCALAR') { }
0 0 elsif (not ref $path) { }
1090 0 0 unless open $fh, '<', $path
1105 0 0 unless -f $path
1108 0 0 unless open $fh, '<', $path
1133 0 0 if ($buf ne 'acsp')
1136 0 0 if ($ref = _readICCprofileTIFF($fh)) { }
0 0 elsif ($ref = _readICCprofilePSD($fh)) { }
0 0 elsif (defined $default) { }
1169 0 0 unless open $fh, '<', $default
1184 0 0 if ($buf ne 'acsp')
1207 0 0 unless _readICCheader($fh, $self->[1])
1210 0 0 unless _readICCtagtable($fh, $self->[2])
1216 0 0 if (exists $hash{$tag->[1]}) { }
1236 0 0 if ($class->can('new_fh')) { }
1257 0 0 if $tag->[0] eq 'wtpt'
1260 0 0 if $tag->[0] eq 'bkpt'
1263 0 0 if $tag->[0] eq 'A2B0'
1266 0 0 if $tag->[0] eq 'A2B1'
1277 0 0 if ($tag->[0] =~ /^(A2B[0-9A-F]|B2A[0-9A-F]|gamt)$/ and defined $tag->[3]) { }
0 0 elsif ($tag->[0] =~ /^(D2B[0-9A-F]|B2D[0-9A-F]|gbd[0-3])$/ and defined $tag->[3]) { }
1280 0 0 if defined $wtpt
1283 0 0 if defined $bkpt
1286 0 0 defined $A2B1 ? :
1292 0 0 if defined $wtpt
1295 0 0 if defined $bkpt
1298 0 0 $self->[1][5] eq 'Lab ' ? :
1321 0 0 unless read($fh, my $buf, 128) == 128
1327 0 0 $header->[12] eq 'acsp' ? :
1346 0 0 unless read($fh, $buf, 4) == 4
1355 0 0 unless read($fh, $buf, 12) == 12
1396 0 0 if ($vmaj == 4)
1423 0 0 if exists $dup{$sig}
1429 0 0 if (defined $self->[2][$i][3]) { }
1432 0 0 if ($self->[2][$i][3]->can('size')) { }
1477 0 0 if (exists $hash{$tag->[3]}) { }
1498 0 0 if (ref $path eq 'SCALAR') { }
0 0 elsif (not ref $path) { }
1501 0 0 unless open $fh, '>', $path
1510 0 0 unless open $fh, '>', $path
1535 0 0 unless (exists $hash{$tag->[3]})
1538 0 0 if ($tag->[3]->can('write_fh')) { }
1567 0 0 if $pad < 0
1570 0 0 if $pad > 0
1576 0 0 if ($vmaj == 4)
1602 0 0 if not ref $path
1656 0 0 if ($self->[1][5] eq 'XYZ ') { }
0 0 elsif ($self->[1][5] eq 'Lab ') { }
1665 0 0 if (UNIVERSAL::isa($tag, 'ICC::Profile::mft2')) { }
1668 0 0 $self->[1][4] eq 'RGB ' ? :
1671 0 0 if _dE(@Labmw, 0.99610894941634243, 0.50000762951094835, 0.50000762951094835) < 0.00195
1674 0 0 if _dE(@Labmw, 1, 0.50000762951094835, 0.50000762951094835) < 0.00195
1719 0 0 if (UNIVERSAL::isa($tag->[3], 'ICC::Profile::desc')) { }
0 0 elsif (UNIVERSAL::isa($tag->[3], 'ICC::Profile::pseq')) { }
0 0 elsif ($tag->[0] eq 'cprt' and UNIVERSAL::isa($tag->[3], 'ICC::Profile::text')) { }
1733 0 0 if (UNIVERSAL::isa($pds->[5], 'ICC::Profile::desc'))
1741 0 0 if (UNIVERSAL::isa($pds->[6], 'ICC::Profile::desc'))