| line |
true |
false |
branch |
|
44
|
18 |
35 |
if ($opt->{'vectors'}) { } |
|
46
|
0 |
18 |
unless eval {
do {
$self->isa("PDL")
}
} |
|
51
|
0 |
18 |
if $vectors->ndims > 2 |
|
55
|
4 |
14 |
if $vectors->ndims == 0 |
|
61
|
1 |
17 |
if defined $opt->{'transform'} |
|
63
|
5 |
13 |
if (defined $opt->{'center'}) |
|
65
|
1 |
4 |
if not ref $opt->{'center'} and $opt->{'center'} eq "auto" |
|
70
|
2 |
1 |
if "ARRAY" eq ref $opt->{'center'} and not ref $opt->{'center'}[0] and not &looks_like_number($opt->{'center'}[0]) |
|
77
|
6 |
29 |
@_ ? : |
|
87
|
11 |
24 |
if defined $opt->{'transform'} |
|
89
|
34 |
1 |
if (defined $opt->{'center'}) { } |
|
90
|
3 |
31 |
if (not ref $opt->{'center'} and $opt->{'center'} eq 'auto') { } |
|
|
2 |
29 |
elsif ('ARRAY' eq ref $opt->{'center'} and not ref $opt->{'center'}[0] and $opt->{'center'}[0] eq 'offset') { } |
|
93
|
1 |
2 |
if defined $opt->{'transform'} |
|
105
|
1 |
1 |
if defined $opt->{'transform'} |
|
117
|
0 |
2 |
@offset > 1 ? : |
|
135
|
6 |
44 |
if defined $center and $center->ndims == 0 |
|
137
|
0 |
37 |
if defined $center and $center->ndims != 1 || ($center->dims)[0] != $ndims |
|
146
|
34 |
16 |
if (not defined $opt->{'scale'} && ref $opt->{'scale'}) { } |
|
|
10 |
6 |
elsif ('ARRAY' eq ref $opt->{'scale'} and @{$opt->{'scale'};} == $ndims) { } |
|
|
0 |
6 |
elsif (eval {
do {
$opt->{'scale'}->isa('PDL')
}
} and $opt->{'scale'}->ndims == 1 and ($opt->{'scale'}->dims)[0] == $ndims) { } |
|
|
6 |
0 |
elsif (eval {
do {
$opt->{'scale'}->isa('PDL')
}
} and $opt->{'scale'}->ndims == 2 and all(pdl($opt->{'scale'}->dims) == pdl($ndims, $ndims))) { } |
|
148
|
25 |
9 |
defined $opt->{'scale'} ? : |
|
182
|
1 |
49 |
if (defined $opt->{'theta'}) |
|
183
|
0 |
1 |
if $ndims != 2 |
|
214
|
41 |
0 |
if ref $_[0] |
|
|
41 |
0 |
eval {
do {
$_[0]->isa('PDL') if ref $_[0]
}
} ? : |
|
217
|
41 |
0 |
'HASH' eq ref $_[-1] ? : |
|
243
|
12 |
29 |
if ($opt{'vectors'}) { } |
|
257
|
0 |
41 |
wantarray ? : |
|
288
|
0 |
10 |
$opt->{'log'} ? : |
|
307
|
12 |
0 |
if ($opt->{'norm'} == 1) |
|
315
|
0 |
12 |
$opt->{'log'} ? : |
|
361
|
0 |
9 |
unless defined $opt->{'beta'} |
|
367
|
9 |
0 |
if ($opt->{'norm'} == 1) |
|
404
|
50 |
0 |
'HASH' eq ref $_[-1] ? : |
|
416
|
33 |
17 |
if (defined $opt{'center'}) { } |
|
425
|
35 |
15 |
$x->ndims > 1 ? : |
|
427
|
50 |
0 |
unless defined $out |
|
432
|
1 |
49 |
if $scale->dims < 2 |
|
436
|
49 |
1 |
unless $opt{'inverted'} |
|
440
|
0 |
50 |
unless $opt{'squared'} |