#!/usr/bin/perl -w

#name: monk_perlobj
# note: copied from perlobj
# purpose: to understand DESTORY block for object

package Subtle;

sub new {
        my $test;
        $test = \$test;
        warn "CREATING ". \$test;
        return bless \$test;
}

sub DESTORY {
        my $self = shift;
        warn "DESTORYING $self";
}

package main;

warn "starting program";
{
        my $a = Subtle->new;
        my $b = Subtle->new;
        $$a = 0; #break selfref
        warn "leaving block";
}

warn "just exited block";
warn "time to die ...";
exit;