| line |
true |
false |
branch |
|
35
|
0 |
0 |
if (eval 'require 5.0100' or $endianness eq '') |
|
40
|
0 |
0 |
unless ($dataType =~ /^[sSiIlLqQjJfFdDpP]$/) |
|
45
|
0 |
0 |
if (ref $data ne 'ARRAY') |
|
50
|
0 |
0 |
if (_getEndian() eq $endianness) { } |
|
71
|
0 |
0 |
if (eval 'require 5.0100' or $endianness eq '') |
|
76
|
0 |
0 |
unless ($dataType =~ /^[sSiIlLqQjJfFdDpP]$/) |
|
81
|
0 |
0 |
if (_getEndian() eq $endianness) { } |
|
102
|
0 |
0 |
if (defined $dicomFields) |
|
104
|
0 |
0 |
if (defined $$dicomFields{'0002,0010'}) |
|
108
|
0 |
0 |
if ($transferSyntax eq '1.2.840.10008.1.2.2') |
|
129
|
0 |
0 |
if ($verbose <= 1) { } |
|
132
|
0 |
0 |
if ($nPrint > 15) |
|
141
|
0 |
0 |
if ($nPrint < scalar @$value) |
|
146
|
0 |
0 |
if (length $valueStr > 255) |
|
158
|
0 |
0 |
if (($i + 1) % 16 == 0) |
|
180
|
0 |
0 |
if (defined $$vrItem{'tailing'}) |
|
184
|
0 |
0 |
if (defined $$vrItem{'leading'}) |
|
189
|
0 |
0 |
if (defined $$vrItem{'type'}) { } |
|
|
0 |
0 |
elsif (defined $$vrItem{'delimiter'}) { } |
|
192
|
0 |
0 |
unless $isLittleEndian |
|
193
|
0 |
0 |
if ($$vrItem{'type'} eq 'C' or $$vrItem{'type'} eq 'c') |
|
225
|
0 |
0 |
if (ref $dicomFields eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $dicomFields eq 'ARRAY') { } |
|
244
|
0 |
0 |
if ($verbose >= 1) |
|
246
|
0 |
0 |
if (defined $tagID and $tagID =~ /^0002,/) { } |
|
273
|
0 |
0 |
if not $tagID =~ /^\d+$/ and $tagID ne 'x' |
|
275
|
0 |
0 |
unless defined $tagID |