Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^2: Best Practices for Exception Handling

by adrianh (Chancellor)
on Jan 30, 2003 at 09:56 UTC ( #231244=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $output = '';
    my $buffer;
    while (my $n = read(INPUT, $buffer, 1024)) { $output .= $buffer };
    
  2. or download this
    sub foobarfribbleni {
        eval {$o->foo->bar->fribble->ni};
        die "failed to foobarfribbleni" if $@;
    };
    
  3. or download this
    sub foobarfribbleni {
        $o->foo or die "failed to foobarfribbleni";
    ...
        $o->fribble or die "failed to foobarfribbleni"
        $o->ni or die "failed to foobarfribbleni"
    }
    
  4. or download this
    # With exceptions
    eval {
    ...
        }
    };
    die $dbh->errstr if $@;
    
  5. or download this
    # Without exceptions
    $sth = $dbh->prepare(q{ SELECT region, sales FROM sales_by_region })
    ...
    while ($sth->fetch or die $dbh->errstr) {
        print "$region: $sales\n";
    }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (13)
As of 2014-10-30 23:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (211 votes), past polls