Branch Coverage

blib/lib/CORBA/XS/StubPerlVisitor.pm
Criterion Covered Total %
branch 0 52 0.0


line true false branch
35 0 0 if ($pkg_prefix) { }
77 0 0 if (exists $$node{'list_import'})
84 0 0 if ($$self{'pkg_modif'})
90 0 0 if ($$self{'has_methods'})
126 0 0 if ($$self{'srcname'} eq $$node{'filename'}) { }
141 0 0 if ($defn->isa('Operation') or $defn->isa('Attributes'))
146 0 0 if ($$self{'pkg_modif'})
153 0 0 if (keys %{$$node{'hash_attribute_operation'};})
188 0 0 if ($$self{'srcname'} eq $$node{'filename'}) { }
202 0 0 if ($defn->isa('Operation') or $defn->isa('Attributes'))
251 0 0 if ($$_{'attr'} eq 'in')
256 0 0 if ($$_{'attr'} eq 'inout')
266 0 0 if ($$_{'attr'} eq 'in') { }
0 0 elsif ($$_{'attr'} eq 'inout') { }
275 0 0 unless exists $$node{'modifier'}
278 0 0 if (exists $$node{'modifier'}) { }
296 0 0 unless ($type->isa('VoidType'))
304 0 0 if ($$_{'attr'} eq 'inout' or $$_{'attr'} eq 'out')
309 0 0 if $$_{'attr'} eq 'out'
313 0 0 if ($$_{'attr'} eq 'inout')
318 0 0 if $nb > 0
319 0 0 if $nb > 1
322 0 0 unless ($type->isa('VoidType'))
327 0 0 if ($$_{'attr'} eq 'out')
328 0 0 unless $first
333 0 0 if $nb > 1