| line | true | false | branch | 
 
| 32 | 0 | 0 | if (exists $parser->YYData->{'opt_J'}) { } | 
 
| 56 | 0 | 0 | if ($dirname ne '.') | 
 
| 57 | 0 | 0 | unless (-d $dirname) | 
 
| 58 | 0 | 0 | unless mkpath($dirname) | 
 
| 66 | 0 | 0 | unless $$self{'out'} = 'IO::File'->new("> $filename") | 
 
| 74 | 0 | 0 | if (defined $doc_string) | 
 
| 80 | 0 | 0 | if ($name eq '::CORBA') | 
 
| 84 | 0 | 0 | if ($name eq '::IOP') | 
 
| 88 | 0 | 0 | if ($name eq '::GIOP') | 
 
| 92 | 0 | 0 | if ($name eq '::' or $name eq '') { } | 
 
| 93 | 0 | 0 | if ($$self{'base_package'}) { } | 
 
| 94 | 0 | 0 | if (exists $$self{'server'}) { } | 
 
| 105 | 0 | 0 | if (exists $$self{'server'}) { } | 
 
| 115 | 0 | 0 | if (exists $$self{'server'}) { } | 
 
| 122 | 0 | 0 | if ($$self{'base_package'}) | 
 
| 137 | 0 | 0 | if (ref $defn) { } | 
 
| 151 | 0 | 0 | if ($name eq $scope_full) { } | 
 
|  | 0 | 0 | elsif ($name =~ /^::[0-9A-Z_a-z]+$/) { } | 
 
| 155 | 0 | 0 | if ($scope_full) { } | 
 
| 158 | 0 | 0 | if (exists $$self{'server'}) { } | 
 
| 170 | 0 | 0 | if ($scope_full) { } | 
 
| 174 | 0 | 0 | unless $scope_full | 
 
| 179 | 0 | 0 | if (exists $$self{'server'}) | 
 
| 183 | 0 | 0 | if ($$self{'base_package'}) | 
 
| 186 | 0 | 0 | if (exists $$self{'import_substitution'}{$import_name}) | 
 
| 196 | 0 | 0 | if ($defn->isa('Interface') and exists $$self{'server'}) { } | 
 
| 212 | 0 | 0 | exists $$self{'server'} ? : | 
 
| 213 | 0 | 0 | unless open my $FH, '>', $filename | 
 
| 223 | 0 | 0 | if $$self{'setup_py_modules'} | 
 
| 226 | 0 | 0 | if scalar @{$$self{'setup_packages'};} | 
 
| 234 | 0 | 0 | unless $$self{'base_package'} | 
 
| 236 | 0 | 0 | unless (-d $dirname) | 
 
| 237 | 0 | 0 | unless mkpath($dirname) | 
 
| 242 | 0 | 0 | unless (-e $filename) | 
 
| 243 | 0 | 0 | unless open my $FH, '>', $filename | 
 
| 263 | 0 | 0 | if ($$self{'base_package'}) { } | 
 
| 265 | 0 | 0 | if (exists $$self{'server'}) | 
 
| 276 | 0 | 0 | if (exists $$self{'server'}) | 
 
| 283 | 0 | 0 | unless ($defn->isa('Modules') or $defn->isa('Import')) | 
 
| 288 | 0 | 0 | unless ($empty) | 
 
| 293 | 0 | 0 | unless ($empty) | 
 
| 299 | 0 | 0 | unless ($empty) | 
 
| 318 | 0 | 0 | if exists $$self{'done_hash'}{$name} | 
 
| 324 | 0 | 0 | if (exists $$self{'server'}) { } | 
 
| 331 | 0 | 0 | if ($$self{'base_package'}) | 
 
| 334 | 0 | 0 | unless $$self{'setup_name'} | 
 
| 370 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 380 | 0 | 0 | if ($defn->isa('Operation') or $defn->isa('Attributes') or $defn->isa('Initializer') or $defn->isa('StateMembers')) | 
 
| 391 | 0 | 0 | if ($$self{'id'}) | 
 
