Re^2: Dealing with errors in subroutines


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^2: Dealing with errors in subroutines

by Boldra (Deacon)

on Sep 14, 2009 at 07:57 UTC ( [id://795076]=note: print w/replies, xml )

Need Help??

in reply to Re: Dealing with errors in subroutines
in thread Dealing with errors in subroutines

Somewhere along the way I picked up the habit of writing this idiom so:

for (@users) { 
    my $success = eval { 
        add_account($_); 
    }; 
    if($@ or not $success) {
        warn "Can't add user '$_': $@"
    }
[download]

But I don't remember why I thought it might be better. Certainly not from readability! What do others think of this kind of double-checking?

- Boldra

Comment on Re^2: Dealing with errors in subroutines Download Code

Replies are listed 'Best First'.

Re^3: Dealing with errors in subroutines
by moritz (Cardinal) on Sep 14, 2009 at 10:48 UTC

ELISHEVA

use strict;
use warnings;
use Data::Dumper;

sub DESTROY { eval { 1 } }

eval {
    my $obj = bless {};
    die "wrong";
};

print Dumper $@;
__END__
$VAR1 = '';
[download]

The correct solution is to localize $@ in the DESTROY sub, but you can't always rely on third-party modules to do such things correctly.

Perl 6 - links to (nearly) everything that is Perl 6.

[reply]
[d/l]

In Section Seekers of Perl Wisdom