Condition Coverage

blib/lib/Image/ExifTool/DICOM.pm
Criterion Covered Total %
condition 16 80 20.0


and 3 conditions

line !l l&&!r l&&r condition
3605 0 0 0 $e == 0 and $vr ne "UL"
3612 0 0 0 $e == 0 and $len != 4
3631 94 4 0 $transferSyntax and $group != 2 || $group2end && $pos > $group2end
3642 0 1 0 $1 eq ".1" and $2
1 0 0 $1 eq ".1" and $2 and $2 eq ".99"
3729 0 0 1 ($xx = $tag) =~ s/^(..)../$1xx/ and $tagTablePtr->{$xx}
0 0 0 ($xx = $tag) =~ s/..$/xx/ and $tagTablePtr->{$xx}
0 0 0 ($xx = $tag) =~ s/.(.)$/x$1/ and $tagTablePtr->{$xx}
0 0 0 ($xx = $tag) =~ s/...(.)$/xxx$1/ and $tagTablePtr->{$xx}
0 0 0 ($xx = $tag) =~ s/....$/xxxx/ and $tagTablePtr->{$xx}
3755 0 98 0 $tagInfo and not $vr
3768 0 0 0 $et->{'OPTIONS'}{'Binary'} and not $et->{'EXCL_TAG_LOOKUP'}{$lcTag}
3781 75 0 0 $vr eq "AT" and $len == 4
3797 6 0 3 $Image::ExifTool::DICOM::uid{$val} and $tagInfo
3822 98 0 0 $verbose and $tag eq "FFFE,E00D"

or 2 conditions

line l !l condition
3755 0 0 $tagInfo->{'VR'} || ' '

or 3 conditions

line l !l&&r !l&&!r condition
3595 0 0 0 $g < 2 or $g > 8
0 0 0 $g < 2 or $g > 8 or $g & 1
3631 1 0 3 $group != 2 || $group2end && $pos > $group2end
3659 0 0 0 $stat == Compress::Zlib::Z_OK() or $stat == Compress::Zlib::Z_STREAM_END()
3689 0 0 98 $implicit or $implicitVR{$tag}
3729 1 0 0 ($xx = $tag) =~ s/^(..)../$1xx/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/..$/xx/ and $tagTablePtr->{$xx}
0 0 0 ($xx = $tag) =~ s/^(..)../$1xx/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/..$/xx/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/.(.)$/x$1/ and $tagTablePtr->{$xx}
0 0 0 ($xx = $tag) =~ s/^(..)../$1xx/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/..$/xx/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/.(.)$/x$1/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/...(.)$/xxx$1/ and $tagTablePtr->{$xx}
0 0 0 ($xx = $tag) =~ s/^(..)../$1xx/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/..$/xx/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/.(.)$/x$1/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/...(.)$/xxx$1/ and $tagTablePtr->{$xx} or ($xx = $tag) =~ s/....$/xxxx/ and $tagTablePtr->{$xx}
3763 14 0 84 $format or length $buff & 1
3768 0 0 0 $et->{'REQ_TAG_LOOKUP'}{$lcTag} or $et->{'OPTIONS'}{'Binary'} and not $et->{'EXCL_TAG_LOOKUP'}{$lcTag}