NAME¶

Benchmark::ProgressBar - 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 "daisuke@endeworks.jp"

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