Benchmark::ProgressBar (3pm)

  use Benchmark::ProgressBar qw(cmpthese);

  cmpthese(10_000, {
    a => sub { ... },
    b => sub { ... },
  } );

This is a \s-1VERY\s0 crude combination of Benchmark.pm and Term::ProgressBar. Basically I got sick of waiting for my benchmarks to finish up without knowing an \s-1ETA\s0.

You can use it as a drop-in replacement for Benchmark.pm, but the only functions that would display a progress bar are the ones listed here: cmpthese, timethese, and timeit.

This is achieved via crude (a \s-1VERY\s0 crude) re-definition of Benchmark.pm's subrountines, so you shouldn't be mixing it with Benchmark.pm (I don't know why you would)

It does the job for me, \s-1YMMV\s0. Patches are welcome.

Copyright (c) 2008 Daisuke Maki \*(C`[email protected]\*(C'

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html