Branch Coverage

blib/lib/CORBA/IDL/Node.pm
Criterion Covered Total %
branch 0 624 0.0


line true false branch
21 0 0 unless (defined $$self{$_})
42 0 0 if (defined $value)
60 0 0 if (exists $$self{'full'}) { }
61 0 0 if ($class eq 'Module' or $class =~ /^Forward/) { }
77 0 0 if (exists $$self{'inheritance'})
78 0 0 if (exists $$self{'inheritance'}{'list_interface'})
81 0 0 if (exists $$self{'inheritance'}{'list_value'})
91 0 0 unless exists $$self{'props'}
92 0 0 unless exists $$self{'props'}{$key}
99 0 0 unless exists $$self{'props'}
100 0 0 unless exists $$self{'props'}{$key}
111 0 0 if ($visitor->can($func))
128 0 0 if ($visitor->can($func))
152 0 0 if (ref $export) { }
153 0 0 unless (ref($export) =~ /^CORBA::IDL::Forward/)
154 0 0 if ($export->isa('Module')) { }
159 0 0 if defined $_
204 0 0 if ($parser->YYData->{'doc'} ne '')
205 0 0 unless exists $$self{'doc'}
221 0 0 if (ref $export) { }
222 0 0 unless (ref($export) =~ /^CORBA::IDL::Forward/)
223 0 0 if ($export->isa('Module')) { }
228 0 0 if defined $_
256 0 0 if ($parser->YYData->{'doc'} ne '')
260 0 0 if $self->isa('LocalInterface')
277 0 0 if $defn->isa('Initializer')
278 0 0 if $defn->isa('StateMember')
281 0 0 if (exists $$self{'hash_attribute_operation'}{$_}) { }
282 0 0 if ($$self{'hash_attribute_operation'}{$_} ne $name)
300 0 0 if (ref $export) { }
301 0 0 unless (ref($export) =~ /^CORBA::IDL::Forward/)
303 0 0 if defined $_
328 0 0 if (defined $defn) { }
329 0 0 if ($defn->isa('Forward' . $class)) { }
0 0 elsif (not $defn->isa($class)) { }
330 0 0 unless $bypass
357 0 0 if (exists $$self{'list_interface'})
359 0 0 if (exists $hash{$name}) { }
366 0 0 if (exists $$base{'inheritance'})
375 0 0 if (exists $$self{'list_value'})
377 0 0 if (exists $hash{$name}) { }
384 0 0 if (exists $$base{'inheritance'})
405 0 0 if (exists $$self{'inheritance'})
409 0 0 if ($base->isa('LocalInterface'))
424 0 0 if ($defn->isa('Attribute')) { }
0 0 elsif ($defn->isa('Operation')) { }
425 0 0 if ('CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$defn{'type'}))
430 0 0 if ('CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$defn{'type'}))
434 0 0 if ('CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$_{'type'}))
450 0 0 if (exists $$defn{'list_raise'})
453 0 0 if ($except->isa('NativeType'))
475 0 0 if $self->isa('ForwardLocalInterface')
506 0 0 if (exists $$self{'inheritance'})
511 0 0 unless ($base->isa('AbstractInterface'))
526 0 0 if ($defn->isa('Attribute')) { }
0 0 elsif ($defn->isa('Operation')) { }
527 0 0 if ('CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$defn{'type'}))
532 0 0 if ('CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$defn{'type'}))
536 0 0 if ('CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$_{'type'}))
552 0 0 if (exists $$defn{'list_raise'})
555 0 0 if ($except->isa('NativeType'))
601 0 0 if (exists $$self{'inheritance'})
602 0 0 if (exists $$self{'inheritance'}{'modifier'} and exists $$self{'modifier'})
606 0 0 if (exists $$self{'inheritance'}{'list_interface'})
610 0 0 if ($base->isa('RegularInterface'))
614 0 0 if $nb > 1
617 0 0 if (exists $$self{'inheritance'}{'list_value'})
621 0 0 if ($base->isa('RegularValue'))
624 0 0 if ($base->isa('BoxedValue'))
628 0 0 if $nb > 1
640 0 0 unless ref $value_element eq 'CORBA::IDL::StateMembers'
643 0 0 if 'CORBA::IDL::TypeDeclarator'->IsDeprecated($parser, $_)
673 0 0 if (@array_size) { }
683 0 0 if $CORBA::IDL::Parser::IDL_VERSION ge '2.4'
701 0 0 if ('CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$self{'type'}))
702 0 0 if exists $$self{'type'}{'idf'}
716 0 0 if (defined $parser->YYData->{'curr_itf'}) { }
722 0 0 if ($parser->YYData->{'doc'} ne '')
742 0 0 if (defined $parser->YYData->{'curr_itf'}) { }
749 0 0 if ($parser->YYData->{'doc'} ne '')
762 0 0 if ($$_{'attr'} eq 'in')
785 0 0 if ($parser->YYData->{'doc'} ne '')
799 0 0 if ($type->isa('Value'))
800 0 0 if ($CORBA::IDL::Parser::IDL_VERSION ge '3.0') { }
807 0 0 if 'CORBA::IDL::TypeDeclarator'->IsDeprecated($parser, $type)
822 0 0 if (exists $$self{'inheritance'})
823 0 0 if (exists $$self{'inheritance'}{'list_interface'})
827 0 0 if ($base->isa('RegularInterface'))
831 0 0 if $nb > 1
834 0 0 if (exists $$self{'inheritance'}{'list_value'})
837 0 0 unless ($base->isa('AbstractValue'))
877 0 0 if (not exists $$self{'type'}) { }
0 0 elsif (@{$$self{'list_expr'};} == 1 and defined $$self{'list_expr'}[0]) { }
887 0 0 if (ref $$self{'type'})
889 0 0 if ($$self{'type'}->isa('WideCharType') and $expr->isa('CharacterLiteral')) { }
0 0 elsif ($$self{'type'}->isa('WideStringType') and $expr->isa('StringLiteral')) { }
937 0 0 if (defined $type) { }
947 0 0 if ($type->isa('IntegerType') or $type->isa('OctetType')) { }
0 0 elsif ($type->isa('FloatingPtType')) { }
0 0 elsif ($type->isa('FixedPtConstType')) { }
950 0 0 unless defined $right
952 0 0 unless defined $left
954 0 0 if ($$elt{'op'} eq '|') { }
0 0 elsif ($$elt{'op'} eq '^') { }
0 0 elsif ($$elt{'op'} eq '&') { }
0 0 elsif ($$elt{'op'} eq '+') { }
0 0 elsif ($$elt{'op'} eq '-') { }
0 0 elsif ($$elt{'op'} eq '*') { }
0 0 elsif ($$elt{'op'} eq '/') { }
0 0 elsif ($$elt{'op'} eq '%') { }
0 0 elsif ($$elt{'op'} eq '>>') { }
0 0 elsif ($$elt{'op'} eq '<<') { }
987 0 0 if (0 <= $right and $right < 64) { }
997 0 0 if (0 <= $right and $right < 64) { }
1013 0 0 unless defined $right
1015 0 0 unless defined $left
1017 0 0 if ($$elt{'op'} eq '+') { }
0 0 elsif ($$elt{'op'} eq '-') { }
0 0 elsif ($$elt{'op'} eq '*') { }
0 0 elsif ($$elt{'op'} eq '/') { }
0 0 elsif ($$elt{'op'} eq '|' or $$elt{'op'} eq '^' or $$elt{'op'} eq '&' or $$elt{'op'} eq '>>' or $$elt{'op'} eq '<<' or $$elt{'op'} eq '%') { }
1048 0 0 unless defined $right
1050 0 0 unless defined $left
1052 0 0 if ($$elt{'op'} eq '+') { }
0 0 elsif ($$elt{'op'} eq '-') { }
0 0 elsif ($$elt{'op'} eq '*') { }
0 0 elsif ($$elt{'op'} eq '/') { }
0 0 elsif ($$elt{'op'} eq '|' or $$elt{'op'} eq '^' or $$elt{'op'} eq '&' or $$elt{'op'} eq '>>' or $$elt{'op'} eq '<<' or $$elt{'op'} eq '%') { }
1090 0 0 if ($type->isa('IntegerType') or $type->isa('OctetType')) { }
0 0 elsif ($type->isa('FloatingPtType')) { }
0 0 elsif ($type->isa('FixedPtConstType')) { }
1093 0 0 unless defined $right
1095 0 0 if ($$elt{'op'} eq '+') { }
0 0 elsif ($$elt{'op'} eq '-') { }
0 0 elsif ($$elt{'op'} eq '~') { }
1104 0 0 if ($$type{'value'} eq 'short') { }
0 0 elsif ($$type{'value'} eq 'unsigned short') { }
0 0 elsif ($$type{'value'} eq 'long') { }
0 0 elsif ($$type{'value'} eq 'unsigned long') { }
0 0 elsif ($$type{'value'} eq 'long long') { }
0 0 elsif ($$type{'value'} eq 'unsigned long long') { }
0 0 elsif ($$type{'value'} eq 'octet') { }
1135 0 0 unless defined $right
1137 0 0 if ($$elt{'op'} eq '+') { }
0 0 elsif ($$elt{'op'} eq '-') { }
0 0 elsif ($$elt{'op'} eq '~') { }
1155 0 0 unless defined $right
1157 0 0 if ($$elt{'op'} eq '+') { }
0 0 elsif ($$elt{'op'} eq '-') { }
0 0 elsif ($$elt{'op'} eq '~') { }
1182 0 0 unless defined $elt
1183 0 0 unless $elt
1184 0 0 unless (ref $elt)
1186 0 0 unless defined $elt
1188 0 0 if ($elt->isa('BinaryOp')) { }
0 0 elsif ($elt->isa('UnaryOp')) { }
0 0 elsif ($elt->isa('Constant')) { }
0 0 elsif ($elt->isa('Enum')) { }
0 0 elsif ($elt->isa('IntegerLiteral')) { }
0 0 elsif ($elt->isa('StringLiteral')) { }
0 0 elsif ($elt->isa('WideStringLiteral')) { }
0 0 elsif ($elt->isa('CharacterLiteral')) { }
0 0 elsif ($elt->isa('WideCharacterLiteral')) { }
0 0 elsif ($elt->isa('FixedPtLiteral')) { }
0 0 elsif ($elt->isa('FloatingPtLiteral')) { }
0 0 elsif ($elt->isa('BooleanLiteral')) { }
1195 0 0 if (ref $type eq ref $$elt{'value'}{'type'}) { }
0 0 elsif ($type->isa('IntegerType') and $$elt{'value'}{'type'}->isa('OctetType')) { }
1207 0 0 if ($type eq $parser->YYData->{'symbtab'}->Lookup($$elt{'type'})) { }
1216 0 0 if ($type->isa('IntegerType')) { }
0 0 elsif ($type->isa('OctetType')) { }
1228 0 0 if ($type->isa('StringType')) { }
1237 0 0 if ($type->isa('WideStringType')) { }
1246 0 0 if ($type->isa('CharType')) { }
1255 0 0 if ($type->isa('WideCharType')) { }
1264 0 0 if ($type->isa('FixedPtConstType')) { }
1273 0 0 if ($type->isa('FloatingPtType')) { }
1282 0 0 if ($type->isa('BooleanType')) { }
1298 0 0 if defined $bypass
1299 0 0 if ($type->isa('IntegerType')) { }
0 0 elsif ($type->isa('OctetType')) { }
0 0 elsif ($type->isa('FloatingPtType')) { }
0 0 elsif ($type->isa('FixedPtConstType')) { }
0 0 elsif ($type->isa('StringType') or $type->isa('WideStringType')) { }
1300 0 0 if ($$type{'value'} eq 'short') { }
0 0 elsif ($$type{'value'} eq 'long') { }
0 0 elsif ($$type{'value'} eq 'long long') { }
0 0 elsif ($$type{'value'} eq 'unsigned short') { }
0 0 elsif ($$type{'value'} eq 'unsigned long') { }
0 0 elsif ($$type{'value'} eq 'unsigned long long') { }
1301 0 0 if ($value >= {sign => '-', value => [32768]} and $value <= {sign => '+', value => [32767]}) { }
1310 0 0 if ($value >= {sign => '-', value => ['147483648', '2']} and $value <= {sign => '+', value => ['147483647', '2']}) { }
1319 0 0 if ($value >= {sign => '-', value => ['854775808', '223372036', '9']} and $value <= {sign => '+', value => ['854775807', '223372036', '9']}) { }
1328 0 0 if ($value >= 0 and $value <= {sign => '+', value => [65535]}) { }
1337 0 0 if ($value >= 0 and $value <= {sign => '+', value => ['294967295', '4']}) { }
1346 0 0 if ($value >= 0 and $value <= {sign => '+', value => ['709551615', '446744073', '18']}) { }
1360 0 0 if ($value >= 0 and $value <= {sign => '+', value => [255]}) { }
1369 0 0 if $value == 0
1371 0 0 if ($$type{'value'} eq 'float') { }
0 0 elsif ($$type{'value'} eq 'double') { }
0 0 elsif ($$type{'value'} eq 'long double') { }
1372 0 0 if ($abs_v >= {_e => [46], _es => '-', _m => [117549435], sign => '+'} and $abs_v <= {_e => [30], _es => '+', _m => [340282347], sign => '+'}) { }
1381 0 0 if ($abs_v >= {_e => [325], _es => '-', _m => ['850720138', '222507385'], sign => '+'} and $abs_v <= {_e => [291], _es => '+', _m => ['486231571', '179769313'], sign => '+'}) { }
1390 0 0 if ($abs_v >= {_e => [325], _es => '-', _m => ['850720138', '222507385'], sign => '+'} and $abs_v <= {_e => [291], _es => '+', _m => ['486231571', '179769313'], sign => '+'}) { }
1408 0 0 if (exists $$type{'max'})
1411 0 0 if ($len <= $$type{'max'}{'value'}) { }
1431 0 0 if ($parser->YYData->{'doc'} ne '')
1441 0 0 if (defined $defn) { }
1442 0 0 unless ($defn->isa('IntegerType') or $defn->isa('EnumType') or $defn->isa('OctetType') or $defn->isa('CharType') or $defn->isa('StringType') or $defn->isa('BooleanType') or $defn->isa('FloatingPtType') or $defn->isa('WideCharType') or $defn->isa('WideStringType') or $defn->isa('FixedPtConstType'))
1452 0 0 if exists $$defn{'idf'}
1453 0 0 if exists $$type{'idf'}
1477 0 0 if (defined $defn) { }
1478 0 0 unless ($defn->isa($class) or $defn->isa('Enum'))
1554 0 0 if (@array_size) { }
1594 0 0 if ($parser->YYData->{'doc'} ne '')
1600 0 0 if 'CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$self{'type'})
1601 0 0 if 'CORBA::IDL::TypeDeclarator'->IsDeprecated($parser, $$self{'type'})
1610 0 0 if (defined $defn) { }
1611 0 0 unless ($defn->isa($class) or $defn->isa('NativeType') or $defn->isa('_ConstructedType') or $defn->isa('_ForwardConstructedType') or $defn->isa('BaseInterface') or $defn->isa('ForwardBaseInterface'))
1630 0 0 unless $type
1631 0 0 if (ref $type) { }
1645 0 0 unless (defined $defn)
1652 0 0 unless (defined $defn)
1665 0 0 unless defined $defn
1666 0 0 if ($defn->isa('StringType') or $defn->isa('WideStringType')) { }
0 0 elsif ($defn->isa('FixedPtType')) { }
0 0 elsif ($defn->isa('SequenceType')) { }
1668 0 0 if (exists $$defn{'max'})
1670 0 0 if $CORBA::IDL::Parser::IDL_VERSION ge '2.4'
1676 0 0 if $CORBA::IDL::Parser::IDL_VERSION ge '2.4'
1681 0 0 if $CORBA::IDL::Parser::IDL_VERSION ge '2.4'
1691 0 0 exists $$defn{'deprecated'} ? :
1700 0 0 unless defined $defn
1703 0 0 if exists $$defn{'array_size'}
1705 0 0 unless defined $defn
1707 0 0 if ($defn->isa('_ForwardConstructedType'))
1717 0 0 unless $type
1719 0 0 if $defn
1734 0 0 if ($parser->YYData->{'doc'} ne '')
1813 0 0 if ($parser->YYData->{'doc'} ne '')
1829 0 0 if 'CORBA::IDL::TypeDeclarator'->IsDeprecated($parser, $_)
1831 0 0 if 'CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$_{'type'})
1851 0 0 if (@array_size) { }
1859 0 0 if $CORBA::IDL::Parser::IDL_VERSION ge '2.4'
1883 0 0 if ($parser->YYData->{'doc'} ne '')
1903 0 0 if ($parser->YYData->{'doc'} ne '')
1917 0 0 if (defined $defn)
1918 0 0 unless ($defn->isa('IntegerType') or $defn->isa('CharType') or $defn->isa('BooleanType') or $defn->isa('EnumType'))
1922 0 0 if exists $$defn{'idf'}
1923 0 0 if exists $$dis{'idf'}
1933 0 0 if 'CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$elt{'type'})
1934 0 0 if 'CORBA::IDL::TypeDeclarator'->IsDeprecated($parser, $$elt{'value'})
1938 0 0 if (ref $_ eq 'CORBA::IDL::Default') { }
1949 0 0 if ($defn->isa('EnumType')) { }
1958 0 0 if (defined $key)
1959 0 0 if (exists $hash{$key}) { }
1971 0 0 if ($defn->isa('EnumType')) { }
1974 0 0 unless exists $hash{$_}
1976 0 0 if ($all) { }
1977 0 0 if exists $$self{'default'}
1981 0 0 unless exists $$self{'default'}
1986 0 0 unless exists $$self{'default'}
2012 0 0 if (@array_size) { }
2019 0 0 if $CORBA::IDL::Parser::IDL_VERSION ge '2.4'
2046 0 0 if $parser->YYData->{'forward_constructed_forbidden'}
2074 0 0 if ($parser->YYData->{'doc'} ne '')
2091 0 0 if (exists $hash{$$_{'idf'}}) { }
2105 0 0 if ($idx > 4294967295)
2118 0 0 if ($parser->YYData->{'doc'} ne '')
2144 0 0 if 'CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$self{'type'})
2183 0 0 if ($parser->YYData->{'doc'} ne '')
2200 0 0 if 'CORBA::IDL::TypeDeclarator'->IsaLocal($parser, $$_{'type'})
2212 0 0 if (defined $defn) { }
2213 0 0 unless ($defn->isa($class) or $defn->isa('NativeType'))
2236 0 0 if ($parser->YYData->{'doc'} ne '')
2244 0 0 if (defined $parser->YYData->{'curr_itf'}) { }
2246 0 0 unless $$self{'idf'} =~ /^_/
2252 0 0 unless (ref $type)
2253 0 0 if ($type =~ /::([0-9A-Z_a-z]+)$/)
2263 0 0 if (exists $$self{'modifier'} and $$self{'modifier'} eq 'oneway')
2266 0 0 unless (ref $type or $type->isa('VoidType'))
2270 0 0 if $_->isa('Ellipsis')
2271 0 0 if ($$_{'attr'} ne 'in')
2275 0 0 if (exists $$self{'list_raise'})
2290 0 0 if $_->isa('Ellipsis')
2291 0 0 if ($$_{'attr'} eq 'in') { }
0 0 elsif ($$_{'attr'} eq 'inout') { }
0 0 elsif ($$_{'attr'} eq 'out') { }
2316 0 0 unless (ref $type)
2317 0 0 if ($type =~ /::([0-9A-Z_a-z]+)$/)
2324 0 0 if ($parser->YYData->{'doc'} ne '')
2373 0 0 unless $$self{'idf'}
2374 0 0 if ($parser->YYData->{'doc'} ne '')
2380 0 0 if (defined $parser->YYData->{'curr_itf'}) { }
2399 0 0 unless (exists $$self{'modifier'})
2435 0 0 if (defined $node)
2436 0 0 if ($node->isa('Modules') or $node->isa('BaseInterface') or $node->isa('ForwardBaseInterface') or $node->isa('StateMember') or $node->isa('Constant') or $node->isa('TypeDeclarator') or $node->isa('Enum') or $node->isa('Exception') or $node->isa('Operation') or $node->isa('Attribute') or $node->isa('Provides') or $node->isa('Uses') or $node->isa('Emits') or $node->isa('Publishes') or $node->isa('Consumes') or $node->isa('Factory') or $node->isa('Finder')) { }
2453 0 0 if (exists $$node{'id'})
2456 0 0 if (exists $$node{'typeid'}) { }
2477 0 0 unless ($$self{'value'} =~ m[^[0-9A-Za-z_:\./\-]*$])
2480 0 0 if ($$self{'idf'}) { }
2482 0 0 if (defined $node)
2483 0 0 if ($node->isa('Modules') or $node->isa('Interface') or $node->isa('ForwardInterface') or $node->isa('Value') or $node->isa('ForwardValue') or $node->isa('Specification')) { }
2489 0 0 if ($$node{'prefix'})
2521 0 0 if (exists $$self{'inheritance'})
2522 0 0 if (exists $$self{'inheritance'}{'modifier'} and exists $$self{'modifier'})
2614 0 0 if (defined $parser->YYData->{'curr_itf'}) { }
2621 0 0 if ($parser->YYData->{'doc'} ne '')
2634 0 0 if ($$_{'attr'} eq 'in')
2653 0 0 if (defined $parser->YYData->{'curr_itf'}) { }
2660 0 0 if ($parser->YYData->{'doc'} ne '')
2673 0 0 if ($$_{'attr'} eq 'in')