Branch Coverage

blib/lib/Perlilog/sysclasses/PLglobal.pl
Criterion Covered Total %
branch 1 92 1.0


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