Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Re (tilly) 1: Tie & Destroy, OOP

by Flame (Deacon)
on Aug 09, 2001 at 21:36 UTC ( #103523=note: print w/replies, xml ) Need Help??

in reply to Re (tilly) 1: Tie & Destroy, OOP
in thread Tie & Destroy, OOP

Hmm, this is interesting, so what would it do if every time it was used, it was declared to be 'my' (even when it's not in a sub/package)?

Does that mean it needs to be destroied before the garbage is collected?

*Starts experementing*

"Wierd things happen, get used to it"

Flame ~ Lead Programmer: GMS

Replies are listed 'Best First'.
Re (tilly) 3: Tie & Destroy, OOP
by tilly (Archbishop) on Aug 09, 2001 at 21:45 UTC
    Lexical or not, the question is whether the data is garbage collected before the end of the program. If it is done before then you get reliable destruction mechanics that we all know and love. If it is done in the final global destruction, data is terminated with prejudice at random.

    BTW another solution that comes to mind is to use a flyweight pattern for your objects. That puts all of your current objects into a convenient hash that you can iterate through in an END block to do cleanup. Doing things that way gives you 2 wins. Better encapsulation, and it solves the global destruction problem in a way that is more likely to work across versions of Perl.

      Just to be clear: lexical variables don't suffer from this problem, even lexical variables at file scope. That implies that lexicals are destroyed before global destruction begins (which I believe to be true but I haven't verified that beyond testing that lexicals don't suffer from this problem).

      To be extra clear: destroying a lexical variable won't necessarilly destroy the object that it references. If you have other references to that same object and any of those reference manage to survive until global destruction, then your object will survive until then as well (and can so could then suffer from misordered destructions).

              - tye (but my friends call me "Tye")
        Not true. On 5.005_03 try this:
        my $foo = be({name => "foo"}); my $bar = be({name => "bar", data => $foo}); my $baz = be({name => "baz", data => $bar}); sub gotcha { $bar->{"bar can't go"} = "until this function is cleaned up"; } sub be { return bless shift; } sub DESTROY { my $self = shift; print "$self->{name} died\n"; } __END__ on 5.005_03 for me prints: baz died foo died bar died
        Note that $foo is going away before $bar. Remove the function holding $bar to global destruction and everything will clean up properly. Make them all global and you will again run into trouble.
Re: Re: Re (tilly) 1: Tie & Destroy, OOP
by Flame (Deacon) on Aug 09, 2001 at 21:46 UTC
    It worked! I was able to get it to destroy before the garbage collection by giving it a my declaration...
    my %member; tie(%member, "GMS::MemberFile", UID=>3);

    "Wierd things happen, get used to it"

    Flame ~ Lead Programmer: GMS

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://103523]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (3)
As of 2023-03-23 21:25 GMT
Find Nodes?
    Voting Booth?
    Which type of climate do you prefer to live in?

    Results (60 votes). Check out past polls.