| line |
true |
false |
branch |
|
28
|
0 |
0 |
if (_parseDicomFile($self, $infile)) |
|
42
|
0 |
0 |
unless open INDICOM, "<$infile" |
|
50
|
0 |
0 |
if ($nret != $filesize) |
|
58
|
0 |
0 |
if (substr($dicomFileContent, 128, 4) eq 'DICM') |
|
68
|
0 |
0 |
unless (defined $$self{'DicomField'}) |
|
105
|
0 |
0 |
if (defined $dicomFields) |
|
107
|
0 |
0 |
if (defined $$dicomFields{'0002,0010'}) |
|
111
|
0 |
0 |
if ($transferSyntax eq '1.2.840.10008.1.2') { } |
|
139
|
0 |
0 |
if ($group == 2) { } |
|
149
|
0 |
0 |
if ($isLittleEndian or $isMetaInfo) { } |
|
160
|
0 |
0 |
unless (defined $isImplicitVR) |
|
162
|
0 |
0 |
if ($vr =~ /^(AE|AS|AT|CS|DA|DS|DT|FL|FD|IS|LO|LT|PN|SH|SL|SS|ST|TM|UI|UL|US|OB|OW|OF|SQ|UT|UN)$/) { } |
|
172
|
0 |
0 |
if ($isImplicitVR and not $isMetaInfo) |
|
177
|
0 |
0 |
if ($isLittleEndian or $isMetaInfo) { } |
|
189
|
0 |
0 |
if ($vr =~ /^(AE|AS|AT|CS|DA|DS|DT|FL|FD|IS|LO|LT|PN|SH|SL|SS|ST|TM|UI|UL|US)$/) { } |
|
195
|
0 |
0 |
if ($vr =~ /^(OB|OW|OF|SQ|UT|UN)$/) { } |
|
199
|
0 |
0 |
if ($isLittleEndian or $isMetaInfo) { } |
|
213
|
0 |
0 |
if ($tagID ne 'fffe,e000' and $tagID ne 'fffe,e00d' and $tagID ne 'fffe,e0dd') |
|
219
|
0 |
0 |
if ($isLittleEndian or $isMetaInfo) { } |
|
248
|
0 |
0 |
if ($byteCount < 0 or $startPos + $byteCount + 8 > length $$pDicomStr) |
|
255
|
0 |
0 |
if ($len == -1) |
|
262
|
0 |
0 |
if ($tagID eq 'fffe,e00d' or $tagID eq 'fffe,e0dd') |
|
268
|
0 |
0 |
if ($len == 4294967295 or $vr eq 'SQ' and $len != 0) { } |
|
270
|
0 |
0 |
if ($len == 4294967295) |
|
275
|
0 |
0 |
if ($tagID eq 'fffe,e000') { } |
|
293
|
0 |
0 |
if ($startPos + $byteCount + $len > length $$pDicomStr) |
|
303
|
0 |
0 |
if (length $value > 8 and $vr eq 'XX') |
|
307
|
0 |
0 |
if (defined $fRet) |
|
309
|
0 |
0 |
if ($tagID eq 'fffe,e000') { } |
|
315
|
0 |
0 |
if ($tagID ne 'fffc,fffc') |
|
323
|
0 |
0 |
if ($isStruct == 0) |
|
325
|
0 |
0 |
if ($tagID eq 'fffe,e000') { } |
|
327
|
0 |
0 |
if (defined $vrParent and $vrParent ne 'SQ') { } |
|
338
|
0 |
0 |
if ($tagID ne 'fffc,fffc') |
|
345
|
0 |
0 |
if ($tagID eq '0002,0010') |
|
349
|
0 |
0 |
if ($transferSyntax eq '1.2.840.10008.1.2.2') |
|
353
|
0 |
0 |
if ($transferSyntax eq '1.2.840.10008.1.2') { } |
|
364
|
0 |
0 |
if ($strLen >= 0 and $byteCount >= $strLen) |
|
366
|
0 |
0 |
if ($byteCount != $strLen) |
|
385
|
0 |
0 |
unless defined $mode |
|
396
|
0 |
0 |
if ($tagID =~ /^\d+$/) { } |
|
402
|
0 |
0 |
if (ref $dicomFields eq 'HASH') |
|
404
|
0 |
0 |
if (defined $$dicomFields{$tagID}) { } |
|
416
|
0 |
0 |
unless (ref $dicomFields) |
|
418
|
0 |
0 |
if ($i == $nFields - 1) { } |
|
420
|
0 |
0 |
if ($mode eq 'native') { } |
|
429
|
0 |
0 |
if (scalar @$value == 1) { } |
|
463
|
0 |
0 |
unless defined $verbose |
|
465
|
0 |
0 |
unless (defined $dicomFields) |