| 410 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 412 | 0 | 0 | if (exists $$node{'inheritance'} and exists $$node{'inheritance'}{'list_interface'}) | 
 
| 416 | 0 | 0 | unless $first | 
 
| 427 | 0 | 0 | if (exists $$node{'inheritance'} and exists $$node{'inheritance'}{'list_interface'}) { } | 
 
| 430 | 0 | 0 | unless $first | 
 
| 449 | 0 | 0 | if ($defn->isa('Operation') or $defn->isa('Attributes')) | 
 
| 455 | 0 | 0 | if ($$self{'id'}) | 
 
| 475 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 477 | 0 | 0 | if (exists $$node{'inheritance'} and exists $$node{'inheritance'}{'list_interface'}) | 
 
| 481 | 0 | 0 | unless $first | 
 
| 492 | 0 | 0 | if (exists $$node{'inheritance'} and exists $$node{'inheritance'}{'list_interface'}) { } | 
 
| 495 | 0 | 0 | unless $first | 
 
| 514 | 0 | 0 | if ($defn->isa('Operation') or $defn->isa('Attributes')) | 
 
| 556 | 0 | 0 | if ($type->isa('StructType') or $type->isa('UnionType') or $type->isa('EnumType') or $type->isa('FixedPtType')) | 
 
| 567 | 0 | 0 | if ($type2->isa('EnumType')) | 
 
| 573 | 0 | 0 | if (exists $$node{'array_size'}) { } | 
 
