]> git.donarmstrong.com Git - term-progressbar.git/commitdiff
move examples
authorGabor Szabo <gabor@szabgab.com>
Wed, 21 Dec 2011 06:43:13 +0000 (08:43 +0200)
committerGabor Szabo <gabor@szabgab.com>
Wed, 21 Dec 2011 06:43:13 +0000 (08:43 +0200)
eg/simple_use.pl [deleted file]
eg/smooth_bar.pl [deleted file]
examples/simple_use.pl [new file with mode: 0644]
examples/smooth_bar.pl [new file with mode: 0644]

diff --git a/eg/simple_use.pl b/eg/simple_use.pl
deleted file mode 100644 (file)
index 6d57747..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/usr/bin/perl\r
-use strict;\r
-use warnings;\r
-\r
-use Term::ProgressBar 2.00;\r
-\r
-use constant MAX => 100_000;\r
-\r
-my $progress = Term::ProgressBar->new(MAX);\r
-\r
-for (0..MAX) {\r
-  my $is_power = 0;\r
-  for(my $i = 0; 2**$i <= $_; $i++) {\r
-    $is_power = 1\r
-      if 2**$i == $_;\r
-  }\r
-\r
-  if ( $is_power ) {\r
-    $progress->update($_);\r
-  }\r
-}\r
diff --git a/eg/smooth_bar.pl b/eg/smooth_bar.pl
deleted file mode 100644 (file)
index befae9a..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl\r
-use strict;\r
-use warnings;\r
-\r
-use Term::ProgressBar 2.00;\r
-\r
-my $max = shift || 100;\r
-\r
-my $progress = Term::ProgressBar->new($max);\r
-\r
-for (0..$max) {\r
-  my $is_power = 0;\r
-  for(my $i = 0; 2**$i <= $_; $i++) {\r
-    $is_power = 1\r
-      if 2**$i == $_;\r
-  }\r
-\r
-  $progress->update($_)\r
-}\r
diff --git a/examples/simple_use.pl b/examples/simple_use.pl
new file mode 100644 (file)
index 0000000..6d57747
--- /dev/null
@@ -0,0 +1,21 @@
+#!/usr/bin/perl\r
+use strict;\r
+use warnings;\r
+\r
+use Term::ProgressBar 2.00;\r
+\r
+use constant MAX => 100_000;\r
+\r
+my $progress = Term::ProgressBar->new(MAX);\r
+\r
+for (0..MAX) {\r
+  my $is_power = 0;\r
+  for(my $i = 0; 2**$i <= $_; $i++) {\r
+    $is_power = 1\r
+      if 2**$i == $_;\r
+  }\r
+\r
+  if ( $is_power ) {\r
+    $progress->update($_);\r
+  }\r
+}\r
diff --git a/examples/smooth_bar.pl b/examples/smooth_bar.pl
new file mode 100644 (file)
index 0000000..befae9a
--- /dev/null
@@ -0,0 +1,19 @@
+#!/usr/bin/perl\r
+use strict;\r
+use warnings;\r
+\r
+use Term::ProgressBar 2.00;\r
+\r
+my $max = shift || 100;\r
+\r
+my $progress = Term::ProgressBar->new($max);\r
+\r
+for (0..$max) {\r
+  my $is_power = 0;\r
+  for(my $i = 0; 2**$i <= $_; $i++) {\r
+    $is_power = 1\r
+      if 2**$i == $_;\r
+  }\r
+\r
+  $progress->update($_)\r
+}\r