Benchmark::ProgressBar - Display Progress Bar While You Wait For Your Benchmark
use Benchmark::ProgressBar qw(cmpthese); cmpthese(10_000, { a => sub { ... }, b => sub { ... }, } );
This is a VERY crude combination of Benchmark.pm and Term::ProgressBar. Basically I got sick of waiting for my benchmarks to finish up without knowing an ETA.
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 VERY 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, YMMV. Patches are welcome.
Copyright (c) 2008 Daisuke Maki daisuke@endeworks.jp
daisuke@endeworks.jp
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
To install Benchmark::ProgressBar, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Benchmark::ProgressBar
CPAN shell
perl -MCPAN -e shell install Benchmark::ProgressBar
For more information on module installation, please visit the detailed CPAN module installation guide.