Lines Matching defs:DISTINCT
64 while ($wanted_class =~ /^NEXT\b.*\b(UNSEEN|DISTINCT)\b/
85 package NEXT::DISTINCT; @ISA = 'NEXT';
88 package NEXT::ACTUAL::DISTINCT; @ISA = 'NEXT';
90 package NEXT::DISTINCT::ACTUAL; @ISA = 'NEXT';
328 $self->NEXT::DISTINCT::method();
340 sub foo { print "called A::foo\n"; shift->NEXT::DISTINCT::foo() }
343 sub foo { print "called B::foo\n"; shift->NEXT::DISTINCT::foo() }
346 sub foo { print "called C::foo\n"; shift->NEXT::DISTINCT::foo() }
349 sub foo { print "called D::foo\n"; shift->NEXT::DISTINCT::foo() }
352 sub foo { print "called E::foo\n"; shift->NEXT::DISTINCT::foo() }
369 $self->NEXT::DISTINCT::ACTUAL::method();
373 $self->NEXT::ACTUAL::DISTINCT::method();
378 C<NEXT::UNSEEN> instead of C<NEXT::DISTINCT>.