Time::Progress 1.2

Time::Progress Perl module contains elapsed and estimated finish time reporting.

SYNOPSIS

# autoflush to get r working
$| = 1;
# get new `timer
my $p = new Time::Progress;

# restart and report progress
$p->restart;
sleep 5; # or do some work here
print $p->report( "done %p elapsed: %L (%l sec), ETA %E (%e sec)n", 50 );

# set min and max values
$p->attr( min => -2, max => -20 );
# restart `timer
$p->restart;
my $c;
for( $c = -2; $c >= -20; $c-- )
{
# print progress bar and percentage done
print $p->report( "eta: %E min, %40b %pr", $c );
sleep 1; # work...
}
# stop timer
$p->stop;

# report times
print $p->elapsed_str;