---
name: "Benchmark::ProgressBar"
section: "3pm"
platform: "linux"
package: "libbenchmark-progressbar-perl"
version: "0.00001-3"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Benchmark::ProgressBar"
---

# Benchmark::ProgressBar(3pm)

Display Progress Bar While You Wait For Your Benchmark

## 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