From: Gabor Szabo Date: Wed, 21 Dec 2011 06:43:13 +0000 (+0200) Subject: move examples X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=79c7be60fdd8511aa3fcfaf2e0777e4933e0d24e;p=term-progressbar.git move examples --- diff --git a/eg/simple_use.pl b/eg/simple_use.pl deleted file mode 100644 index 6d57747..0000000 --- a/eg/simple_use.pl +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use Term::ProgressBar 2.00; - -use constant MAX => 100_000; - -my $progress = Term::ProgressBar->new(MAX); - -for (0..MAX) { - my $is_power = 0; - for(my $i = 0; 2**$i <= $_; $i++) { - $is_power = 1 - if 2**$i == $_; - } - - if ( $is_power ) { - $progress->update($_); - } -} diff --git a/eg/smooth_bar.pl b/eg/smooth_bar.pl deleted file mode 100644 index befae9a..0000000 --- a/eg/smooth_bar.pl +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/perl -use strict; -use warnings; - -use Term::ProgressBar 2.00; - -my $max = shift || 100; - -my $progress = Term::ProgressBar->new($max); - -for (0..$max) { - my $is_power = 0; - for(my $i = 0; 2**$i <= $_; $i++) { - $is_power = 1 - if 2**$i == $_; - } - - $progress->update($_) -} diff --git a/examples/simple_use.pl b/examples/simple_use.pl new file mode 100644 index 0000000..6d57747 --- /dev/null +++ b/examples/simple_use.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl +use strict; +use warnings; + +use Term::ProgressBar 2.00; + +use constant MAX => 100_000; + +my $progress = Term::ProgressBar->new(MAX); + +for (0..MAX) { + my $is_power = 0; + for(my $i = 0; 2**$i <= $_; $i++) { + $is_power = 1 + if 2**$i == $_; + } + + if ( $is_power ) { + $progress->update($_); + } +} diff --git a/examples/smooth_bar.pl b/examples/smooth_bar.pl new file mode 100644 index 0000000..befae9a --- /dev/null +++ b/examples/smooth_bar.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl +use strict; +use warnings; + +use Term::ProgressBar 2.00; + +my $max = shift || 100; + +my $progress = Term::ProgressBar->new($max); + +for (0..$max) { + my $is_power = 0; + for(my $i = 0; 2**$i <= $_; $i++) { + $is_power = 1 + if 2**$i == $_; + } + + $progress->update($_) +}