<div dir="ltr"><div>Benchmark::Forking em conjunto com Class::Load é uma alternativa válida.<br></div><div style>O primeiro garante que versões distintas sejam rodadas em processos distintos (e isolados). Já o segundo é um "eval { require ... }", só que decente.</div>

<div style>Imagino algo assim:</div><div><br></div><div>#!/usr/bin/env perl</div><div>use strict;</div><div>use utf8;</div><div>use warnings qw(all);</div><div> </div><div>use Benchmark::Forking qw(cmpthese);</div><div>use Class::Load qw(load_class);</div>

<div><br></div><div style>my $loaded = 0;</div><div style>my $run = sub {</div><div style>    unless ($loaded++) {</div><div style>        unshift @INC => shift;</div><div style>        load_class('My::Module');<br>

</div><div style>    }</div><div style>    My::Module::stuff_to_benchmark();</div><div style>};</div><div><br></div><div style>my $tests = {</div><div style>    v1 => sub { $run->('v1/lib') },</div><div style>

    v2 => sub { $run->('v2/lib') },</div><div style>};</div><div><br></div><div>cmpthese(5_000 => $tests);<br></div></div><div class="gmail_extra"><br clear="all"><div><br>ABS()<br></div>
<br><br><div class="gmail_quote">2013/5/10 Tiago Peczenyj <span dir="ltr"><<a href="mailto:tiago.peczenyj@gmail.com" target="_blank">tiago.peczenyj@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div dir="ltr">Opa pessoal<div><br></div><div>estou com o seguinte problema: eu tenho uma versão X de um módulo. Eis que eu fiz pequenas alterações e criei uma versão Y. Como eu posso comparar ambos no mesmo teste.</div>
<div>


<br></div><div>Assim</div><div><br></div><div><div>cmpthese(</div><div>    5_000,{</div><div>    "versao x" => sub { $client_x->foo() },</div><div>    "versao y" => sub { $client_y->foo() },<br>



</div><div>});</div><div><br></div><div>tem uma forma? ou eu deveria fazer os testes separados na mesma maquina e comparar (uma pegando do diretorio x e a outra do y)?</div><span class="HOEnZb"><font color="#888888"><div>

<br></div>-- <br>Tiago B. Peczenyj<br>

Linux User #405772<br><br><a href="http://about.me/peczenyj" target="_blank">http://about.me/peczenyj</a>
</font></span></div></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>