| line |
true |
false |
branch |
|
1203
|
0 |
0 |
if scalar @xd != scalar @yd |
|
1206
|
0 |
0 |
if $_ != shift @yd |
|
1310
|
85 |
13 |
if (not defined $p and ref $_[0] eq 'PDL' || ref $_[0] eq 'ARRAY') |
|
1313
|
0 |
176 |
if @_ == 0 |
|
1314
|
77 |
31 |
if (not defined $x and ref $_[0] eq 'PDL' || ref $_[0] eq 'ARRAY') |
|
1317
|
0 |
176 |
if @_ == 0 |
|
1318
|
40 |
107 |
if (not defined $t and ref $_[0] eq 'PDL' || ref $_[0] eq 'ARRAY') |
|
1321
|
7 |
169 |
if @_ == 0 |
|
1322
|
21 |
148 |
if (not defined $infunc and ref($_[0]) =~ /Func|CODE/) |
|
1325
|
3 |
166 |
if @_ == 0 |
|
1326
|
8 |
119 |
if (not defined $infunc || ref $_[0] and $_[0] =~ /(\.c|$PDL::Fit::Levmar::LPPEXT)$/o || $_[0] =~ /\n/) |
|
1330
|
80 |
86 |
if @_ == 0 or $args == 0 |
|
1333
|
79 |
11 |
if @_ |
|
1334
|
11 |
79 |
unless defined $inh |
|
1335
|
79 |
11 |
if (ref $inh ne 'HASH') |
|
1336
|
79 |
0 |
defined $inh ? : |
|
1338
|
0 |
90 |
if (exists $inh->{'HELP'}) |
|
1342
|
1 |
89 |
if (exists $inh->{'GETOPTS'}) |
|
1347
|
29 |
60 |
if defined $infunc |
|
1349
|
0 |
89 |
unless defined $inh->{'FUNC'} or defined $inh->{'CSRC'} |
|
1356
|
0 |
534 |
if exists $inh->{$_} |
|
1369
|
222 |
13 |
if (exists $PDL::Fit::Levmar::Levmar_defaults->{$k}) { } |
|
1379
|
4 |
85 |
unless not defined $h->{'P'} and defined $p |
|
1380
|
12 |
77 |
unless not defined $h->{'X'} and defined $p |
|
1381
|
16 |
73 |
unless not defined $h->{'T'} and defined $p |
|
1383
|
33 |
56 |
unless defined $t |
|
1385
|
0 |
89 |
unless (defined $p) |
|
1391
|
0 |
89 |
unless (defined $x) |
|
1411
|
4 |
85 |
if defined $h->{'COVAR'} |
|
1412
|
0 |
89 |
if defined $h->{'POUT'} |
|
1413
|
0 |
89 |
if defined $h->{'INFO'} |
|
1414
|
0 |
89 |
if defined $h->{'RET'} |
|
1415
|
5 |
84 |
if defined $h->{'WORK'} |
|
1416
|
0 |
89 |
if defined $h->{'WGHTS'} |
|
1419
|
85 |
4 |
unless defined $covar |
|
1420
|
89 |
0 |
unless defined $pout |
|
1421
|
89 |
0 |
unless defined $info |
|
1422
|
89 |
0 |
unless defined $ret |
|
1423
|
84 |
5 |
unless defined $work |
|
1424
|
89 |
0 |
unless defined $wghts |
|
1438
|
0 |
89 |
unless exists $h->{'FUNC'} |
|
1439
|
62 |
27 |
if (ref($h->{'FUNC'}) =~ /CODE/ or not ref $h->{'FUNC'}) { } |
|
1443
|
0 |
62 |
if ($ret[0] == -1) |
|
1457
|
0 |
27 |
if (@k) |
|
1458
|
0 |
0 |
if @k > 1 |
|
1475
|
8 |
81 |
if (ref($h->{'FUNC'}) =~ /CODE/) |
|
1478
|
6 |
2 |
if (defined $h->{'JFUNC'} and ref($h->{'JFUNC'}) =~ /CODE/) |
|
1481
|
2 |
6 |
if ($deriv eq 'analytic' and $jfunc == 0) |
|
1495
|
70 |
19 |
if ($deriv eq 'analytic') { } |
|
|
0 |
19 |
elsif ($deriv ne 'numeric') { } |
|
1496
|
1 |
69 |
if (not defined $jacn or $jacn == 0) |
|
1508
|
69 |
20 |
if ($h->{'DERIVATIVE'} eq 'analytic') { } |
|
1522
|
0 |
89 |
if (defined $h->{'FIX'}) { } |
|
|
0 |
89 |
elsif (defined $h->{'FIXB'}) { } |
|
1524
|
0 |
0 |
if (chk_eq_dims($ip, $p) < 0) |
|
1528
|
0 |
0 |
if ($nc > 0) |
|
1533
|
0 |
0 |
if ($ip->at($i) == 1) |
|
1545
|
0 |
0 |
if (chk_eq_dims($f, $p) < 0) |
|
1548
|
0 |
0 |
unless (defined $h->{'UB'}) |
|
1552
|
0 |
0 |
unless (defined $h->{'LB'}) |
|
1563
|
0 |
89 |
if (defined $h->{'NOCOVAR'}) |
|
1568
|
0 |
89 |
if (@$errs > 0) |
|
1574
|
0 |
89 |
unless (defined $func_key) |
|
1577
|
0 |
89 |
unless (exists $PDL::Fit::Levmar::PDL_Levmar_funcs{$func_key}) |
|
1585
|
69 |
20 |
if ($h->{'DERIVATIVE'} eq 'analytic') |
|
1591
|
8 |
81 |
if $DFP |
|
1620
|
28 |
506 |
if (exists $h->{$argname} and defined $h->{$argname}) |
|
1622
|
0 |
28 |
unless (ref $arg) |
|
1632
|
0 |
356 |
if exists $h->{$arg} and defined $h->{$arg} |
|
1634
|
0 |
178 |
if ($nf != 0 and $n != $nf) |
|
1654
|
28 |
506 |
if (exists $h->{$ucarg} and defined $h->{$ucarg}) |
|
1660
|
69 |
20 |
if ($h->{'DERIVATIVE'} eq 'analytic') { } |
|
1666
|
0 |
89 |
if exists $h->{'WGHTS'} and defined $h->{'WGHTS'} |
|
1724
|
0 |
4 |
unless ($r =~ /Levmar::Func/) |
|
1729
|
0 |
4 |
unless (ref($t) =~ /PDL/) |
|
1735
|
2 |
2 |
if (ref($f->{'FUNC'}) =~ /CODE/) { } |
|
1738
|
0 |
2 |
unless (defined $f->{'JFUNC'} and ref($f->{'FUNC'}) =~ /CODE/) |
|
1753
|
0 |
4 |
if (defined $N) { } |