is there a way to avoid dieing ?

palkia has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: is there a way to avoid dieing ? by BrowserUk (Patriarch) on Apr 27, 2011 at 02:46 UTC
See the block form of eval: sub iDieSometimes{ rand() > .5 ? return 12345 : die "T'is a far, far...Oh shit! Aaaaaaaargh\|" };; $n = eval{ iDieSometimes() } and print "returned $n" or print "It died + with: $@";; It died with: T'is a far, far...Oh shit! Aaaaaaaargh\| at (eval 11) lin +e 1, <STDIN> line 10. $n = eval{ iDieSometimes() } and print "returned $n" or print "It died + with: $@";; It died with: T'is a far, far...Oh shit! Aaaaaaaargh\| at (eval 11) lin +e 1, <STDIN> line 11. $n = eval{ iDieSometimes() } and print "returned $n" or print "It died + with: $@";; returned 12345 $n = eval{ iDieSometimes() } and print "returned $n" or print "It died + with: $@";; returned 12345 $n = eval{ iDieSometimes() } and print "returned $n" or print "It died + with: $@";; returned 12345 $n = eval{ iDieSometimes() } and print "returned $n" or print "It died + with: $@";; It died with: T'is a far, far...Oh shit! Aaaaaaaargh\| at (eval 11) lin +e 1, <STDIN> line 15. [download] Note: That assumes that the sub cannot legitimately return a false value like 0, or undef. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l]
Re: is there a way to avoid dieing ? by ikegami (Patriarch) on Apr 27, 2011 at 02:48 UTC
`if (!eval { some_module_function( $param1 , $param2 , .. ); 1 }) { my $die_Message = $@; ... }` [download] or `use Try::Tiny qw( try catch ); try { some_module_function( $param1 , $param2 , .. ); } catch { my $die_Message = $_; ... };` [download] eval, Try::Tiny	[reply] [d/l] [select]
Re: is there a way to avoid dieing ? by Khen1950fx (Canon) on Apr 27, 2011 at 02:29 UTC
See: No::Die.	[reply]
Re: is there a way to avoid dieing ? by planetscape (Chancellor) on Apr 27, 2011 at 06:42 UTC
"You are not ready for immortality". HTH, planetscape	[reply]
Re: is there a way to avoid dieing ? by anonymized user 468275 (Curate) on Apr 27, 2011 at 11:32 UTC
I wouldn't be likely to use No::Die because it allows execution of code where the programmer determined that conditions were unsuitable for this. It seems most unlikely that disabling die will lead to correct or even tolerable behaviour. The cheapest safe way seems to me to be to inherit the module into a wrapper class where the offending method is overridden (could for instance be copied to a local version in an own module and the problem fixed there) and to use objects from that class instead. Update: Exception::Died looks like a reasonable approach, although I would still expect method overriding to give me what I actually needed One world, one people	[reply]
Re: is there a way to avoid dieing ? by mertserger (Curate) on Apr 27, 2011 at 09:53 UTC
"After all, to the well-organized mind, death is but the next great adventure." Albus Dumbledore	[reply]
Re^2: is there a way to avoid dieing ? by apl (Monsignor) on Apr 27, 2011 at 10:47 UTC
"I don't want to achieve immortality through my work. I want to achieve it through not dying." -- Woody Allen	[reply]
Re^2: is there a way to avoid dieing ? by Anonymous Monk on Apr 27, 2011 at 10:44 UTC
Death is your turn to be luch -- Anonymous Monk	[reply]
Re: is there a way to avoid dieing ? by doug (Pilgrim) on Apr 27, 2011 at 18:50 UTC
Wrap the immortal code in an eval. When it hits die(), the eval() exits and you get the text in $@. Run `perldoc -f eval` for more details. To get a bit fancier, setup a %SIG signal handler to catch (and ignore) die. And no intro to immortality is complete without mentioning that no scheme is 100% reliable. If someone wants to `kill -9, $$` then you are going down in flames. - doug	[reply] [d/l] [select]