From: Gabor Szabo <szabgab@gmail.com>
Date: Wed, 16 May 2012 09:10:17 +0000 (+0300)
Subject: use strict; use warnings; in examples
X-Git-Url: https://git.donarmstrong.com/?p=term-progressbar.git;a=commitdiff_plain;h=1194702ec43c994abcf387b52c03b8532c8d5f3c

use strict; use warnings; in examples
---

diff --git a/Changes b/Changes
index 25c71f7..a250bf3 100644
--- 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 351abe9..afe2ea1 100644
--- 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 23147a0..93c5595 100644
--- 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 82ae224..39383b6 100644
--- 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 ad9353e..4afc0ad 100644
--- 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 bc0c310..fe95d2d 100644
--- 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 708aab0..f61956a 100644
--- 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;