#!/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;

##</code><code>##

starting program at ./monk_perlobj line 23.
CREATING REF(0x816b8e8) at ./monk_perlobj line 12.
CREATING REF(0x81523ec) at ./monk_perlobj line 12.
leaving block at ./monk_perlobj line 28.
just exited block at ./monk_perlobj line 31.
time to die ... at ./monk_perlobj line 32