use strict; use warnings; in examples

diff --git a/Changes b/Changes
index 25c71f70349994b358dce4363ebf0335d80ca5cf..a250bf320f76eaa8cb7b313219c97cbb472b07f0 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
 

diff --git a/examples/powers b/examples/powers
index 351abe96323370db137ee651b20a7a9f09802316..afe2ea179d9476230f98a17aa2299b6a46b6babc 100644 (file)
--- a/examples/powers
+++ b/examples/powers
@@ -1,4 +1,6 @@
 #!/usr/bin/perl
+use strict;
+use warnings;
 
 use Term::ProgressBar 2.00;
 

diff --git a/examples/powers2 b/examples/powers2
index 23147a0d39da4ce605370bdb765d4a6e595aec7d..93c5595e950279973d5bd74faf1c4714a110d4b3 100644 (file)
--- a/examples/powers2
+++ b/examples/powers2
@@ -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) {

diff --git a/examples/powers3 b/examples/powers3
index 82ae2248fccd626f99f26f075098bee959d83a0c..39383b68a4d8ed697f1591d0f0223f4334e9c8dc 100644 (file)
--- a/examples/powers3
+++ b/examples/powers3
@@ -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;
 

diff --git a/examples/powers4 b/examples/powers4
index ad9353ed372e2449dd5774f107370d07c8f70594..4afc0ad8a5f6b5223ee35f1072a75328c3e8396f 100644 (file)
--- a/examples/powers4
+++ b/examples/powers4
@@ -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;
 

diff --git a/examples/powers5 b/examples/powers5
index bc0c310534c2feb00a63f8569fa3334c334790b8..fe95d2d25d80eaf1043c98ebfaabc901426f041b 100644 (file)
--- a/examples/powers5
+++ b/examples/powers5
@@ -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;
 

diff --git a/lib/Term/ProgressBar.pm b/lib/Term/ProgressBar.pm
index 708aab00969973138f0cc9827cc0485d4e092078..f61956ad1a0cfefdaff00aee463c4498aec775bb 100644 (file)
--- a/lib/Term/ProgressBar.pm
+++ b/lib/Term/ProgressBar.pm
@@ -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;