| line |
true |
false |
branch |
|
1171
|
0 |
1 |
if scalar @xd != scalar @yd |
|
1174
|
0 |
1 |
if $_ != shift @yd |
|
1277
|
86 |
13 |
if (not defined $p and ref $_[0] eq 'PDL' || ref $_[0] eq 'ARRAY') |
|
1280
|
0 |
178 |
if @_ == 0 |
|
1281
|
78 |
31 |
if (not defined $x and ref $_[0] eq 'PDL' || ref $_[0] eq 'ARRAY') |
|
1284
|
0 |
178 |
if @_ == 0 |
|
1285
|
41 |
107 |
if (not defined $t and ref $_[0] eq 'PDL' || ref $_[0] eq 'ARRAY') |
|
1288
|
7 |
171 |
if @_ == 0 |
|
1289
|
21 |
150 |
if (not defined $infunc and ref($_[0]) =~ /Func|CODE/) |
|
1292
|
3 |
168 |
if @_ == 0 |
|
1293
|
8 |
121 |
if (not defined $infunc || ref $_[0] and $_[0] =~ /(\.c|$PDL::Fit::Levmar::LPPEXT)$/o || $_[0] =~ /\n/) |
|
1297
|
81 |
87 |
if @_ == 0 or $args == 0 |
|
1300
|
80 |
11 |
if @_ |
|
1301
|
11 |
80 |
unless defined $inh |
|
1302
|
80 |
11 |
if (ref $inh ne "HASH") |
|
1303
|
80 |
0 |
defined $inh ? : |
|
1305
|
0 |
91 |
if (exists $inh->{'HELP'}) |
|
1309
|
1 |
90 |
if (exists $inh->{'GETOPTS'}) |
|
1314
|
29 |
61 |
if defined $infunc |
|
1316
|
0 |
90 |
unless defined $inh->{'FUNC'} or defined $inh->{'CSRC'} |
|
1326
|
0 |
540 |
if exists $inh->{$_} |
|
1340
|
221 |
13 |
if (exists $PDL::Fit::Levmar::Levmar_defaults->{$k}) { } |
|
1350
|
4 |
86 |
unless not defined $h->{'P'} and defined $p |
|
1351
|
12 |
78 |
unless not defined $h->{'X'} and defined $p |
|
1352
|
16 |
74 |
unless not defined $h->{'T'} and defined $p |
|
1354
|
0 |
90 |
unless (defined $p) |
|
1360
|
0 |
90 |
unless (defined $x) |
|
1370
|
33 |
57 |
unless defined $t |
|
1380
|
4 |
86 |
if defined $h->{'COVAR'} |
|
1381
|
0 |
90 |
if defined $h->{'POUT'} |
|
1382
|
0 |
90 |
if defined $h->{'INFO'} |
|
1383
|
0 |
90 |
if defined $h->{'RET'} |
|
1384
|
0 |
90 |
if defined $h->{'WGHTS'} |
|
1387
|
86 |
4 |
unless defined $covar |
|
1388
|
90 |
0 |
unless defined $pout |
|
1389
|
90 |
0 |
unless defined $info |
|
1390
|
90 |
0 |
unless defined $ret |
|
1391
|
90 |
0 |
unless defined $wghts |
|
1401
|
0 |
90 |
unless exists $h->{'FUNC'} |
|
1402
|
63 |
27 |
if (ref($h->{'FUNC'}) =~ /CODE/ or not ref $h->{'FUNC'}) { } |
|
1406
|
0 |
63 |
if ($ret[0] == -1) |
|
1420
|
0 |
27 |
if (@k) |
|
1421
|
0 |
0 |
if @k > 1 |
|
1438
|
8 |
82 |
if (ref($h->{'FUNC'}) =~ /CODE/) |
|
1441
|
6 |
2 |
if (defined $h->{'JFUNC'} and ref($h->{'JFUNC'}) =~ /CODE/) |
|
1444
|
2 |
6 |
if ($deriv eq "analytic" and $jfunc == 0) |
|
1458
|
71 |
19 |
if ($deriv eq 'analytic') { } |
|
|
0 |
19 |
elsif ($deriv ne 'numeric') { } |
|
1459
|
1 |
70 |
if (not defined $jacn or $jacn == 0) |
|
1472
|
70 |
20 |
$h->{'DERIVATIVE'} eq 'analytic' ? : |
|
1481
|
0 |
90 |
if (defined $h->{'FIX'}) { } |
|
|
1 |
89 |
elsif (defined $h->{'FIXB'}) { } |
|
1483
|
0 |
0 |
if (chk_eq_dims($ip, $p) < 0) |
|
1487
|
0 |
0 |
if ($nc > 0) |
|
1492
|
0 |
0 |
if ($ip->at($i) == 1) |
|
1504
|
0 |
1 |
if (chk_eq_dims($f, $p) < 0) |
|
1507
|
0 |
1 |
unless defined $h->{'UB'} |
|
1508
|
0 |
1 |
unless defined $h->{'LB'} |
|
1517
|
0 |
90 |
if (defined $h->{'NOCOVAR'}) |
|
1522
|
0 |
90 |
if (@$errs > 0) |
|
1528
|
0 |
90 |
unless (defined $func_key) |
|
1531
|
0 |
90 |
unless (exists $PDL::Fit::Levmar::PDL_Levmar_funcs{$func_key}) |
|
1540
|
70 |
20 |
$h->{'DERIVATIVE'} eq 'analytic' ? : |
|
1543
|
8 |
82 |
if $DFP |
|
1571
|
30 |
510 |
if (exists $h->{$argname} and defined $h->{$argname}) |
|
1573
|
0 |
30 |
unless (ref $arg) |
|
1583
|
0 |
360 |
if exists $h->{$arg} and defined $h->{$arg} |
|
1585
|
0 |
180 |
if ($nf != 0 and $n != $nf) |
|
1605
|
30 |
510 |
if (exists $h->{$ucarg} and defined $h->{$ucarg}) |
|
1611
|
70 |
20 |
if ($h->{'DERIVATIVE'} eq 'analytic') { } |
|
1617
|
0 |
90 |
if exists $h->{'WGHTS'} and defined $h->{'WGHTS'} |
|
1670
|
0 |
4 |
unless ($r =~ /Levmar::Func/) |
|
1675
|
0 |
4 |
unless (ref($t) =~ /PDL/) |
|
1681
|
2 |
2 |
if (ref($f->{'FUNC'}) =~ /CODE/) { } |
|
1684
|
0 |
2 |
unless (defined $f->{'JFUNC'} and ref($f->{'FUNC'}) =~ /CODE/) |
|
1699
|
0 |
4 |
if (defined $N) { } |