| line |
true |
false |
branch |
|
45
|
0 |
0 |
if (ref $struct eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $struct eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $struct eq 'PDL') { } |
|
48
|
0 |
0 |
if (ref $struct->[$i] eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $struct->[$i] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $struct->[$i] eq 'PDL') { } |
|
51
|
0 |
0 |
if @{$struct->[$i];} == 0 |
|
53
|
0 |
0 |
if $string |
|
64
|
0 |
0 |
if (ref $struct->{$_} eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $struct->{$_} eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $struct->{$_} eq 'PDL') { } |
|
68
|
0 |
0 |
if $string |
|
92
|
0 |
0 |
if (ref $value eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $value eq 'HASH') { } |
|
106
|
0 |
0 |
if ($vr eq 'XX' and defined $tag) |
|
109
|
0 |
0 |
if ($vr eq 'TM') { } |
|
127
|
0 |
0 |
unless defined $data |
|
129
|
0 |
0 |
if $datatype =~ /OW|XX/ |
|
139
|
0 |
0 |
if (defined $tag) { } |
|
147
|
0 |
0 |
if $opt->{'delete_raw'} |
|
155
|
0 |
0 |
if any($a->shape - $b->shape) |
|
156
|
0 |
0 |
if $opt =~ /d/ |
|
157
|
0 |
0 |
if $a->hdr->{'dicom'}{'Pixel Spacing'} ne $b->hdr->{'dicom'}{'Pixel Spacing'} |
|
158
|
0 |
0 |
if $a->hdr->{'dicom'}{'Image Orientation (Patient)'} ne $b->hdr->{'dicom'}{'Image Orientation (Patient)'} |
|
172
|
0 |
0 |
unless opendir my $dir, $dname |
|
174
|
0 |
0 |
unless -f "$dname/$file" |
|
176
|
0 |
0 |
unless eval {
do {
$p->isa('PDL')
}
} |
|
180
|
0 |
0 |
unless ref $dcms{$pid} |
|
182
|
0 |
0 |
if (defined $ref) |
|
184
|
0 |
0 |
unless (is_equal($ref, $p)) |
|
185
|
0 |
0 |
if (not $sp and is_equal($ref, $p->transpose, 'd')) { } |
|
193
|
0 |
0 |
if (ref $dcms{$nid} eq 'HASH') { } |
|
196
|
0 |
0 |
unless $flag |
|
211
|
0 |
0 |
unless (grep /^$pid$/, @pid) |
|
219
|
0 |
0 |
if ref $dcms{$pid}{$p->hdr->{'dcm_key'}} eq 'PDL' |
|
231
|
0 |
0 |
unless eval {
do {
$dcm->isa('PDL')
}
} |
|
235
|
0 |
0 |
if (any($test->slice(list($dcm->hdr->{'dim_idx'}->slice($order))))) |
|
269
|
0 |
0 |
unless ref $stack{'dims'} eq 'PDL' |
|
272
|
0 |
0 |
unless eval {
do {
$dims->isa('PDL')
}
} |
|
276
|
0 |
0 |
unless $x |
|
281
|
0 |
0 |
if ($ref->hdr->{'tp'}) { } |
|
293
|
0 |
0 |
if ($dcm->hdr->{'tp'}) { } |
|
311
|
0 |
0 |
if ($dcm->hdr->{'dicom'}{$field} ne $ref->hdr->{'dicom'}{$field}) |
|
313
|
0 |
0 |
unless ref $header->{'diff'}{$field} |
|
337
|
0 |
0 |
if ref($val) =~ /PDL/ |
|
350
|
0 |
0 |
if ref($val) =~ /PDL/ |
|
354
|
0 |
0 |
if $data{$pid}->ndims != $#{$$opt{'Dimensions'};} + 1 |
|
363
|
0 |
1 |
if ($_[0] eq '-d') |