| line |
true |
false |
branch |
|
81
|
0 |
239 |
unless defined $vec->{'data'} |
|
83
|
120 |
119 |
unless defined $n |
|
88
|
21 |
202 |
if not exists $vec->{'trans'} and exists $attr->{'Trans'}[$ivec] |
|
92
|
13 |
226 |
if exists $vec->{'trans'} and not defined $vec->{'trans'} |
|
101
|
239 |
478 |
if exists $vec->{$_} and defined $vec->{$_} |
|
122
|
203 |
155 |
if defined $min |
|
123
|
203 |
155 |
if defined $max |
|
132
|
0 |
0 |
if $mm->[0] > $min |
|
133
|
0 |
0 |
if $mm->[1] < $max |
|
146
|
154 |
0 |
@_ ? : |
|
177
|
17 |
137 |
$xfrm ? : |
|
181
|
9 |
145 |
if (defined $vec->{'errn'}) |
|
184
|
3 |
6 |
if ($xfrm) { } |
|
190
|
12 |
142 |
if (defined $vec->{'errp'}) |
|
193
|
4 |
8 |
if ($xfrm) { } |
|
216
|
0 |
2 |
if ($zerofix) |
|
218
|
0 |
0 |
if $min < 0 and $axis->[0] >= 0 |
|
221
|
0 |
0 |
if $max > 0 and $axis->[1] <= 0 |
|
247
|
0 |
78 |
unless 2 == @_ |
|
250
|
76 |
2 |
if ($x != 0) |
|
256
|
36 |
40 |
if $x < 0 |
|
258
|
20 |
26 |
if $xlog <= 0 and 'down' eq $what || $xlog != $ilog or $xlog > 0 and "down" eq $what and $xlog == $ilog |
|
267
|
38 |
38 |
if ('up' eq $what) { } |
|
|
38 |
0 |
elsif ('down' eq $what) { } |
|
270
|
26 |
12 |
if $frac < $nice[2] |
|
271
|
12 |
26 |
if $frac < $nice[1] |
|
272
|
0 |
38 |
if $frac < $nice[0] |
|
273
|
18 |
20 |
$x < 0 ? : |
|
274
|
0 |
38 |
if (abs $t - $x < "1e-07") |
|
280
|
30 |
8 |
if $frac > $nice[1] |
|
281
|
18 |
20 |
if $frac > $nice[2] |
|
282
|
0 |
38 |
if $frac > $nice[3] |
|
285
|
36 |
40 |
$x < 0 ? : |
|
299
|
0 |
2 |
if ('ARRAY' eq ref $common) { } |
|
|
0 |
2 |
elsif ('HASH' eq ref $common) { } |
|
346
|
2 |
107 |
if (not $ref or UNIVERSAL::isa($ds, 'PDL')) { } |
|
|
107 |
0 |
elsif ('ARRAY' eq $ref) { } |
|
371
|
1 |
68 |
if keys %dim > 1 |
|
383
|
0 |
120 |
if ($@) |
|
410
|
27 |
80 |
if ('HASH' eq ref $aref->[0]) { } |
|
414
|
20 |
7 |
if (@$aref == grep({'HASH' eq ref $_;} @$aref)) { } |
|
|
7 |
0 |
elsif (@$aref > 1 and 1 == grep({ref $_;} @$aref)) { } |
|
419
|
0 |
20 |
unless defined $attr->{'KeySpec'} and scalar @{$attr->{'KeySpec'};} |
|
456
|
139 |
20 |
if (not $ref or UNIVERSAL::isa($vec, 'PDL')) { } |
|
|
19 |
1 |
elsif ('ARRAY' eq $ref) { } |
|
473
|
1 |
158 |
if ($@) |
|
481
|
79 |
0 |
if @vecs |
|
486
|
1 |
106 |
if ($@) |
|
505
|
0 |
19 |
if @el < 1 or @el > 4 |
|
512
|
5 |
14 |
if "CODE" eq ref $el[-1] |
|
514
|
2 |
17 |
if (exists $el[2]) |
|
518
|
0 |
2 |
if defined $el[2] |
|
527
|
8 |
11 |
if (@el == 2) { } |
|
|
6 |
5 |
elsif (@el == 1) { } |
|
529
|
3 |
5 |
if defined $el[0] |
|
530
|
5 |
3 |
if defined $el[1] |
|
536
|
6 |
0 |
if defined $el[0] |
|
537
|
6 |
0 |
if defined $vec{'errn'} |
|
558
|
0 |
7 |
if @keys and @{$KeySpec;} and @{$KeySpec;} <= @keys |
|
563
|
7 |
36 |
if (@keys) { } |
|
573
|
0 |
13 |
if ($@) |
|
579
|
1 |
12 |
if (@{$KeySpec;}) |
|
586
|
1 |
0 |
unless exists $spec{$_} |
|
617
|
0 |
86 |
unless exists $spec->{'data'} |
|
621
|
108 |
236 |
if (exists $spec->{$el}) |
|
625
|
101 |
6 |
do {
exists $$ds{$spec->{$el}}
} ? : |
|
|
107 |
1 |
defined $spec->{$el} ? : |
|
630
|
1 |
0 |
if "trans" eq $el |
|
648
|
0 |
86 |
unless defined $vec{'data'} |
|
684
|
0 |
55 |
if ('HASH' eq ref $ukeys) { } |
|
688
|
0 |
0 |
if @badkeys |
|
692
|
0 |
0 |
if exists $ukeys->{$_} |
|
705
|
1 |
54 |
if (not defined $keys) { } |
|
721
|
1 |
54 |
unless $keys eq "" |
|
728
|
0 |
3 |
if exists $k{'err'} and exists $k{'errn'} || exists $k{'errp'} |
|
732
|
3 |
51 |
if exists $k{'err'} |
|
736
|
5 |
78 |
if $k{$_} eq "" |
|
759
|
0 |
49 |
unless defined $spec |
|
764
|
41 |
8 |
if ('ARRAY' eq ref $spec) { } |
|
|
8 |
0 |
elsif ('HASH' eq ref $spec) { } |
|
767
|
16 |
0 |
do {
'ARRAY' eq ref $spec->[0]
} ? : |
|
|
16 |
25 |
@$spec ? : |
|
778
|
0 |
25 |
if "ARRAY" ne ref $vlim |
|
781
|
0 |
25 |
if @$vlim > 2 |
|
785
|
0 |
25 |
if grep {ref $_;} @$vlim |
|
788
|
13 |
12 |
unless defined $lims[0] |
|
789
|
13 |
12 |
unless defined $lims[1] |
|
817
|
0 |
8 |
unless @$KeySpec |
|
825
|
0 |
8 |
if @badvecs |
|
833
|
8 |
8 |
if (exists $$spec{$kspec->{'data'}}) |
|
836
|
6 |
2 |
if exists $lspec->{'min'} |
|
837
|
6 |
2 |
if exists $lspec->{'max'} |
|
858
|
49 |
0 |
'HASH' eq ref $_[-1] ? : |
|
878
|
98 |
0 |
if defined $attr{$_} |
|
891
|
40 |
9 |
if ('minmax' eq lc $attr{'Bounds'}) { } |
|
|
9 |
0 |
elsif ('zscale' eq lc $attr{'Bounds'}) { } |
|
902
|
141 |
16 |
if $limits->{'calc'} |
|
913
|
0 |
9 |
unless $attr{'dims'} == 2 |
|
918
|
13 |
4 |
if $limits[0]{'calc'} |
|
921
|
13 |
4 |
if ($limits[1]{'calc'}) |
|
953
|
1 |
48 |
if ('rangefrac' eq lc $attr{'Clean'}) { } |
|
|
1 |
47 |
elsif ('roundpow' eq lc $attr{'Clean'}) { } |
|
|
47 |
0 |
elsif ('none' eq lc $attr{'Clean'}) { } |
|
982
|
48 |
1 |
if (wantarray) { } |
|
989
|
0 |
1 |
if (@{$attr{'KeySpec'};}) { } |