Lines Matching refs:class
162 my $class = ref($_[0]) || $_[0];
163 my $handle = bless {}, $class;
248 # Its class argument has to be the base class for the current
253 # Complain if they use __PACKAGE__ as a project base class?
495 sub _lex_refs { # report the lexicon references for this handle's class
498 my $class = ref($_[0]) || $_[0];
499 print "Lex refs lookup on $class\n" if DEBUG > 1;
500 return $isa_scan{$class} if exists $isa_scan{$class}; # memoization!
505 if( defined( *{$class . '::Lexicon'}{'HASH'} )) {
506 push @lex_refs, *{$class . '::Lexicon'}{'HASH'};
507 print "%" . $class . "::Lexicon contains ",
508 scalar(keys %{$class . '::Lexicon'}), " entries\n" if DEBUG;
513 foreach my $superclass (@{$class . "::ISA"}) {
514 print " Super-class search into $superclass\n" if DEBUG;
519 $isa_scan{$class} = \@lex_refs; # save for next time