Lines Matching refs:obj
158 ## ExSym(SymList, sym, ver, obj)
165 # sym, ver, obj - Combination to be compared against exception list
171 my ($SymList, $sym, $ver, $obj) = @_;
174 return 1 if ($obj =~ /$$ex[2]/) && ($ver =~ /$$ex[1]/) &&
181 ## ExTopVer(ver, obj)
187 # ver, obj - Combination to be compared against empty top version list
193 my ($ver, $obj) = @_;
196 return 1 if ($obj =~ /$$ex[1]/) && ($ver =~ /$$ex[0]/);
208 my $obj = $_[0];
214 my @vers = reverse(@{$obj->{'VERSION_NAMES'}});
227 my $cur_version = $obj->{'VERSION_INFO'}{$name};
248 $obj->{'VERSION_INFO'}{$inheritarr->[$i]};
411 foreach my $obj (sort keys %$main_hash) {
412 print "OBJECT\t$obj\n";
413 print "CLASS\t$main_hash->{$obj}{'CLASS'}\n";
414 print "TYPE\t$main_hash->{$obj}{'TYPE'}\n";
421 if ($obj eq $alias_hash->{$alias});
424 next if !defined($main_hash->{$obj}{'VERSION_NAMES'});
426 my $num = scalar(@{$main_hash->{$obj}{'VERSION_NAMES'}});
429 my $name = $main_hash->{$obj}{'VERSION_NAMES'}[$i];
431 @{$main_hash->{$obj}{'VERSION_INFO'}{$name}};