use strict; use warnings; in examples

[term-progressbar.git] / examples / powers3

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;