Revision history for Perl extension Term-ProgressBar.
+ - use strict; use warnings; in examples
+ - remove bareword from POD (JBAKER)
+
2.11 Fri Feb 17 12:31:04 2012
- skip the signature verification
#!/usr/bin/perl
+use strict;
+use warnings;
use Term::ProgressBar 2.00;
#!/usr/bin/perl
+use strict;
+use warnings;
use Term::ProgressBar 2.00;
use constant MAX => 100_000;
-my $max = int($ARGV[0]+0) || MAX;
+my $max = int($ARGV[0] || MAX);
my $progress = Term::ProgressBar->new($max);
for (0..$max) {
#!/usr/bin/perl
+use strict;
+use warnings;
use Term::ProgressBar 2.00;
use constant MAX => 100_000;
-my $max = int($ARGV[0]+0) || MAX;
-my $progress = Term::ProgressBar->new({name => 'Powers', count => $max, remove => 3});
+my $max = int($ARGV[0] || MAX);
+my $progress = Term::ProgressBar->new({
+ name => 'Powers',
+ count => $max,
+ remove => 3,
+});
$progress->minor(0);
my $next_update = 0;
#!/usr/bin/perl
+use strict;
+use warnings;
use Term::ProgressBar 2.00;
use constant MAX => 1_000_000;
-my $max = int($ARGV[0]+0) || MAX;
-my $progress = Term::ProgressBar->new({name => 'Powers', count => $max,
- ETA => linear, });
+my $max = int($ARGV[0] || MAX);
+my $progress = Term::ProgressBar->new({
+ name => 'Powers',
+ count => $max,
+ ETA => 'linear',
+});
#$progress->minor(0);
my $next_update = 0;
#!/usr/bin/perl
+use strict;
+use warnings;
use Term::ProgressBar 2.00;
use constant MAX => 10_000_000;
my $max = int($ARGV[0]+0) || MAX;
-my $progress = Term::ProgressBar->new({name => 'Powers', count => $max,
- ETA => linear, });
+my $progress = Term::ProgressBar->new({
+ name => 'Powers',
+ count => $max,
+ ETA => 'linear',
+});
$progress->max_update_rate(1);
my $next_update = 0;
my $progress = Term::ProgressBar->new({name => 'Powers',
count => $max,
- ETA => linear, });
+ ETA => 'linear', });
$progress->max_update_rate(1);
my $next_update = 0;