| line |
true |
false |
branch |
|
71
|
0 |
0 |
if (exists $$self{'c_mapping'}{$c_key}) { } |
|
87
|
0 |
0 |
unless $class eq 'Module' |
|
90
|
0 |
0 |
if $$self{'current_scope'} |
|
92
|
0 |
0 |
if exists $$self{'msg'} |
|
97
|
0 |
0 |
if (defined $prev) { } |
|
101
|
0 |
0 |
if ($prev->isa('Modules')) { } |
|
104
|
0 |
0 |
if ($$prev{'prefix'} ne $$node{'prefix'}) |
|
111
|
0 |
0 |
unless (exists $$self{'scopes'}{$new_scope}) |
|
120
|
0 |
0 |
if exists $$node{'typeprefix'} |
|
122
|
0 |
0 |
if exists $$node{'declspec'} |
|
139
|
0 |
0 |
if exists $$node{'typeprefix'} |
|
141
|
0 |
0 |
if exists $$node{'declspec'} |
|
148
|
0 |
0 |
if (defined $$node{'_typeprefix'}) { } |
|
150
|
0 |
0 |
if ($typeprefix) { } |
|
161
|
0 |
0 |
if ($prefix) { } |
|
175
|
0 |
0 |
unless defined $node |
|
176
|
0 |
0 |
if $$self{'current_root'} =~ s/::$$node{'idf'}$// |
|
190
|
0 |
0 |
if exists $$self{'msg'} |
|
195
|
0 |
0 |
if (defined $prev) { } |
|
199
|
0 |
0 |
if ($prev->isa('Forward' . $class)) { } |
|
202
|
0 |
0 |
if ($_ eq 'full' or $_ eq 'filename' or $_ eq 'lineno' or $_ eq 'typeprefix' or $_ eq '_typeprefix' or $_ eq 'hash_attribute_operation') |
|
210
|
0 |
0 |
if ($_ eq 'id' or $_ eq 'version') |
|
215
|
0 |
0 |
if ($$prev{$_} ne $$node{$_}) |
|
217
|
0 |
0 |
if ($_ eq 'prefix') |
|
218
|
0 |
0 |
unless (defined $$node{'_typeprefix'}) |
|
229
|
0 |
0 |
if exists $$prev{'typeprefix'} |
|
238
|
0 |
0 |
unless (exists $$self{'scopes'}{$new_scope}) |
|
253
|
0 |
0 |
if (defined $$node{'_typeprefix'}) { } |
|
255
|
0 |
0 |
if ($typeprefix) { } |
|
266
|
0 |
0 |
if ($prefix) { } |
|
280
|
0 |
0 |
unless defined $node |
|
281
|
0 |
0 |
if $$self{'current_scope'} =~ s/::$$node{'idf'}$// |
|
290
|
0 |
0 |
if ($node->isa('Specification')) |
|
296
|
0 |
0 |
unless $name |
|
297
|
0 |
0 |
if exists $$self{'msg'} |
|
300
|
0 |
0 |
unless (exists $$self{'scopes'}{$scope}) |
|
305
|
0 |
0 |
if (defined $prev) |
|
311
|
0 |
0 |
if ($class =~ s/^Forward//) { } |
|
312
|
0 |
0 |
if (ref $node ne $class) { } |
|
320
|
0 |
0 |
if ($_ eq 'full' or $_ eq 'lineno' or $_ eq 'hash_attribute_operation') |
|
325
|
0 |
0 |
if ($_ eq 'id' or $_ eq 'version') |
|
330
|
0 |
0 |
if ($_ eq 'filename') |
|
331
|
0 |
0 |
if ($prev->isa('ForwardStruct') or $prev->isa('ForwardUnion')) |
|
333
|
0 |
0 |
if ($$prev{$_} ne $$node{$_}) |
|
340
|
0 |
0 |
if ($$prev{$_} ne $$node{$_}) |
|
341
|
0 |
0 |
if ($_ eq 'prefix') |
|
342
|
0 |
0 |
unless (defined $$node{'_typeprefix'}) |
|
355
|
0 |
0 |
if ($$prev{'idf'} eq $name) { } |
|
376
|
0 |
0 |
unless $name |
|
380
|
0 |
0 |
if exists $$self{'msg'} |
|
383
|
0 |
0 |
if (defined $prev) |
|
389
|
0 |
0 |
if ($class =~ /^Forward/) { } |
|
391
|
0 |
0 |
if (ref $node ne ref $prev) { } |
|
399
|
0 |
0 |
if ($_ eq 'full' or $_ eq 'lineno' or $_ eq 'filename' or $_ eq 'typeprefix' or $_ eq '_typeprefix') |
|
406
|
0 |
0 |
if ($_ eq 'id' or $_ eq 'version') |
|
411
|
0 |
0 |
if ($$prev{$_} ne $$node{$_}) |
|
412
|
0 |
0 |
if ($_ eq 'prefix') |
|
413
|
0 |
0 |
unless (defined $$node{'_typeprefix'}) |
|
444
|
0 |
0 |
if exists $$self{'msg'} |
|
447
|
0 |
0 |
if (defined $prev) { } |
|
468
|
0 |
0 |
if exists $$self{'msg'} |
|
469
|
0 |
0 |
if (ref $name) |
|
474
|
0 |
0 |
if (defined $defn) { } |
|
475
|
0 |
0 |
if exists $$self{'msg'} |
|
489
|
0 |
0 |
if (ref $name) |
|
493
|
0 |
0 |
unless $name |
|
494
|
0 |
0 |
if ($name =~ /^::/) { } |
|
|
0 |
0 |
elsif ($name =~ /^[0-9A-Z_a-z]+$/) { } |
|
508
|
0 |
0 |
if defined $defn or $scope eq '' |
|
512
|
0 |
0 |
if (defined $defn) |
|
518
|
0 |
0 |
if ($defn->isa('Modules') or not $node->isa('Modules')) |
|
535
|
0 |
0 |
if (defined $scope) |
|
547
|
0 |
0 |
if defined $defn |
|
548
|
0 |
0 |
unless $scope |
|
550
|
0 |
0 |
if (defined $node) |
|
555
|
0 |
0 |
if (defined $base) |
|
558
|
0 |
0 |
if (defined $defn) |
|
561
|
0 |
0 |
if ($defn == $_) |
|
566
|
0 |
0 |
unless $found |
|
570
|
0 |
0 |
if (@list) |
|
571
|
0 |
0 |
if (scalar @list > 1) |
|
584
|
0 |
0 |
if ($full =~ /^((?:::[0-9A-Z_a-z]+)*)::([0-9A-Z_a-z]+)$/) { } |
|
585
|
0 |
0 |
if (exists $$self{'scopes'}{$1}) { } |
|
587
|
0 |
0 |
if (defined $defn) { } |
|
590
|
0 |
0 |
unless defined $defn |
|
592
|
0 |
0 |
unless (defined $defn) |
|
596
|
0 |
0 |
if ($$defn{'idf'} ne $2) |
|
622
|
0 |
0 |
if (defined $node) { } |
|
623
|
0 |
0 |
if (exists $$node{'typeid'}) |
|
626
|
0 |
0 |
if (exists $$node{'id'}) { } |
|
627
|
0 |
0 |
unless $id eq $$node{'id'} |
|
634
|
0 |
0 |
if ($node->isa('Modules')) |
|
636
|
0 |
0 |
if ($$_{'filename'} eq $$self{'parser'}->YYData->{'filename'}) |
|
650
|
0 |
0 |
if ($id =~ /^IDL:/) { } |
|
|
0 |
0 |
elsif ($id =~ /^RMI:/) { } |
|
|
0 |
0 |
elsif ($id =~ /^DCE:/) { } |
|
|
0 |
0 |
elsif ($id =~ /^LOCAL:/) { } |
|
652
|
0 |
0 |
if ($id =~ m[^IDL:[0-9A-Za-z_:\./\-]+:([0-9]+)\.([0-9]+)]) { } |
|
654
|
0 |
0 |
if (exists $$node{'version'}) { } |
|
655
|
0 |
0 |
unless $version eq $$node{'version'} |
|
668
|
0 |
0 |
unless $id =~ m(^RMI:[0-9A-Za-z_\[\-\./\$\\]+:[0-9A-Fa-f]{16}(:[0-9A-Fa-f]{16})?) |
|
673
|
0 |
0 |
unless $id =~ /^DCE:[0-9A-Fa-f]{8}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{4}-[0-9A-Fa-f]{12}(:[0-9]+)?/ |
|
693
|
0 |
0 |
if (exists $$self{'prefix'}{$key_prefix}) { } |
|
704
|
0 |
0 |
if (exists $$self{'typeprefix'}{$scope}) { } |
|
717
|
0 |
0 |
if (defined $node) |
|
718
|
0 |
0 |
if (exists $$node{'version'}) { } |
|
719
|
0 |
0 |
unless $version eq $$node{'version'} |
|
733
|
0 |
0 |
if ($entry->isa('_ForwardConstructedType')) |
|
745
|
0 |
0 |
if ($entry->isa('Modules') and exists $$entry{'id'}) |
|
747
|
0 |
0 |
if (not exists $$_{'id'} or $$_{'id'} ne $$entry{'id'}) |
|
766
|
0 |
0 |
if $dirname |
|
769
|
0 |
0 |
if (defined $scope and $scope->isa('CORBA::IDL::Scope')) { } |
|
771
|
0 |
0 |
if ($class eq 'CORBA::IDL::Module' or $class eq 'CORBA::IDL::RegularInterface' or $class eq 'CORBA::IDL::LocalInterface' or $class eq 'CORBA::IDL::AbstractInterface' or $class eq 'CORBA::IDL::RegularValue' or $class eq 'CORBA::IDL::BoxedValue' or $class eq 'CORBA::IDL::AbstractValue' or $class eq 'CORBA::IDL::RegularEvent' or $class eq 'CORBA::IDL::AbstractEvent') { } |
|
786
|
0 |
0 |
if ref $_ ne 'Entry' |
|
787
|
0 |
0 |
if exists $$self{'scopes'}{$$_{'scope'}} |
|
810
|
0 |
0 |
if $dirname |
|
813
|
0 |
0 |
if (defined $scope and $scope->isa('CORBA::IDL::Scope')) { } |
|
820
|
0 |
0 |
if ref $_ ne 'Entry' |
|
821
|
0 |
0 |
if exists $$self{'scopes'}{$$_{'scope'}} |
|
835
|
0 |
0 |
if ($dirname) |
|
836
|
0 |
0 |
unless (-d $dirname) |
|
837
|
0 |
0 |
unless mkdir $dirname |
|
843
|
0 |
0 |
unless $fullname |
|
846
|
0 |
0 |
if $dirname |
|
847
|
0 |
0 |
unless open my $OUT, '>', $filename |
|
889
|
0 |
0 |
if (exists $$self{'entry'}{$key}) { } |
|
890
|
0 |
0 |
if ($$self{'entry'}{$key} eq $name) { } |
|
907
|
0 |
0 |
if $$self{'parser'}->YYData->{'collision_allowed'} |
|
911
|
0 |
0 |
unless exists $$self{'entry'}{$key} |