Besoin d'aide pour optimiser du code
J'ai coder une grosse applie en perl pour mon usage perso, mais j'ai besoin de vos avis sur certains points de mon code. Mon progo utilise une base de données SQL j'utilise donc DBI afin de gérer les erreurs j'utilise eval {} et gogo de cette façon
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| SQL:
eval
{
$this = $self->{'Sql'}[1]{'main_db'}->prepare("...");
$this->execute(...);
};
if ($@)
{
warn $@;
$self->{'Sql'}[1]{'main_db'}->rollback();
goto SQL;
} |
Cela fonctionne mais je trouve goto pas très propre :? en plus vue que mon applie utilise énormement SQL sa fait vraiment crade des goto partout
Autre point je voudrais implémenter une gestion avancé des exceptions j'ai pense utiliser la class Exception::Class mais avant de modifier mon code e voudrais avoir vos avis la dessus et surtout vos expériences avec cette class
8-)
