| line |
true |
false |
branch |
|
34
|
0 |
1 |
unless $name eq 'globalobject' |
|
43
|
0 |
0 |
unless $dir |
|
45
|
0 |
0 |
unless -e $dir |
|
46
|
0 |
0 |
unless opendir DIR, $dir |
|
59
|
0 |
0 |
unless $global == $global->globalobj |
|
76
|
0 |
0 |
if $Perlilog::wrongflag |
|
83
|
0 |
0 |
unless grep {$type eq $_;} 'sync', 'negsync', 'async', 'negasync' |
|
84
|
0 |
0 |
unless defined $Perlilog::VARS[$ID] |
|
115
|
0 |
0 |
unless defined $i->get('inshash') |
|
116
|
0 |
0 |
if ref $i->get('parent') |
|
131
|
0 |
0 |
unless ref $Perlilog::EQVARS[$i] |
|
145
|
0 |
0 |
if (@out) |
|
150
|
0 |
0 |
if (@zout) |
|
155
|
0 |
0 |
if (@in) |
|
169
|
0 |
0 |
unless $#ids > 0 |
|
191
|
0 |
0 |
if (defined $where{$obj}) { } |
|
192
|
0 |
0 |
if ($drive eq 'zout') |
|
193
|
0 |
0 |
if ($obj->get(['vars', $where{$obj}, 'drive']) eq 'zout') { } |
|
199
|
0 |
0 |
unless $obj->append(" tran $tranins ($var, " . $where{$obj} . ");\n") |
|
215
|
0 |
0 |
if ($drive eq 'in') { } |
|
|
0 |
0 |
elsif ($drive eq 'out') { } |
|
|
0 |
0 |
elsif ($drive eq 'zout') { } |
|
|
0 |
0 |
elsif ($drive eq 'via') { } |
|
228
|
0 |
0 |
if ($#out < 0 and $#zout < 0) { } |
|
|
0 |
0 |
elsif ($#out > 0) { } |
|
|
0 |
0 |
elsif ($#out == 0 and $#zout >= 0) { } |
|
244
|
0 |
0 |
if $t == $f |
|
256
|
0 |
0 |
if $start == $to and $start->append(" assign $tv = $fv;\n") |
|
268
|
0 |
0 |
unless (ref $next) |
|
281
|
0 |
0 |
if (defined $parent and $parent == $from) { } |
|
290
|
0 |
0 |
$next == $to ? : |
|
294
|
0 |
0 |
unless (defined $nv) |
|
303
|
0 |
0 |
if (defined $where{$source} and $source->get(['vars', $where{$source}, 'drive']) ne 'via') |
|
310
|
0 |
0 |
unless defined $nv |
|
320
|
0 |
0 |
unless defined $tmp |
|
327
|
0 |
0 |
if ($next->get('static')) { } |
|
328
|
0 |
0 |
unless $next->get(['vars', $nv, 'type']) eq $tmp |
|
351
|
0 |
0 |
$next == $to ? : |
|
355
|
0 |
0 |
unless (defined $nv) |
|
364
|
0 |
0 |
if (defined $where{$source} and $source->get(['vars', $where{$source}, 'drive']) ne 'via') |
|
371
|
0 |
0 |
unless defined $nv |
|
382
|
0 |
0 |
unless defined $tmp |
|
389
|
0 |
0 |
if ($from->get('static')) { } |
|
390
|
0 |
0 |
unless $from->get(['vars', $wf, 'type']) eq $tmp |
|
402
|
0 |
0 |
if (defined $tmp and $tmp ne $nv) { } |
|
412
|
0 |
0 |
if $next == $to |