| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless (defined $dicomFields) |
|
55
|
0 |
0 |
unless open OUTDICOM, ">$outfile" |
|
76
|
0 |
0 |
if (ref $dicomField eq 'HASH') { } |
|
82
|
0 |
0 |
if ($field_t =~ /^$group,/) |
|
84
|
0 |
0 |
if $field_t eq "$group,0000" |
|
86
|
0 |
0 |
if (ref $$dicomField{$field_t} eq 'ARRAY' or ref $$dicomField{$field_t} eq 'HASH') { } |
|
89
|
0 |
0 |
if (defined $$dicomField{$group . ',0000'}) |
|
100
|
0 |
0 |
if ($vr =~ /^(OB|OW|OF|SQ|UT|UN)$/) { } |
|
112
|
0 |
0 |
if ($groupLen > 0) |
|
114
|
0 |
0 |
if ($isLittleEndian or $group eq '0002') { } |
|
140
|
0 |
0 |
if (defined $$vrItem{'type'}) { } |
|
|
0 |
0 |
elsif (defined $$vrItem{'delimiter'}) { } |
|
143
|
0 |
0 |
unless $isLittleEndian |
|
145
|
0 |
0 |
if ($$vrItem{'type'} eq 'C' or $$vrItem{'type'} eq 'c') |
|
152
|
0 |
0 |
if (length($value) % 2 != 0) |
|
161
|
0 |
0 |
if (length($value) % 2 != 0) |
|
169
|
0 |
0 |
if (scalar @$valueList > 1) |
|
173
|
0 |
0 |
if (defined $$valueList[0]) { } |
|
176
|
0 |
0 |
if (length($value) % 2 != 0) |
|
178
|
0 |
0 |
if (defined $$vrItem{'tailing'}) { } |
|
205
|
0 |
0 |
unless (ref $valueList) |
|
210
|
0 |
0 |
unless defined $vr |
|
217
|
0 |
0 |
if ($fieldID[0] eq '0002,0010') |
|
223
|
0 |
0 |
if ($fieldID[0] =~ /^0002,/ or not $$self{'IsImplicitVR'}) |
|
225
|
0 |
0 |
if ($vr eq 'XX') |
|
235
|
0 |
0 |
if ($fieldID[0] =~ /^0002,/) { } |
|
248
|
0 |
0 |
if ($tagID =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($tagID eq 'x') { } |
|
|
0 |
0 |
elsif ($tagID =~ /([0-9a-fA-F]{4}),([0-9a-fA-F]{4})/) { } |
|
267
|
0 |
0 |
if ($i == $nFields - 1) { } |
|
285
|
0 |
0 |
if ($tagType eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($tagType eq 'HASH') { } |
|
289
|
0 |
0 |
if ($valueType eq 'SCALAR') { } |
|
291
|
0 |
0 |
if ($addFlag == 1) { } |
|
293
|
0 |
0 |
unless defined $dicomField |
|
298
|
0 |
0 |
if (defined $$dicomField[$tagID]) { } |
|
312
|
0 |
0 |
if ($addFlag == 1) { } |
|
314
|
0 |
0 |
unless defined $dicomField |
|
315
|
0 |
0 |
if ($valueType eq 'HASH') { } |
|
|
0 |
0 |
elsif ($valueType eq 'ARRAY') { } |
|
327
|
0 |
0 |
if (defined $$dicomField[$tagID]) { } |
|
341
|
0 |
0 |
if ($valueType eq 'SCALAR') |
|
348
|
0 |
0 |
unless (defined $$dicomField{$tagID}) |
|
350
|
0 |
0 |
if ($valueType eq 'HASH') { } |
|
|
0 |
0 |
elsif ($valueType eq 'ARRAY') { } |
|
376
|
0 |
0 |
if ($group eq '0002') { } |
|
385
|
0 |
0 |
if ($isImplicitVR and $isMetaInfo == 0) |
|
387
|
0 |
0 |
if ($isLittleEndian) { } |
|
398
|
0 |
0 |
if ($vr =~ /^(OB|OW|OF|SQ|UT|UN)$/) { } |
|
|
0 |
0 |
elsif ($vr =~ /^(AE|AS|AT|CS|DA|DS|DT|FL|FD|IS|LO|LT|PN|SH|SL|SS|ST|TM|UI|UL|US)$/) { } |
|
400
|
0 |
0 |
if ($isLittleEndian or $isMetaInfo) { } |
|
412
|
0 |
0 |
if ($isLittleEndian or $isMetaInfo) { } |
|
423
|
0 |
0 |
if ($isLittleEndian or $isMetaInfo) { } |
|
449
|
0 |
0 |
if ($fieldType eq 'HASH') { } |
|
|
0 |
0 |
elsif ($fieldType eq 'ARRAY') { } |
|
459
|
0 |
0 |
unless (defined $group and defined $element) |
|
481
|
0 |
0 |
if (ref $$dicomField[$index]) |
|
486
|
0 |
0 |
if ($index == 0) |
|
489
|
0 |
0 |
if ($sqVR ne 'OB' and $sqVR ne 'OW' and $sqVR ne 'OF' and $sqVR ne 'UT' and $sqVR ne 'UN') |
|
499
|
0 |
0 |
if ($sqVR ne substr($$dicomField[$index], 0, 2)) |
|
513
|
0 |
0 |
if (defined $dicomTag) { } |
|
517
|
0 |
0 |
unless (defined $group and defined $element) |
|
522
|
0 |
0 |
if ($element eq '0000' and ($group ne '0000' and $group ne '0002' and $group ne '0004' and $group ne '0006')) |
|
534
|
0 |
0 |
if ($len % 2 != 0) |
|
537
|
0 |
0 |
if (defined $$vrItem{'tailing'}) { } |
|
556
|
0 |
0 |
if ($len % 2 != 0) |
|
559
|
0 |
0 |
if (defined $$vrItem{'tailing'}) { } |
|
582
|
0 |
0 |
unless defined $verbose |
|
584
|
0 |
0 |
unless (defined $dicomFields) |
|
596
|
0 |
0 |
if (defined $dicomFields) |
|
598
|
0 |
0 |
if (defined $$dicomFields{'0002,0010'}) |
|
602
|
0 |
0 |
if ($transferSyntax eq '1.2.840.10008.1.2') |
|
620
|
0 |
0 |
unless ($isImplicitVR) |
|
622
|
0 |
0 |
if (_checkExplicitVR($dicomFields) == -1) |
|
629
|
0 |
0 |
if ($transferSyntax eq '1.2.840.10008.1.2.2') { } |
|
638
|
0 |
0 |
if ($newEndian != $oldEndian) |
|
654
|
0 |
0 |
unless defined $tagPath |
|
656
|
0 |
0 |
if (ref $dicomFields eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $dicomFields eq 'ARRAY') { } |
|
660
|
0 |
0 |
if (ref $$dicomFields{$field_t}) { } |
|
666
|
0 |
0 |
if (substr($field_t, 0, 5) ne '0002,') |
|
678
|
0 |
0 |
if (ref $$dicomFields[$index]) { } |
|
697
|
0 |
0 |
if (ref $dicomFields eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $dicomFields eq 'ARRAY') { } |
|
701
|
0 |
0 |
if (substr($field_t, 0, 5) ne '0002,') |
|
703
|
0 |
0 |
if (_checkExplicitVR($$dicomFields{$field_t}) == -1) |
|
714
|
0 |
0 |
if (_checkExplicitVR($$dicomFields[$index]) == -1) |
|
724
|
0 |
0 |
if ($vr eq 'XX') |