Hi.
Em 18 de julho de 2013 10:27, Renato Santos <[email protected]>escreveu:
> Você pode usar um sigleton pra abrir o log na primeira vez, e depois ir
> appendando no arquivo e chamar de qualquer lugar da app. Pode ser dentro de
> role, nao importa.
>
> package LogCSV;
> use MooseX::Singleton;
> sub loga_ca_bagaca {}
> -----
> Qualquer lugar depois:
>
> my $log = LogCSV->instance;
> ...
> $log->loga_ca_bagaca;
>
>
Foi o que fiz de imediato, mas aí perco a implementação do role e vou ter
que mudar em alguns zilhões de lugares do código. Mas se não tiver nenhuma
outra solução mais elegante, vou criar o método throw() manualmente e fazer
ele funcionar de forma semelhante.
[]'s
--
====================================
Junior "fvox" Moraes
Perl Programmer
Linux Reg. #557527
junior[at]fvox[dot]com[dot]br
fb[dot]com/fvox
twitter[dot]com/fvox
====================================
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
