Achei este repositório, porem não testei para aprovar a implementação e nem consigo afirmar se atende ao que precisa por ai... mas não custa dar uma olhada!<div><br></div><div><a href="http://code.google.com/p/perl-object-pool/">http://code.google.com/p/perl-object-pool/</a> </div>

<div><br></div><div><b><br>Daniel Vinciguerra</b><br>
Web Solutions Architect and Co-Owner at Bivee<br><span style="font-family:arial,sans-serif;font-size:13px;border-collapse:collapse"><a href="http://github.com/dvinciguerra" style="color:rgb(28,81,168)" target="_blank">http://github.com/dvinciguerra</a></span><span style="font-family:arial,sans-serif;font-size:13px;border-collapse:collapse"><a href="http://github.com/dvinciguerra" style="color:rgb(28,81,168)" target="_blank"></a></span><br>


<br><br><div class="gmail_quote">On 22 March 2012 10:08, Stanislaw Pusep <span dir="ltr"><<a href="mailto:creaktive@gmail.com">creaktive@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

Senhores, estou em uma situação aonde a instanciação de um objeto (Moose) é muito custosa, já o ->reset é trivial.<div>Pensei em adicionar uma camada com o pool de objetos já instanciados, sendo que, sempre que precisar de um ->new, primeiro tentarei pegar um inativo do pool e reaproveitar ele.</div>



<div>Não me parece algo excepcionalmente complexo, todavia, não consegui encontrar nada que sirva para esse fim no CPAN... Alguém já se deparou com algo parecido?<br clear="all"><br>ABS()<br><br>
</div>
<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br></div>