Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re^3: Throw from within a DESTROY block

by ikegami (Pope)
on Sep 07, 2011 at 02:35 UTC ( #924503=note: print w/replies, xml ) Need Help??

in reply to Re^2: Throw from within a DESTROY block
in thread Throw from within a DESTROY block

If I move the die() out of the DESTROY, this becomes a non-question don't you think?

If you don't, then your question is a non-question. ("How do you make Perl not act like Perl?")

The whole point is to figure out why perl thinks we are cleaning up (even though we are in the middle of runtime),

It is cleaning up an object, and you're wrong in thinking Perl think it's in the global destruction phase.

$ perl -wE' DESTROY { die "foo" } { bless({}) } ' (in cleanup) foo at -e line 2. $ perl -wE' DESTROY { die "foo" } our $o = bless({}); ' (in cleanup) foo at -e line 2 during global destruction.

Replies are listed 'Best First'.
Re^4: Throw from within a DESTROY block
by ribasushi (Monk) on Sep 07, 2011 at 02:42 UTC
    Sigh. Given how I explicitly ask "how do I cheat perl here", a non-incendiary answer would be
    I am not sure you can do this,
    <THOUGHTCRIME>perl is not designed to do that, turn around ang go back where you came from!</THOUGHTCRIME>

    Thanks for the reply annyway

      And one way to cheat is to move the die out of DESTROY, and say, into delete. Do you want cheats, or do you want to be told Perl doesn't do that?

      When I gave you the former, you said it's stupid. When I gave you the latter, you said I'm being inflammatory.

        When the business logic is tied to "at time of object destruction", there is no practical way to put the code into "delete". See tye's reply for a very good round-up of the DESTROY-based "guard pattern"
        The inflamatory remark was to an earlier version of the reply you seem to have edited out (something to the effect of "this is not perl")

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://924503]
[choroba]: three
[choroba]: I mean I haven't used DBIx::Class nor M:S, only Moo
[1nickt]: Haha, I was learning about Linux filesystem trees trying to understand how Moo fits.
[1nickt]: I just got my feet wet with some DBIC coding this last week. I feel "meh" about it so far. It was pretty easy to add a sub to the DBIC class to filter search results ...
[1nickt]: ... in the calling code ... $rs = $rs->maturity(" stable");. But I don;t enjoy feeling that far away from the SQL and the DB, really.
[1nickt]: The same project (CPAN Testers API) is using experimental signatures (and therefore 5.024) ... which is what replaced Method::Signatures , afaict.
[1nickt]: But the new $job is on an older Perl and therefore using M::S, the syntax of which looks clunky to me, so far.

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2017-11-24 13:31 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (349 votes). Check out past polls.