Eu sugeri o tiny::try pq ele oferecer a abstração de try/catch/finally mas este artigo é interessante:
http://www.effectiveperlprogramming.com/blog/1401 2013/3/13 Eden Cardim <e...@insoli.de>: >>>>>> "Marcio" == Marcio <- Google <marci...@gmail.com>> writes: > > Marcio> Tiago, alguma solução sem a necessidade de instalar > Marcio> módulos? > > Não é necessário instalar módulo algum, eval/if($@) funciona > perfeitamente, inclusive, você pode lançar qualquer valor como > argumento pro die(), inclusive referências para subrotinas e objetos. > > -- > Eden Cardim -- Insolide Soluções de TI Ltda. > +55 11 9644 8225 > http://insoli.de > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer -- Tiago B. Peczenyj Linux User #405772 http://about.me/peczenyj =begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
