#!/usr/bin/perl
#
# bars.pl - multiple independent timers using Async::Tiny  Ppoll

use Curses;
use Term::ReadKey;
use Async::Tiny;
use strict;
use warnings;

my ($width, $height) = GetTerminalSize;
my @lines = ( '-' x $width ) x $height;
my $endcode;

my $t = Async::Tiny->new;

$t->addDelayCallback( 100, sub { $endcode = 'endrepeat' } );

for my $row (0 .. $#lines)
  {
  $t->addRepeatCallback( (3 + rand 20) / 50 , sub
    {
    s/-/#/ or s/#*\K#/=/ or tr/=/-/ for $lines[$row];
    addstr $row, 0, $lines[$row];
    refresh;
    $endcode;
    } );
  }

initscr;
curs_set 0;
addstr 0, 0, '-' x $width x $height;
$t->eventloop;
endwin;