asergeyev

sub destroy_warning { warn ref($_[0]) . " destroyed\n" };

my %SAVED_DESTROYS;
for my $class (keys %INC) {
	$class =~ s/\.pm$//; $class =~ s/\//::/sg;
	if (my $destroy_ref = $class->can('DESTROY')) {
		$SAVED_DESTROYS{$class} = $destroy_ref;
		eval "no warnings 'redefine'; *${class}::DESTROY = sub { destroy_warning(\@_); \$SAVED_DESTROYS{'$class'}->(\@_) };";
	} else {
		eval "*${class}::DESTROY = sub { destroy_warning(\@_) };";