|  | 0 | 0 | elsif ($type->isa('SequenceType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('FixedPtType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('StringType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('WideStringType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('StructType') or $type->isa('UnionType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('TypeDeclarator') or $type->isa('BaseInterface')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('FloatingPtType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('IntegerType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('CharType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('WideCharType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('BooleanType')) { } | 
 
|  | 0 | 0 | elsif ($type->isa('OctetType')) { } | 
 
| 574 | 0 | 0 | if ($type->isa('OctetType') || $type->isa('CharType') and scalar @{$$node{'array_size'};} == 1) { } | 
 
| 576 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 594 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 611 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 614 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
| 623 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 628 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
| 642 | 0 | 0 | if (exists $$type{'max'}) { } | 
 
| 650 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 667 | 0 | 0 | if (defined $_) | 
 
| 675 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 708 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 724 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 755 | 0 | 0 | if (defined $_) | 
 
| 763 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 775 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 791 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 805 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 817 | 0 | 0 | if (defined $_) | 
 
| 827 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 836 | 0 | 0 | if ($type->isa('CharType')) | 
 
| 839 | 0 | 0 | if ($type->isa('OctetType')) | 
 
| 856 | 0 | 0 | if (exists $$type{'max'}) { } | 
 
| 864 | 0 | 0 | if ($type->isa('OctetType') || $type->isa('CharType') and scalar @array_max == 1) { } | 
 
| 866 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 872 | 0 | 0 | if (defined $array_max[0]) | 
 
| 886 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 900 | 0 | 0 | if (defined $array_max[0]) | 
 
| 906 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 910 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
| 919 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 925 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
| 937 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 947 | 0 | 0 | if (defined $_) | 
 
| 955 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 988 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 999 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 1023 | 0 | 0 | if (defined $_) | 
 
| 1031 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 1043 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1054 | 0 | 0 | if ($type->isa('OctetType')) { } | 
 
|  | 0 | 0 | elsif (exists $$type{'full'}) { } | 
 
| 1068 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1074 | 0 | 0 | if (defined $_) | 
 
| 1084 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1093 | 0 | 0 | if ($type->isa('CharType')) | 
 
| 1096 | 0 | 0 | if ($type->isa('OctetType')) | 
 
| 1111 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1124 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1130 | 0 | 0 | if (exists $$type{'max'}) | 
 
| 1144 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1157 | 0 | 0 | if (exists $$type{'max'}) | 
 
| 1163 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1169 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1178 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1185 | 0 | 0 | if (exists $$type{'max'}) | 
 
| 1199 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1212 | 0 | 0 | if (exists $$type{'max'}) | 
 
| 1218 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1226 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1253 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1269 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1281 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1289 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1303 | 0 | 0 | if ($value eq 'short' or $value eq 'unsigned_short' or $value eq 'long') { } | 
 
| 1311 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1328 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1342 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1348 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1357 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1374 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1388 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1394 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1403 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1419 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1433 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1439 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1448 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1464 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1477 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1483 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1492 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1509 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1523 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1529 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1541 | 0 | 0 | if ($$self{'id'}) | 
 
| 1547 | 0 | 0 | if (exists $$node{'serial_uid'}) | 
 
| 1569 | 0 | 0 | if exists $$self{'done_hash'}{$name} | 
 
| 1572 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1584 | 0 | 0 | if ($type->isa('StructType') or $type->isa('UnionType') or $type->isa('FixedPtType')) | 
 
| 1615 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 1631 | 0 | 0 | if ($first) { } | 
 
| 1643 | 0 | 0 | if ($$self{'compare'}) | 
 
| 1660 | 0 | 0 | if ($$self{'stringify'}) | 
 
| 1661 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1677 | 0 | 0 | if ($$self{'id'}) | 
 
| 1683 | 0 | 0 | if (exists $$node{'serial_uid'}) | 
 
| 1701 | 0 | 0 | if (exists $$member{'array_size'}) | 
 
| 1709 | 0 | 0 | if ($n == scalar @{$$member{'array_size'};}) | 
 
| 1710 | 0 | 0 | if ($type->isa('OctetType')) | 
 
| 1720 | 0 | 0 | if (exists $$type{'max'}) { } | 
 
| 1728 | 0 | 0 | if (scalar @array_max) | 
 
| 1729 | 0 | 0 | unless $n | 
 
| 1735 | 0 | 0 | if ($n == $m + scalar(@array_max)) | 
 
| 1736 | 0 | 0 | if ($type->isa('OctetType')) | 
 
| 1743 | 0 | 0 | if ($n) { } | 
 
| 1744 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1754 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1762 | 0 | 0 | if ($type->isa('StringType') || $type->isa('WideStringType') and exists $$type{'max'}) | 
 
| 1780 | 0 | 0 | if (exists $$member{'array_size'}) | 
 
| 1786 | 0 | 0 | if ($n == scalar @{$$member{'array_size'};}) | 
 
| 1787 | 0 | 0 | if ($type->isa('OctetType')) | 
 
| 1797 | 0 | 0 | if (exists $$type{'max'}) { } | 
 
| 1805 | 0 | 0 | if (scalar @array_max) | 
 
| 1806 | 0 | 0 | unless $n | 
 
| 1812 | 0 | 0 | if ($n == $m + scalar(@array_max)) | 
 
| 1813 | 0 | 0 | if ($type->isa('OctetType')) | 
 
| 1820 | 0 | 0 | if ($n) { } | 
 
| 1821 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1831 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1850 | 0 | 0 | if (exists $$member{'array_size'}) | 
 
| 1860 | 0 | 0 | if (exists $$type{'max'}) { } | 
 
| 1871 | 0 | 0 | if (defined $_) | 
 
| 1880 | 0 | 0 | if ($n) { } | 
 
| 1882 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1891 | 0 | 0 | if ($type->isa('CharType')) | 
 
| 1894 | 0 | 0 | if ($type->isa('OctetType')) | 
 
| 1905 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1913 | 0 | 0 | if ($type->isa('StringType') || $type->isa('WideStringType') and exists $$type{'max'}) | 
 
| 1925 | 0 | 0 | if (exists $$member{'array_size'}) | 
 
| 1932 | 0 | 0 | if (exists $$type{'max'}) { } | 
 
| 1951 | 0 | 0 | if exists $$self{'done_hash'}{$name} | 
 
| 1957 | 0 | 0 | if $_->isa('Default') | 
 
| 1961 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 1971 | 0 | 0 | if ($type->isa('EnumType')) | 
 
| 1976 | 0 | 0 | if ($type->isa('StructType') or $type->isa('UnionType') or $type->isa('FixedPtType')) | 
 
| 1986 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 1997 | 0 | 0 | unless ($_->isa('Default')) | 
 
| 2005 | 0 | 0 | if ($elif eq 'if') | 
 
| 2008 | 0 | 0 | if (defined $default) { } | 
 
| 2020 | 0 | 0 | if (scalar @{$$case{'list_label'};} == 1) | 
 
| 2022 | 0 | 0 | unless ($_->isa('Default')) | 
 
| 2043 | 0 | 0 | unless ($_->isa('Default')) | 
 
| 2051 | 0 | 0 | if ($elif eq 'if') | 
 
| 2054 | 0 | 0 | if (defined $default) { } | 
 
| 2067 | 0 | 0 | if (scalar @{$$case{'list_label'};} == 1) | 
 
| 2069 | 0 | 0 | unless ($_->isa('Default')) | 
 
| 2089 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 2091 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 2102 | 0 | 0 | unless ($_->isa('Default')) | 
 
| 2110 | 0 | 0 | if ($elif eq 'if') | 
 
| 2113 | 0 | 0 | if (defined $default) { } | 
 
| 2124 | 0 | 0 | if (exists $$type{'full'}) { } | 
 
| 2135 | 0 | 0 | unless ($_->isa('Default')) | 
 
| 2144 | 0 | 0 | if ($elif eq 'if') | 
 
| 2147 | 0 | 0 | if (defined $default) { } | 
 
| 2160 | 0 | 0 | if ($$self{'compare'}) | 
 
| 2176 | 0 | 0 | if ($$self{'stringify'}) | 
 
| 2177 | 0 | 0 | if ($$self{'old_object'}) { } | 
 
| 2191 | 0 | 0 | if ($$self{'id'}) | 
 
| 2197 | 0 | 0 | if (exists $$node{'serial_uid'}) | 
 
| 2223 | 0 | 0 | if exists $$self{'done_hash'}{$name} | 
 
| 2232 | 0 | 0 | if ($$self{'id'}) | 
 
| 2238 | 0 | 0 | if (exists $$node{'serial_uid'}) | 
 
| 2272 | 0 | 0 | if exists $$self{'done_hash'}{$name} | 
 
| 2278 | 0 | 0 | if (exists $$node{'list_expr'}) | 
 
| 2280 | 0 | 0 | unless @{$$node{'list_expr'};} | 
 
| 2286 | 0 | 0 | if ($type->isa('StructType') or $type->isa('UnionType') or $type->isa('FixedPtType')) | 
 
| 2295 | 0 | 0 | if (exists $$node{'list_expr'}) | 
 
| 2309 | 0 | 0 | if (exists $$node{'list_expr'}) | 
 
| 2323 | 0 | 0 | if ($$self{'marshal'}) | 
 
| 2325 | 0 | 0 | if (exists $$node{'list_expr'}) { } | 
 
| 2336 | 0 | 0 | if (exists $$node{'list_expr'}) | 
 
| 2344 | 0 | 0 | if (exists $$node{'list_expr'}) | 
 
| 2347 | 0 | 0 | if ($first) { } | 
 
| 2360 | 0 | 0 | if ($$self{'compare'}) | 
 
| 2377 | 0 | 0 | if ($$self{'stringify'}) | 
 
| 2379 | 0 | 0 | if (exists $$node{'list_expr'}) { } | 
 
| 2394 | 0 | 0 | if ($$self{'id'}) | 
 
| 2400 | 0 | 0 | if (exists $$node{'serial_uid'}) | 
 
| 2418 | 0 | 0 | if ($$_{'attr'} eq 'in' or $$_{'attr'} eq 'inout') | 
 
| 2425 | 0 | 0 | unless ($type->isa('VoidType')) | 
 
| 2429 | 0 | 0 | if ($$_{'attr'} eq 'inout' or $$_{'attr'} eq 'out') | 
 
| 2433 | 0 | 0 | if (scalar @out) { } | 
 
| 2458 | 0 | 0 | if exists $$node{'_set'} |