[Moscow.pm] Как народ борится с глобальным деструктором

[Ivan B. Serezhkin]

Dmitry Nizovtsev wrote:
> Здраствуйте
> Проблема в следущем есть обьект A который содержит ссылку на обьект B.
> В деструкторе обьекта A используется ссылка на обьект B - всё хорошо 
> работает пока дело не доходит до глобального десктруктора. Глобальный 
> деструктор уничожает обьект B раньше обьекта A и естественно  обьект A 
> не может выполнить всех необхдимых действий в своём деструкторе.
> Что народ может посоветовать в таком случае?
писать как то так:

my $o1=new Screamer;
my $o2=new Screamer;
$o1->{o2}=$o2;
print "I hate this world\n";


package Screamer;
sub new {
    my $self=bless {};
    print "Created $self\n";
    return $self;
}

sub DESTROY {
    my $self=shift;
    print "Destroyed $self\n";
}

-- 
Ivan B. Serezhkin