Select Code to Download

sub DESTROY {
    my ($self) = @_;
...
        }
    }
}

here we are in DESTROY
destroying MyClass
Name "MyClass::DEMOLISH" used only once: possible typo at Class/Std.pm
+ line 528.
here we are in DESTROY
destroying MyClass

package MyClass;
use strict;
...
bless $hash_ref2, 'MyClass';

1;

here we are in DESTROY
destroying MyClass
...
destroying MyClass
here we are in DESTROY
destroying MyClass

package MyClass;
use strict;
...
#bless $hash_ref, 'MyClass';

1;

here we are in DESTROY
destroying MyClass