Parent Directory | Revision Log
reorg directory structure so that examples are *not* installed together with module
1 | #!/usr/bin/perl |
2 | |
3 | use lib 'lib'; |
4 | use Term::Shelly; |
5 | |
6 | $sh = Term::Shelly->new(); |
7 | |
8 | $time = time(); |
9 | $end = time() + 15; |
10 | $count = 0; |
11 | |
12 | while (1) { |
13 | $sh->do_one_loop(); |
14 | if ($time < time()) { |
15 | $count++; |
16 | $time = time(); |
17 | $sh->prompt(sprintf("Download: %.2f", $count / 15) . "% >"); |
18 | exit if ($time == $end); |
19 | } |
20 | } |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |