| line |
true |
false |
branch |
|
3581
|
0 |
1 |
unless $raf->Read($hdr, 12) == 12 |
|
3582
|
0 |
1 |
unless $raf->Seek(128, 0) |
|
3583
|
0 |
1 |
unless $raf->Read($buff, 4) == 4 |
|
3584
|
1 |
0 |
if ($buff eq 'DICM') { } |
|
3591
|
0 |
0 |
unless $_ |
|
3595
|
0 |
0 |
if $g < 2 or $g > 8 or $g & 1 |
|
3597
|
0 |
0 |
if $e > 32 |
|
3599
|
0 |
0 |
if ($vr =~ /^[A-Z]{2}$/) { } |
|
3601
|
0 |
0 |
if ($vr32{$vr}) { } |
|
3602
|
0 |
0 |
unless &Get16u(\$hdr, 6) == 0 |
|
3605
|
0 |
0 |
if $e == 0 and $vr ne "UL" |
|
3612
|
0 |
0 |
if $e == 0 and $len != 4 |
|
3613
|
0 |
0 |
if $len > 64 |
|
3616
|
0 |
0 |
unless $raf->Seek(0, 0) |
|
3627
|
1 |
98 |
unless $raf->Read($buff, 8) == 8 |
|
3631
|
1 |
3 |
if ($transferSyntax and $group != 2 || $group2end && $pos > $group2end) |
|
3638
|
0 |
1 |
unless ($transferSyntax =~ /^1\.2\.840\.10008\.1\.2(\.\d+)?(\.\d+)?/) |
|
3642
|
0 |
1 |
if (not $1) { } |
|
|
0 |
1 |
elsif ($1 eq '.2') { } |
|
|
0 |
2 |
elsif ($1 eq '.1' and $2 and $2 eq '.99') { } |
|
3649
|
0 |
0 |
if (eval {
do {
require Compress::Zlib
}
}) { } |
|
3654
|
0 |
0 |
if ($inflate) { } |
|
3655
|
0 |
0 |
unless $raf->Seek(-8, 1) |
|
3659
|
0 |
0 |
if ($stat == Compress::Zlib::Z_OK() or $stat == Compress::Zlib::Z_STREAM_END()) { } |
|
3663
|
0 |
0 |
if $stat == Compress::Zlib::Z_STREAM_END() |
|
3669
|
0 |
0 |
if length $data < 8 |
|
3673
|
0 |
0 |
unless $raf->Read($buff, 8) == 8 |
|
3689
|
0 |
98 |
if ($implicit or $implicitVR{$tag}) { } |
|
3697
|
0 |
98 |
unless $vr =~ /^[A-Z]{2}$/ |
|
3698
|
2 |
96 |
if ($vr32{$vr}) { } |
|
3699
|
0 |
2 |
unless $raf->Read($buff, 4) == 4 |
|
3702
|
0 |
2 |
if $vr eq "SQ" |
|
3707
|
0 |
98 |
if ($len == 4294967295) |
|
3709
|
0 |
0 |
if ($verbose) |
|
3716
|
95 |
3 |
if ($len) { } |
|
3717
|
0 |
95 |
unless $raf->Read($buff, $len) == $len |
|
3725
|
1 |
97 |
unless ($tagInfo) |
|
3729
|
1 |
0 |
if (($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}) { } |
|
|
0 |
0 |
elsif ($unknown) { } |
|
3739
|
0 |
0 |
if ($element == 0) { } |
|
3755
|
0 |
98 |
if $tagInfo and not $vr |
|
3757
|
1 |
97 |
if ($element == 0) |
|
3763
|
84 |
14 |
unless $format or length $buff & 1 |
|
3764
|
0 |
98 |
if ($len > 1024) { } |
|
|
14 |
84 |
elsif ($format) { } |
|
3767
|
0 |
0 |
$tagInfo ? : |
|
3768
|
0 |
0 |
if ($et->{'REQ_TAG_LOOKUP'}{$lcTag} or $et->{'OPTIONS'}{'Binary'} and not $et->{'EXCL_TAG_LOOKUP'}{$lcTag}) { } |
|
3781
|
5 |
79 |
if ($vr eq 'DA') { } |
|
|
4 |
75 |
elsif ($vr eq 'TM') { } |
|
|
0 |
75 |
elsif ($vr eq 'DT') { } |
|
|
0 |
75 |
elsif ($vr eq 'AT' and $len == 4) { } |
|
|
9 |
66 |
elsif ($vr eq 'UI') { } |
|
|
64 |
2 |
elsif ($vr =~ /^(AE|CS|DS|IS|LO|PN|SH)$/) { } |
|
|
1 |
1 |
elsif ($vr =~ /^(LT|ST|UT)$/) { } |
|
3797
|
3 |
6 |
if $Image::ExifTool::DICOM::uid{$val} and $tagInfo |
|
3806
|
8 |
90 |
if ($group == 2) |
|
3807
|
1 |
7 |
if $element == 0 |
|
3808
|
1 |
7 |
if $element == 16 |
|
3822
|
0 |
98 |
if $verbose and $tag eq "FFFE,E00D" |
|
3824
|
0 |
1 |
if $err |