| line |
true |
false |
branch |
|
333
|
0 |
0 |
unless defined $hash |
|
338
|
0 |
0 |
unless defined $grid |
|
339
|
0 |
0 |
if ref $grid eq 'PDLA' |
|
341
|
0 |
0 |
unless defined $step |
|
342
|
0 |
0 |
if ref $step eq 'PDLA' |
|
351
|
0 |
0 |
if $two_cols |
|
356
|
0 |
0 |
if $two_cols |
|
359
|
0 |
0 |
if ($two_cols) { } |
|
367
|
0 |
0 |
if (wantarray) { } |
|
423
|
0 |
0 |
if -e $file |
|
454
|
0 |
0 |
$nd =~ /^n/i ? : |
|
461
|
0 |
0 |
if (-e $file) |
|
465
|
0 |
0 |
if defined $im |
|
468
|
0 |
0 |
unless defined $found |
|
470
|
0 |
0 |
unless defined $im |
|
538
|
0 |
0 |
if (defined $y) { } |
|
541
|
0 |
0 |
$x->is_inplace ? : |
|
544
|
0 |
0 |
if (not defined $x) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($x, 'PDLA') and $lines->slice([0, 0, 0])->nelem == $x->nelem) { } |
|
547
|
0 |
0 |
$lines->is_inplace ? : |
|
552
|
0 |
0 |
$x->is_inplace ? : |
|
556
|
0 |
0 |
$lines->is_inplace ? : |
|
575
|
0 |
0 |
if (wantarray) { } |
|
597
|
0 |
0 |
/^mile/ ? : |
|
|
0 |
0 |
/^Mm/ ? : |
|
|
0 |
0 |
/^km/ ? : |
|
|
0 |
0 |
/^kilometer/ ? : |
|
|
0 |
0 |
/^meter/ ? : |
|
|
1 |
0 |
/^rad(ian)?s?$/i ? : |
|
|
0 |
1 |
/^millirad/i ? : |
|
|
0 |
1 |
/^microrad/i ? : |
|
|
0 |
1 |
/^min/i ? : |
|
|
0 |
1 |
/^hour/i ? : |
|
|
0 |
1 |
/^arcsec/i ? : |
|
|
1 |
1 |
/^arcmin/i ? : |
|
|
1 |
2 |
/^deg/i ? : |
|
613
|
0 |
0 |
if not defined $x || $silent and $PDLA::debug || $PDLA::verbose |
|
636
|
2 |
0 |
unless ref $o eq 'HASH' |
|
647
|
0 |
2 |
if ($or->nelem != 2) |
|
654
|
0 |
2 |
if defined $l |
|
655
|
0 |
2 |
if defined $b_angle |
|
668
|
0 |
2 |
if (defined $ou) { } |
|
669
|
0 |
0 |
if (not ref $ou) { } |
|
702
|
0 |
0 |
if ($me->{'params'}{'o'}->slice(0) != 0 or $me->{'params'}{'o'}->slice(1) != 0 or $me->{'params'}{'roll'} != 0) |
|
795
|
0 |
8 |
defined $o->{'conv'} && $o->{'conv'} != 1 ? : |
|
808
|
0 |
8 |
if ($d->dim(0) > 2) |
|
828
|
0 |
0 |
if ($d->dim(0) > 3) |
|
833
|
0 |
0 |
if defined $o->{'conv'} and $o->{'conv'} != 1 |
|
969
|
0 |
0 |
if ($m =~ /^b/i) { } |
|
|
0 |
0 |
elsif ($m =~ /^n/i) { } |
|
|
0 |
0 |
elsif ($m =~ /^f/i) { } |
|
996
|
0 |
0 |
if $roll->at(0) |
|
1006
|
0 |
0 |
if ($o->{'m'}) |
|
1009
|
0 |
0 |
if $o->{'m'} == 1 |
|
1011
|
0 |
0 |
if $o->{'m'} == 2 |
|
1012
|
0 |
0 |
if (defined $idx and ref $idx eq 'PDLA' and $idx->nelem) |
|
1021
|
0 |
0 |
$d0 > 3 ? : |
|
1034
|
0 |
0 |
if $dims[0] > 3 |
|
1038
|
0 |
0 |
if $o->{'m'} == 2 |
|
1091
|
0 |
0 |
$d->is_inplace ? : |
|
1099
|
0 |
0 |
$d->is_inplace ? : |
|
1166
|
0 |
0 |
if (defined $p->{'c'}) { } |
|
1172
|
0 |
0 |
if $p->{'c'}->nelem == 1 |
|
1181
|
0 |
0 |
if ($p->{'std'} == 0) { } |
|
1183
|
0 |
0 |
unless defined $me->{'ounit'} |
|
1186
|
0 |
0 |
unless defined $me->{'ounit'} |
|
1194
|
0 |
0 |
$d->is_inplace ? : |
|
1200
|
0 |
0 |
unless $o->{'c'}[0] == $o->{'c'}[1] |
|
1203
|
0 |
0 |
if defined $o->{'oconv'} |
|
1210
|
0 |
0 |
$d->is_inplace ? : |
|
1212
|
0 |
0 |
if defined $o->{'oconv'} |
|
1315
|
0 |
0 |
unless defined $x->{'ounit'} |
|
1316
|
0 |
0 |
unless ref $x->{'ounit'} |
|
1323
|
0 |
0 |
$subzone < 0 ? : |
|
1336
|
0 |
0 |
$gk ? : |
|
1341
|
0 |
0 |
$zone < 0 ? : |
|
1387
|
0 |
0 |
if ($me->{'params'}{'std'} == 0) { } |
|
1399
|
0 |
0 |
$d->is_inplace ? : |
|
1409
|
0 |
0 |
$d->is_inplace ? : |
|
1453
|
0 |
0 |
$d->is_inplace ? : |
|
1462
|
0 |
0 |
$d->is_inplace ? : |
|
1503
|
0 |
0 |
$p->{'std'} < 0 ? : |
|
|
0 |
0 |
if $p->{'std'}->nelem == 1 |
|
1506
|
0 |
0 |
if approx($p->{'std'}->slice(0), -$p->{'std'}->slice(1)) |
|
1565
|
0 |
0 |
if ($p->{'cylindrical'}) |
|
1566
|
0 |
0 |
if $PDLA::verbose |
|
1582
|
0 |
0 |
$d->is_inplace ? : |
|
1595
|
0 |
0 |
$d->is_inplace ? : |
|
1600
|
0 |
0 |
if $o->{'n'} < 0 |
|
1602
|
0 |
0 |
$o->{'n'} < 0 ? : |
|
1682
|
0 |
0 |
if ($p->{'cylindrical'}) |
|
1683
|
0 |
0 |
if $PDLA::verbose |
|
1698
|
0 |
0 |
$d->is_inplace ? : |
|
1711
|
0 |
0 |
$d->is_inplace ? : |
|
1716
|
0 |
0 |
$o->{'n'} < 0 ? : |
|
1784
|
0 |
0 |
if ($p->{'cylindrical'}) |
|
1785
|
0 |
0 |
if $PDLA::verbose |
|
1792
|
0 |
0 |
if (defined $p->{'c'}) { } |
|
1797
|
0 |
0 |
if $p->{'c'}->nelem == 1 |
|
1801
|
0 |
0 |
if (approx($p->{'std'}->slice([0, 0, 0]), $p->{'std'}->slice([1, 0, 0]))) { } |
|
1825
|
0 |
0 |
$d->is_inplace ? : |
|
1830
|
0 |
0 |
$o->{'c'}[0] == $o->{'c'}[1] ? : |
|
1842
|
0 |
0 |
$d->is_inplace ? : |
|
1848
|
0 |
0 |
if $o->{'n'} < 0 |
|
1849
|
0 |
0 |
$o->{'n'} < 0 ? : |
|
1912
|
0 |
0 |
$d->is_inplace ? : |
|
1930
|
0 |
0 |
$d->is_inplace ? : |
|
1997
|
0 |
0 |
$d->is_inplace ? : |
|
2011
|
0 |
0 |
if ($idx->nelem) |
|
2021
|
0 |
0 |
$d->is_inplace ? : |
|
2034
|
0 |
0 |
if ($idx->nelem) |
|
2097
|
0 |
0 |
$d->is_inplace ? : |
|
2113
|
0 |
0 |
if ($idx->nelem) |
|
2123
|
0 |
0 |
$d->is_inplace ? : |
|
2133
|
0 |
0 |
if ($idx->nelem) |
|
2185
|
0 |
0 |
$d->is_inplace ? : |
|
2199
|
0 |
0 |
if ($idx->nelem) |
|
2209
|
0 |
0 |
$d->is_inplace ? : |
|
2269
|
0 |
0 |
$d->is_inplace ? : |
|
2282
|
0 |
0 |
$d->is_inplace ? : |
|
2371
|
0 |
0 |
if ($m =~ /^b/i) { } |
|
|
0 |
0 |
elsif ($m =~ /^n/i) { } |
|
|
0 |
0 |
elsif ($m =~ /^f/i) { } |
|
2387
|
0 |
0 |
if ($p->{'r0'} == 0) |
|
2388
|
0 |
0 |
if $PDLA::verbose |
|
2393
|
0 |
0 |
if ($p->{'r0'} == 1) |
|
2394
|
0 |
0 |
if $PDLA::verbose |
|
2410
|
0 |
0 |
if $p->{'f'} and not defined $p->{'t'} |
|
2413
|
0 |
0 |
if defined $p->{'t'} |
|
2417
|
0 |
0 |
$d->is_inplace ? : |
|
2430
|
0 |
0 |
if ($o->{'t'}) |
|
2435
|
0 |
0 |
$o->{'f'} ? : |
|
|
0 |
0 |
if $o->{'t'} |
|
2446
|
0 |
0 |
if ($o->{'m'}) |
|
2449
|
0 |
0 |
if $o->{'m'} == 1 |
|
2451
|
0 |
0 |
if $o->{'m'} == 2 |
|
2453
|
0 |
0 |
if (defined $idx and ref $idx eq 'PDLA' and $idx->nelem) |
|
2465
|
0 |
0 |
$d->is_inplace ? : |
|
2468
|
0 |
0 |
$o->{'m'} == 2 ? : |
|
2471
|
0 |
0 |
$o->{'f'} ? : |
|
|
0 |
0 |
if $o->{'t'} |
|
2481
|
0 |
0 |
if ($P < 0) |
|
2483
|
0 |
0 |
if $idx->nelem > 0 |
|
2502
|
0 |
0 |
if $p->{'f'} |
|
2683
|
0 |
1 |
if $m =~ /^b/i |
|
2684
|
0 |
1 |
if $m =~ /^n/i |
|
2685
|
0 |
1 |
if $m =~ /^f/i |
|
2719
|
0 |
1 |
if (defined $p->{'c'}) |
|
2728
|
0 |
1 |
if ($p->{'r0'} < 1) |
|
2780
|
0 |
8 |
$d->is_inplace ? : |
|
2785
|
0 |
8 |
if (abs $o->{'r0'} < 1) { } |
|
2797
|
8 |
0 |
if ($o->{'m'} == 1) { } |
|
|
0 |
0 |
elsif ($o->{'m'} == 2) { } |
|
2816
|
8 |
0 |
if ($o->{'mag'} == 1) { } |
|
2819
|
0 |
0 |
if $PDLA::verbose |
|
2829
|
0 |
8 |
if (ref $o->{'f'} eq 'ARRAY') { } |
|
2838
|
0 |
0 |
$idx->nelem ? : |
|
|
0 |
8 |
if $w->nelem |
|
2841
|
8 |
0 |
if ($idx->nelem) |
|
2859
|
0 |
0 |
$d->is_inplace ? : |
|
2865
|
0 |
0 |
if ($o->{'mag'} != 1) |
|
2882
|
0 |
0 |
if ($o->{'m'} == 2) { } |
|
2901
|
0 |
0 |
if (abs $o->{'r0'} < 1) { } |
|
2913
|
0 |
0 |
if ($o->{'m'} == 1) { } |
|
|
0 |
0 |
elsif ($o->{'m'} == 2) { } |
|
2927
|
0 |
0 |
if ($idx->nelem) |