distrib/lib/NEXT.pm

172     sub A::DESTROY  { print "$_[0]: A dtor\n";     $_[0]->NEXT::DESTROY() }
177     sub B::DESTROY  { print "$_[0]: B dtor\n";     $_[0]->NEXT::DESTROY() }
182     sub C::DESTROY  { print "$_[0]: C dtor\n";     $_[0]->NEXT::DESTROY() }
188     sub D::DESTROY  { print "$_[0]: D dtor\n";     $_[0]->NEXT::DESTROY() }
197     # Clean-up calls D::DESTROY, B::DESTROY, A::DESTROY, C::DESTROY
219 has a DESTROY method that performs some class-specific action
469         sub DESTROY { $_[0]->EVERY::Destroy }
480 behaviour simply adds its own C<Destroy> method (I<not> a C<DESTROY> method),