Lines Matching refs:class
49 my $class = shift; # for debug use
54 $currentObj = bless {'class' => $class,
69 # class method
85 # class method
105 my ($obj, $class, $string) = @_;
146 # print "charHandler: $currentObj->{'class'} $string\n" if $main::debug;
285 my $class = $kid->getClass();
286 return $kid if $class eq $whichKid;
317 return $pkg->{'class'};