move examples

[term-progressbar.git] / eg / smooth_bar.pl

diff --git a/eg/smooth_bar.pl b/eg/smooth_bar.pl
deleted file mode 100644 (file)
index befae9a..0000000
--- a/eg/smooth_bar.pl
+++ /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