Re^3: Take reference and then dereference die() and warn()

But you simply don't need that: you can just die or warn in the usual way within your ternary operator, as you can see in the following Perl one-liners:

$ perl -e '$die_on_err=shift; 0 or ($die_on_err? die "failed\n" : warn
+ "warning\n")' 1
failed

$ perl -e '$die_on_err=shift; 0 or ($die_on_err? die "failed\n" : warn
+ "warning\n")' 0
warning
[download]

Comment on Re^3: Take reference and then dereference die() and warn() Download Code

Replies are listed 'Best First'.
Re^4: Take reference and then dereference die() and warn() by dmitri (Priest) on Nov 09, 2013 at 04:52 UTC
I realize that; my error message is much longer than "failed", and I do not want to copy-and-paste it.	[reply]
Re^5: Take reference and then dereference die() and warn() by Laurent_R (Canon) on Nov 09, 2013 at 10:27 UTC
OK, I understand your motivations, now. You still have numerous simpler ways to do it, such as storing your long error message in a variable (you actually had a $error variable in your original post) or doing something like this: `$ perl -e 'use diagnostics; $die_on_err=shift; 0 or print "error messa +ge" and ($die_on_err? die $! : warn "\n" ) ' 0 error message` [download] or, yet simpler, using a subroutine such as the one proposed by Jenda in this post: Re: Take reference and then dereference die() and warn().	[reply] [d/l]