use strict; use warnings; in examples
authorGabor Szabo <szabgab@gmail.com>
Wed, 16 May 2012 09:10:17 +0000 (12:10 +0300)
committerGabor Szabo <szabgab@gmail.com>
Wed, 16 May 2012 09:10:17 +0000 (12:10 +0300)
Changes
examples/powers
examples/powers2
examples/powers3
examples/powers4
examples/powers5
lib/Term/ProgressBar.pm

diff --git a/Changes b/Changes
index 25c71f7..a250bf3 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 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
 
index 351abe9..afe2ea1 100644 (file)
@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+use strict;
+use warnings;
 
 use Term::ProgressBar 2.00;
 
index 23147a0..93c5595 100644 (file)
@@ -1,10 +1,12 @@
 #!/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) {
index 82ae224..39383b6 100644 (file)
@@ -1,11 +1,17 @@
 #!/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;
 
index ad9353e..4afc0ad 100644 (file)
@@ -1,12 +1,17 @@
 #!/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;
 
index bc0c310..fe95d2d 100644 (file)
@@ -1,12 +1,17 @@
 #!/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;
 
index 708aab0..f61956a 100644 (file)
@@ -149,7 +149,7 @@ distribution set (it is not installed as part of the module.
 
   my $progress = Term::ProgressBar->new({name  => 'Powers',
                                          count => $max,
-                                         ETA   => linear, });
+                                         ETA   => 'linear', });
   $progress->max_update_rate(1);
   my $next_update = 0;