| line |
true |
false |
branch |
|
211
|
8 |
62 |
if (ref $opts ne 'HASH') |
|
212
|
8 |
0 |
defined $opts ? : |
|
231
|
86 |
0 |
if (exists $self->{$_}) { } |
|
247
|
10 |
54 |
if defined $self->{'NOSO'} |
|
248
|
54 |
0 |
if (defined $self->{'LIBHANDLE'}) |
|
250
|
0 |
54 |
if ($err ne '' or $ret != 0) |
|
253
|
0 |
54 |
if $ret != 0 |
|
254
|
52 |
2 |
if (defined $self->{'JPOINTER'}) |
|
256
|
0 |
52 |
if $ret != 0 |
|
257
|
0 |
52 |
if ($err ne '' or $ret != 0) |
|
261
|
52 |
2 |
if (defined $self->{'SJPOINTER'}) |
|
263
|
0 |
52 |
if $ret != 0 |
|
264
|
0 |
52 |
if ($err ne '' or $ret != 0) |
|
268
|
54 |
0 |
if (defined $self->{'SFPOINTER'}) |
|
270
|
0 |
54 |
if $ret != 0 |
|
271
|
0 |
54 |
if ($err ne '' or $ret != 0) |
|
276
|
53 |
1 |
if (not defined $self->{'NOCLEAN'} and defined $self->{'SONAME'}) |
|
279
|
53 |
0 |
if (-e $fn) |
|
280
|
0 |
53 |
if (not -f $fn) { } |
|
285
|
0 |
53 |
if ($cnt < 1) { } |
|
299
|
10 |
60 |
if (defined $self->{'FUNC'} and $self->{'FUNC'} =~ /CODE/) { } |
|
304
|
0 |
12 |
unless (defined $self->{'FUNC'} or defined $self->{'CSRC'}) |
|
308
|
0 |
60 |
if $err[0] == -1 |
|
311
|
0 |
60 |
unless ($self->make_shared_object_file) |
|
314
|
0 |
60 |
unless ($self->load_fit_library) |
|
317
|
58 |
2 |
unless defined $self->{'NOCLEAN'} |
|
319
|
2 |
68 |
if (defined $self->{'JFUNC'}) |
|
320
|
2 |
0 |
if ($self->{'JFUNC'} =~ /CODE/) { } |
|
334
|
0 |
94 |
unless defined $self->{'NAME'} |
|
336
|
1 |
93 |
unless (-d $q) |
|
337
|
0 |
1 |
unless File::Path::mkpath($q) |
|
340
|
60 |
34 |
unless exists $self->{'FNAME'} |
|
374
|
48 |
12 |
unless (defined $self->{'CSRC'}) |
|
375
|
2 |
31 |
if (not $self->{'FUNC'} =~ /$PDL::Fit::Levmar::Func::LPPEXT$/o and $self->{'FUNC'} =~ /\.c$/ || !($self->{'FUNC'} =~ /(^|\n)\s*function(\s+\w+|\s*)\n/)) |
|
382
|
14 |
46 |
if (defined $self->{'CSRC'}) { } |
|
|
46 |
0 |
elsif (defined $self->{'FUNC'}) { } |
|
383
|
4 |
10 |
if ($self->{'CSRC'} =~ /\.c$/) { } |
|
387
|
0 |
4 |
unless open CHAND, "<$cf" |
|
395
|
0 |
14 |
unless defined $jacname |
|
398
|
14 |
0 |
if $jacname |
|
402
|
14 |
0 |
if $jacname |
|
403
|
0 |
14 |
if ($^O =~ /MSWin32/i) |
|
407
|
0 |
0 |
if $jacname |
|
408
|
0 |
0 |
if $jacname |
|
419
|
14 |
0 |
unless exists $self->{'NAME'} |
|
420
|
14 |
0 |
unless exists $self->{'JACNAME'} |
|
425
|
15 |
31 |
if ($st =~ /$PDL::Fit::Levmar::Func::LPPEXT$/o) |
|
428
|
0 |
15 |
unless open FUNCHAND, "<$st" |
|
434
|
0 |
46 |
if ($ret[0] eq '-1') { } |
|
443
|
46 |
0 |
unless exists $self->{'NAME'} |
|
444
|
46 |
0 |
unless exists $self->{'JACNAME'} |
|
456
|
28 |
354 |
if (/^\s*void\s+([\w]+)/) |
|
458
|
14 |
14 |
if ($fn =~ /^jac/) { } |
|
466
|
0 |
14 |
if (not defined $fname or $fname eq '') |
|
475
|
0 |
60 |
unless exists $self->{'CCODE'} |
|
476
|
0 |
60 |
unless (defined $self->{'NAME'}) |
|
480
|
0 |
60 |
unless open CCODEH, ">$srcn" |
|
481
|
0 |
60 |
if defined $self->{'CTOP'} |
|
499
|
0 |
34 |
if $i > $max |
|
505
|
0 |
60 |
if ($i > $max) { } |
|
|
21 |
39 |
elsif ($i > 0) { } |
|
509
|
0 |
21 |
if (rename($srcn1, $srcn) == 0) |
|
519
|
0 |
60 |
if ($ret != 0) |
|
529
|
0 |
60 |
if (0 != $ret) |
|
577
|
58 |
0 |
if (-e $fn) |
|
578
|
0 |
58 |
if (not -f $fn) { } |
|
583
|
0 |
58 |
if ($cnt < 1) |
|
589
|
58 |
0 |
if (-e $srcn) |
|
590
|
0 |
58 |
unless (-f $srcn) |
|
593
|
0 |
58 |
unless open my $srch, '<', $srcn |
|
600
|
14 |
58 |
if $line =~ /^\s*$/ |
|
601
|
44 |
14 |
if ($line =~ m[/\* This file automatically]) |
|
606
|
0 |
44 |
if $cnt < 1 |
|
612
|
14 |
44 |
unless $closed == 1 |
|
624
|
0 |
60 |
unless -e $so |
|
633
|
0 |
60 |
if ($error_message ne '') |
|
638
|
58 |
2 |
if (defined $jn and $jn ne '') |
|
641
|
0 |
58 |
if ($error_message ne '') { } |
|
650
|
0 |
58 |
if ($error_message ne '') { } |
|
674
|
0 |
120 |
if $f->{'FVERBOSE'} |
|
682
|
0 |
155 |
unless (-e $f) |
|
686
|
0 |
155 |
unless (-f $f) |
|
691
|
0 |
155 |
unless ($cnt > 0) |
|
717
|
8 |
641 |
if $oneline =~ /^\s*end\s+(function|jacobian)\s*/ |
|
718
|
90 |
551 |
if ($oneline =~ /^\s*(function|jacobian)\s*(\w*)\s*$/) |
|
720
|
34 |
56 |
unless $name ne '' |
|
722
|
23 |
67 |
if $type eq 'jacobian' and not $name =~ /^jac/ |
|
731
|
22 |
529 |
if ($oneline =~ /^\s*noloop/) { } |
|
|
40 |
489 |
elsif ($oneline =~ /^\s*loop/) { } |
|
750
|
0 |
46 |
if (defined $self->{'TESTSYNTAX'}) |
|
752
|
0 |
0 |
if (@$prefunc > 0) |
|
759
|
0 |
0 |
if (defined $d->{'preloop'}) |
|
763
|
0 |
0 |
if (defined $d->{'loop'}) |
|
797
|
46 |
44 |
if $type eq 'function' |
|
798
|
44 |
46 |
if $type eq 'jacobian' |
|
799
|
68 |
22 |
if (defined $d->{'loop'}) |
|
801
|
6 |
62 |
if ($loopcode =~ /^\s*$/) { } |
|
808
|
62 |
28 |
if defined $d->{'preloop'} |
|
812
|
62 |
28 |
if (defined $preloop) |
|
816
|
62 |
197 |
if ($type eq 'function') { } |
|
|
197 |
0 |
elsif ($type eq 'jacobian') { } |
|
830
|
62 |
28 |
if (defined $loop) |
|
837
|
51 |
131 |
if ($type eq 'function') { } |
|
|
131 |
0 |
elsif ($type eq 'jacobian') { } |
|
842
|
71 |
60 |
if (/^\s*d\d+\[?i?\]?(.+)/) |
|
856
|
0 |
46 |
$^O =~ /MSWin32/i ? : |
|
923
|
0 |
0 |
if ($self->{'FPOINTER'} == 0) |
|
936
|
0 |
0 |
if ($self->{'JPOINTER'} == 0) |
|
942
|
0 |
0 |
unless ref($jac) =~ /PDL/ |
|
953
|
0 |
0 |
if ($self->{'JPOINTER'} == 0) |
|
960
|
0 |
0 |
unless ref($jac) =~ /PDL/ |