Benchmark::ProgressBar(3) Display Progress Bar While You Wait For Your Benchmark

SYNOPSIS


use Benchmark::ProgressBar qw(cmpthese);
cmpthese(10_000, {
a => sub { ... },
b => sub { ... },
} );

DESCRIPTION

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.

AUTHOR

Copyright (c) 2008 Daisuke Maki "[email protected]"

LICENSE

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