The stupid question is the question not asked | |
PerlMonks |
Re: best practiceby dga (Hermit) |
on Aug 27, 2001 at 21:32 UTC ( [id://108181]=note: print w/replies, xml ) | Need Help?? |
My tip which seems small but is actually big is use eval blocks for error checking. Here is an example which happens to use DBI. DBI implements tons to error checking which uses die if you ask it to.
I delclare $stmt in a scope where the eval and the error block can both see it for reporting. The eval saves having to say or die "message" on every line of your code. The RaiseError tells DBI to die on any database error. I put the commit inside the eval as the last line because that will not be reached if there is any problem since a die will jump right out of the eval without doing the rest of the block. The rollback goes in the $@ block which is executed if the eval fails. This makes your code nice and clean and results in errors being trapped always. The DBI module is very nice about this since RaiseError causes a die for all errors.
In Section
Seekers of Perl Wisdom
|
|